ip.asp

重庆宽频P2P电影小偷程序,可以做一个大型的电影站了

<!--#include file="fso.asp"-->
<%
Dim IP,rs,sql,ip_count,myfile,f,ipuser,Num,VisitIP

'获取IP地址
Ip=Request.ServerVariables("HTTP_X_FORWARDED_FOR") 
If Ip = "" Then 
Ip=Request.ServerVariables("REMOTE_ADDR") 
end if

'验证开始
VisitIP="|"&IP&"|"
Num=100
If instr(1,IpStop,VisitIP)>0 Then
  call err_fisrt
  response.end
else
  if Session("ip")="" then 
     Session("ipuser")=1 
     Session("ip")=ip
  else   
     Session("ipuser")=Session("ipuser")+1 
  end if
  if int(Session("ipuser"))>int(Num) then
  call err_second
  End If
End If
%>