<%
id=request.querystring("id")
action=request.querystring("action")
if action="yes" then
set r=server.createobject("adodb.recordset")
r.open "select error from detail where id="&id,conn,1,3
if not r.eof then
r("error")=r("error")+1
r.update
end if
rsc.close
set rsc=nothing
response.write""
response.end
else
sql="select * from detail where id="&id
set rsc=conn.execute(sql)
id=rsc("id")
title=rsc("title")
error=rsc("error")
conn.execute (sql)
rsc.close
set rsc=nothing
%>
<%=title%>网址报错