Byzkxp2 / 15/2006http: //zkxp.cnblogs.com
«La collection d'adresse IP bloquée (segment), l'astérisque est un joker et est généralement enregistré dans le fichier de configuration.
<%
Constbadipgroup = "220.200.59.136 | 220.205.168.141"
Ifisforbidip (badipgroup) = truethen
Response.Write (GetUserrip & "Adresse IP Interdite Access")
Réponse.end ()
Endire
'**************************************************************************
'Paramètre vbadip: segment IP à bloquer, collection d'adresses IP, séparez plusieurs adresses IP (segments) avec | symboles
'Retour à bool: le vrai utilisateur IP est dans la plage bloquée, FALSE est l'opposé
'**************************************************************************
Functionforbidip (vbadip)
Dimcounter, Arrippart, Arrbadip, Arrbadippart, I, J
Arrbadip = Split (vbadip, "|")
Arrippart = Split (getUserrip (), ".")
Fori = 0Toubound (Arrbadip)
compteur = 0
Arrbadippart = Split (Arrbadip (i), ".")
Forj = 0Toubound (Arrippart)
If (Arrbadippart (j)) = "*" Orcstr (Arrippart (J)) = Cstr (Arrbadippart (J)) alors
compteur = compteur + 1
Endire
Suivant
Ifcounter = 4Then
IsForbid = true
Sortie
Endire
Suivant
Isforbidip = false
Finition de fin
'***************
'Retour à l'adresse IP du client
'***************
FunctionGetUserrip ()
Dimip
Ip = request.servervariables ("http_x_forwarded_for")
Ifip = "" thenip = request.servervariables ("rote_addr")
GetUserrip = ip
Finition de fin
%>