www.gusucode.com > 百度空间互踩联盟 1.0源码程序 > out.asp

    <!--#include file="conn.asp"-->
<%
dim username,comeurl
username=hx.checkstr(request("username"),12)
if username="" then
CloseDatabase
Response.write "用户名有误"
Response.End
end if
comeurl=Request.ServerVariables("http_referer")


dim rs,sql
dim siteurl
set rs=server.createobject("adodb.recordset")
sql="select TOP 1 siteurl,outc,outj,outp,outdate,fromdate from CL_Link where username='"&username&"'"
rs.open sql,conn,1,2
if not rs.eof then
	siteurl="hi.baidu.com/"&rs("siteurl")
	if left(siteurl,7)<>"http://" then siteurl="http://" & siteurl
	If comeurl<>"" and not hx.isrec(1) then
		rs("outc")=rs("outc")+1
		if DateDiff("d",rs("outdate"),Date())=0 then
			rs("outj")=rs("outj")+1
		else
			rs("outj")=1
		end if
		rs("outdate")=Now()
		rs.update
		rs("outp")=rs("outc")/(DateDiff("d",rs("fromdate"),Date())+1)
		rs.update
	end if
		
else
   siteurl=WebUrl
end if
rs.close
set rs=nothing

CloseDatabase
Response.Redirect siteurl
%>