% id=rp(Request("id")) if not isnumeric(id) then goerror(2) End if Dim objrs,strsql strsql="select * from news where id=" & id set objrs=server.createobject("ADODB.Recordset") objrs.open strsql,objconn,1,2,1 if objrs.Recordcount<1 then goerror(1) End if objrs("hits")=objrs("hits")+1 objrs.update %>
|