ip_start="61.143.129.0" ip_end ="61.143.133.255" 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 response.write "超出访问范围" end if
