Byzkxp2/15/2006http: //zkxp.cnblogs.com
'La colección de la dirección IP (segmento) bloqueada, el asterisco es un comodín y generalmente se guarda en el archivo de configuración.
<%
Constbadipgroup = "220.200.59.136 | 220.205.168.141"
Ifisforbidip (badipgroup) = TrueThen
Response.Write (GetUserIP y "Dirección IP Prohibited Access")
Respuesta.end ()
Endif
'************************************************************************
'Parámetro VBADIP: segmento IP que se bloqueará, recopilación de direcciones IP, múltiples direcciones IP (segmentos) separados con | símbolo
'Regreso a Bool: el verdadero usuario IP está en un rango bloqueado, False es lo contrario
'************************************************************************
FunctionIsforbidip (VBADIP)
DiMcounter, Arriptart, Arrbadip, Arrbadippart, I, J
arrbadip = split (vbadip, "|")
Arriptart = Split (getUserIP (), ".")
Fori = 0toUbound (arrbadip)
contador = 0
arrbadippart = split (arrbadip (i), ".")
Forj = 0toUbound (ArripPart)
If (arrbadippart (j)) = "*" orcstr (arriptart (j)) = cstr (arrbadippart (j)) entonces
contador = contador+1
Endif
Próximo
Ifcounter = 4then
IsForbidip = verdadero
Extinción
Endif
Próximo
IsForbidip = falso
Función final
'****************
'Regresar a la dirección IP del cliente
'****************
FunctetUserIP ()
Dimipar
Ip = request.serverVariAnbles ("http_x_forwarded_for")
Ifip = "" thelip = request.ServerVariAbles ("Remote_addr")
GetUserip = ip
Función final
%>