php如何换asp,asp转换成php如何转换

当前位置:我的异常网» PHP » asp转换成php如何转换

asp转换成php如何转换

www.myexceptions.net  网友分享于：2013-05-12  浏览：11次

asp转换成php怎么转换

Response.Expires= -1

Response.AddHeader "pragma","no-cache"

Response.AddHeader "cache-control","no-store"

%>

'-------此页面用于推广连接

' %>

dim nextpage'跳转页面

dim vipurl'推广连接

dim JF_Rule_TimeDiff,JF_Rule_Count,JFValue_Every'间隔时间,间隔时间内的有效点击次数,每次有效点击 获取的积分

dim sql'定义执行的sql语句

dim rs'定义rs

dim userid,validcount'用户编号,时间段内的有效访问次数

dim IP,URL '客户端ip及i来源url

dim logincount'登录次数

dim isvalid'是否有效

dim LoginIPArea,login_Url'客户端ip所在区域,来源url网址

login_Url=""'初始化网址

LoginIPArea=""'初始化客户端ip区域

login_Url= Request.ServerVariables("HTTP_REFERER") '获取客户端ip来源地址

nextpage=""'定义跳转的页面

' response.write login_Url

'response.end

if len(login_Url)>0 then '来源url的处理过程

login_Url= replace(login_Url,"http://","")

login_Url= split(login_Url,"/")

login_Url= login_Url(0)

end if

isvalid=1

validcount=0

logincount=0

vipurl=request("vip")

IP = Request.ServerVariables("HTTP_X_FORWARDED_FOR") '获取客户端ip

If IP = "" Then IP = Request.ServerVariables("REMOTE_ADDR") 'ip地址处理

' IP=getIP()

LoginIPArea=GetIpArea(IP)

'response.write("ip:"&IP&"
")

'response.write("vip:"&vipurl)

set rs=server.createobject("adodb.recordset")'创建rs对象

set rsuser=server.createobject("adodb.recordset")'创建rs对象

sql="select JF_Rule_TimeDiff,JF_Rule_Count,JFValue_Every from JF_Rule"

rs.open sql,conn,1,1

'获取系统参数过程

if not rs.eof then

JF_Rule_TimeDiff=rs("JF_Rule_TimeDiff")'间隔时间

JF_Rule_Count=rs("JF_Rule_Count")'间隔时间内的有效点击次数

JFValue_Every=rs("JFValue_Every")'每次有效点击 获取的积分

end if

rs.close

if(len(vipurl)=0) then '如果不是推广连接进入的

'跳转-----此处写跳转的页面

response.write nextpage

response.end

else '是推广连接 则对用户进行有效操作

sql="select User_ID, User_Code, User_UserName, User_Login_time, User_Login_IP, User_Login_Count from C_User where User_Code='"&vipurl&"'"

rs.open sql,conn,1,1

if not rs.eof then

userid=rs("User_ID")

', User_FromUser, User_JF, User_ToUserCount,User_ToAllCount

else

'跳转-----此处写跳转的页面

response.write nextpage

response.end

end if

rs.close

end if

'---------有效点击次数 ,下面获取本次点击是否有效

sql="select isnull(count(1),0) as logincount from User_GetJF where LoginIP='"&IP&"' and datediff(hour,LoginTime,cast('"&now()&"' as datetime))<="&JF_Rule_TimeDiff&""

'response.write sql

' response.end

rs.open sql,conn,1,1

if not rs.eof then

logincount=rs("logincount")'获取有效点击次数

end if

if(logincount>=JF_Rule_Count) then'如果点击次数超过系统参数设定则无效

isvalid=0

end if

rs.close

sql="insert into User_GetJF(User_ID,User_GetJFValue,User_GetMethod,LoginIP,LoginIPArea,IsValid,login_Url) values("&userid&","&JFValue_Every&",'推广访问','"&IP&"','"&LoginIPArea&"',"&isvalid&",'"&login_Url&"') "

'写入用户推广明细表

rs.open sql,conn

文章评论