禁止IP段访问问题

<%

Dim IP,IPString,VisitIP,IPlist



'要禁止的IP地址

IPString="|58.63.1.0|59.41.28.0|59.41.142.0|'中间略....|219.136.220.165"



'获取IP地址

IP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")

If IP = "" Then 

	IP = Request.ServerVariables("REMOTE_ADDR")

End If



IPlist = Split(IPString,"|")	'转化为数组

isOK = True						'初始化状态



For i = 0 To UBound(IPlist)

	If IPlist(i) <> "" Then 

		'如果用户IP在禁止列表里，设置isOK为false并退出循环

		If Left(IP,Len(IPlist(i))) = IPlist(i) Then

			isOK = False

			Exit For

		End If 

	End If

Next



'最后如果isOK是true 说明用户IP不再禁止IP段，否则就在，执行相应操作……

'response.redirect 后的任何代码都是多余的，因为根本没有机会执行，response.end不必写



If isOK Then 

	response.redirect "index.asp"

Else

	Response.redirect "error.asp"

End If

%>

Dim IP,IPString,VisitIP

'要禁止的IP地址

IPString="|58.63.1|59.41.28|59.41.142|59.42.206|'...省略部分|219.137.175|"

'获取IP地址

IP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")

If IP = "" Then 

IP = Request.ServerVariables("REMOTE_ADDR")

End If



ip = split(ip,".") 

p=ip(0)&"."&ip(1)&"."&ip(2) 



VisitIP="|"&p&"|"

If instr(1,IPString,VisitIP)>0 Then 

Response.redirect "error.asp"

Else

Response.redirect "index.asp"

response.end