<%
newid=request("id")
Dim db,rs,strSql
'建立Connection对象
Set db=Server.CreateObject("ADODB.Connection")
db.Open "DBQ=" & Server.Mappath("ding.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
strSql2="update new set chishu=chishu+1 where id = " & newid '不可改成'" & strid &"'
Set rs2=db.Execute(strSql2)
'建立Recordset对象
Set rs=Server.CreateObject("ADODB.Recordset")
newid=request("id")
strSql ="Select * From new where id="& newid
rs.Open strSql,db,1
'查询记录
%>
111111111111111
