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