我想限制多个IP段禁止访问我的网站，不知道该如何限制？
希望能有个高手给我一段代码！

Request.ServerVariables("REMOTE_ADDR")
用这个方法取出客户端的IP地址，然后IF判断IP段来禁用
比如
Dim Prohibition(3)
Prohibition(0)="101"
Prohibition(1)="201"
Prohibition(2)="203"
Dim UserIP,IPAry
UserIP=Request.ServerVariables("REMOTE_ADDR")
IPAry=Split(UserIP,".")
Dim i,IsIllegal
IsIllegal=False
For i=0 To UBound(Prohibition)
    IF IPary(0)=Prohibition(i) Then
       IsIllegal=True
    End IF
Next
IF IsIllegal Then
   Response.Write "IP地址在禁止段内，禁止访问本站"
End IF

收到的鲜花

• 儒生 于 2008-05-10 16:01 送鲜花  2朵   附言：我很赞同

经典。。。。经典