www.gusucode.com > 黑鹰友情链接交换系统美化版 1.2 黑码程序 > open.asp

    <%@ Language=VBScript %>
<!--#INCLUDE FILE="conn.asp" -->
<%url=request("url")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="update link set hits=hits+1 where id="&request("id")
rs.open sql,conn,1,1
rs close
set rs=nothing
response.redirect "" & url
conn.close
set conn=nothing
%>