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 %>