程序修改问题
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))   '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