程序修改问题
<%
Response.Expires= -1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","no-store"
%>
<!--#Include File="Conn.asp"-->
<!--#Include File="ChkStr.asp"-->
<!--#Include File="MyFunCtion.asp"-->
<!--#Include File="Md5.asp"-->
 <%'
'-------此页面用于推广连接

' %>
<%
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&"<br>")
'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&",