求助 ASP如何限制网站访问

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