adsurl.asp

来自「一个诚信信息港门户网 功能: 系统设置 企业会员 个人」· ASP 代码 · 共 14 行

<!--#include file="main.asp"-->
<%getid=cint(request.querystring("id"))
set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from SMT_ads where SMT_id="& getid &""
rs.open sql,conn,1,3
getclick=rs("SMT_click")+1
rs("SMT_click")=getclick
rs.update
geturl=rs("SMT_url")
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect geturl%>