Byzkxp2/15/2010HTTP: //zkxp.cnblogs.com
'Die Erfassung der blockierten IP -Adresse (Segment), das Sternchen, ist eine Wildcard und wird normalerweise in der Konfigurationsdatei gespeichert.
<%
ConstbadipGroup = "220.200.59.136 | 220.205.168.141"
Ifisforbidip (badipgroup) = truethen
Response.write (GetUserip & "IP -Adresse verbotener Zugriff"))
Antwort.end ()
Endif
'******************************************
'Parameter VBADIP: IP -Segment zu blockieren, IP -Adresssammlung, separate mehrere IP -Adressen (Segmente) mit | Symbole
'Rückkehr zu bool: Die wahre Benutzer -IP ist im blockierten Bereich, Falsch ist das Gegenteil
'******************************************
Funktionsforbidip (VBADIP)
Dimcounter, arrippart, arrbadip, arrbadippart, i, j
arrbadip = split (vbadip, "|")
arrippart = split (getUserip (), ".")
Fori = 0Toubund (arrbadip)
Zähler = 0
arrbadippart = split (arrbadip (i), ".")
FORJ = 0ToUBOUND (Arrippart)
If (arrbadippart (j)) = "*" orcstr (arrippart (j)) = cstr (arrbadippart (j)) dann
Zähler = Zähler+1
Endif
Nächste
Ifcounter = 4Then
Isforbidip = true
Ausgangsfunktion
Endif
Nächste
Isforbidip = false
Endfunktion
'***************
'Kehren Sie zur Client -IP -Adresse zurück
'***************
FunctionGetUserip ()
Dimip
Ip = request.servervariables ("http_x_forwarded_for")
IfiP = "" thenip = request.servervariables ("remote_addr")
GetUserip = ip
Endfunktion
%>