禁止IP访问ASP代码

Const BadIPGroup = "92.48.127.*|83.233.165.*"
If IsForbidIP(BadIPGroup) = True Then

   Response.Redirect "error.html"

    Response.End()

End If
Function IsForbidIP(vBadIP)

    Dim counter, arrIPPart, arrBadIP, arrBadIPPart, i, j

    

   arrBadIP = Split(vBadIP, "|")    

   arrIPPart = Split(GetIP(), ".")

  

    For i = 0 To UBound(arrBadIP)        

        counter = 0

        arrBadIPPart = Split(arrBadIP(i), ".")        

        For j = 0 To UBound(arrIPPart)            

            If(arrBadIPPart(j)) = "*" or Cstr(arrIPPart(j)) = Cstr(arrBadIPPart(j)) Then            

                counter = counter + 1            

            End If            

        Next        

        If counter = 4 Then            

            IsForbidIP = True

            Exit Function

        End If        

    Next

    IsForbidIP = False

End Function



'***************

'返回客户IP地址

'***************

Function GetIP()

    Dim IP

    IP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")

   If IP = "" Then IP = Request.ServerVariables("REMOTE_ADDR")

   GetIP = IP

End Function