Heim >Backend-Entwicklung >PHP-Tutorial >程序修改有关问题

程序修改有关问题

WBOY
WBOYOriginal
2016-06-13 10:23:13686Durchsuche

程序修改问题
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="<script>location.href='p_center.asp';</script>"'定义跳转的页面
' 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))   '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 

Stellungnahme:
Der Inhalt dieses Artikels wird freiwillig von Internetnutzern beigesteuert und das Urheberrecht liegt beim ursprünglichen Autor. Diese Website übernimmt keine entsprechende rechtliche Verantwortung. Wenn Sie Inhalte finden, bei denen der Verdacht eines Plagiats oder einer Rechtsverletzung besteht, wenden Sie sich bitte an admin@php.cn