www.gusucode.com > QQ空间互踩联盟源码程序asp编程 > out.asp
<!--#include file="conn.asp"--> <% dim username username=hx.checkstr(request("username"),10) if username="" then CloseDatabase Response.write "QQ号码不能为空" Response.End end if dim rs,sql dim siteurl set rs=server.createobject("adodb.recordset") sql="select TOP 1 siteurl,outc,outj,fromdate from Qzonev_Com_Link where username='"&username&"'" rs.open sql,conn,1,2 if not rs.eof then siteurl="http://"&rs("siteurl")&".qzone.qq.com/?url=qzone/moveTips.html" If not hx.isrec(1) then rs("outc")=rs("outc")+1 rs("outj")=rs("outj")+1 rs.update end if else siteurl=WebUrl end if rs.close set rs=nothing CloseDatabase Response.Redirect siteurl %>