go.asp

来自「aspx自助链接系统(.net)」· ASP 代码 · 共 14 行

<% on error resume next
   connstr="DBQ="+server.mappath("db/addlink.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
    set cn=server.createobject("ADODB.CONNECTION")
    cn.open connstr
   sql="UPDATE link SET hit=hit+1  WHERE id=" & Request.querystring("id")
cn.Execute sql 
sql2="select * from link where id=" & Request.querystring("id")
set rs=server.createobject("adodb.recordset")
rs.Open sql2,cn,1,1 
url=rs("addr")
rs.close
response.Redirect url
%>