禁止IP段访问问题

[poemail]

代码如下：

<%
Dim IP,IPString,VisitIP
'要禁止的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

'请问此处该如何判断IP段
VisitIP="|"&IP&"|"

If instr(1,IPString,VisitIP)>0 Then 
Response.redirect error.asp"
Else
response.redirect "index.asp"
response.end
End If
%>

请问我如何通过条件判断而排除部分访问者。

[poemail]

我想禁止的是IP段，即58.63.1.0这个58.63.1 c网段的IP都不能访问，谢谢。

[virgo2008]

建议你在数据库里面设置一个IP段，然后比对数据库就OK了！

[poemail]

已结帖，公布我的代码吧：

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

[Yes1000]

<%
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
%>

[virgo2008]

汗，我怎么没有看到你结贴的标识啊?难道我网速慢了！？