goto.asp

本源代码为 网雷弹窗联盟程序的源代码,欢迎大家的下载,学习与交流

<%
Dim Id
Dim Url

Id=cint(request("id"))
Url=trim(request("url"))
ComeIp = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
if ComeIp = "" then ComeIp = Request.ServerVariables("REMOTE_ADDR")

'防止利用客户端禁止SESSION 和COOKIES作弊
'先写入SESSION 和COOKIES,然后等待在下一页面进行验证（属于流量联盟域）
visitCount=request.Cookies("visitCount")
if isnull(visitCount) or visitCount="" then
	visitCount=0
end if

response.cookies("visitCount")=visitCount+1
Response.Cookies("visitCount").Expires= DateAdd("d",1,now()) 

response.Redirect("goto2.asp?id="&Id&"&url="&Url&"&comeip="&ComeIp)

%>