如何通过时间与用户ip段判断网页跳转

[yxm1273]

如题~！
实现目标：时间在8：00-11：00之间，ip段在192.168.1.0-192.168.2.255范围内的用户访问某网站，直接跳转到限定的网页error.htm 这个如何操作 谢谢

[ACMAIN_CHM]

if hour(now())>=8 and hour(now())<11 and request.ServerVariables("REMOTE_ADDR")>="192.168.1.0" and request.ServerVariables("REMOTE_ADDR")<="192.168.2.255" then
Response.Redirect "error.htm"

end if

[yxm1273]

ip可以直接比较吗？看网上资源好多都是要去点 变字符串的 ……

[ACMAIN_CHM]

192.168.1.0-192.168.2.255

因为你的前两段都一样，第三段只是 0,1,2 位数相同。所以可以直接进行字符串比较。

[xzx99]

参照 限制IP的函数 CheckIp：
http://blog.csdn.net/tsxnb/archive/2009/06/23/4291710.aspx

IF  CheckIp(getIP(),"192.168.1.0~192.168.2.255:允许") and hour(now())>=8 and hour(now()) <11 then
Response.Redirect "error.htm" 
end if

[Dogfish]

myip = request.ServerVariables("REMOTE_ADDR")

if hour(now())>=8 and hour(now()) <11 and IP2Int(myip)>=IP2Int("192.168.1.0") and IP2Int(myip)>=IP2Int("192.168.1.255") then
     'Your Code
end if

Function IP2Int(IP)
	Dim IPArray,i
    IPArray=Split(IP,".",-1)
    FOr i=0 to 3
		If Not IsNumeric(IPArray(i)) Then IPArray(i)=0
		If CInt(IPArray(i))<0 Then IPArray(i)=Abs(CInt(IPArray(i)))
        If CInt(IPArray(i))>255 Then IPArray(i)=255	
	Next
    IP2Int=(CInt(IPArray(0))*256*256*256)+(CInt(IPArray(1))*256*256)+(CInt(IPArray(2))*256)+CInt(IPArray(3))'-1
End Function

[wlcsdf]

厉害啊，学习了。