checklockip.asp

零度白茶影视系统好东西要大家分享

<%
   set rs=server.createobject("adodb.recordset")
   sql="select * from LockIP"
   rs.open sql,conn,1,1
   if not(rs.bof and rs.eof) then
   do while not rs.eof
%>

<%
ip_start=rs("sip1")
ip_end =rs("sip2")
ip_start_arr =split(ip_start,".")
ip_end_arr =split(ip_end,".")
ip_start_str=""
ip_end_str=""
ip_user_str=""
for i=0 to 3
        ip_start_str=ip_start_str&right(Cstr(formatnumber(Cint(ip_start_arr(i))/1000,3)),3)
        ip_end_str=ip_end_str&right(Cstr(formatnumber(Cint(ip_end_arr(i))/1000,3)),3)
next
'测试客户端是否用代理
userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR") 
If userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR")
ip_user_arr        =split(userip,".")
for i=0 to 3
   ip_user_str=ip_user_str&right(Cstr(formatnumber(Cint(ip_user_arr(i))/1000,3)),3)
next
if CDbl(ip_user_str)>CDbl(ip_end_str) or CDbl(ip_user_str)<CDbl(ip_start_str) then
        ip=2
		else
		ip=1
end if 
%>
<%
rs.MoveNext
loop
else
ip=2
end if
rs.close
set rs=nothing
%>