BYZKXP2/15/2006HTTP: //zkxp.cnblogs.com
'A coleção de endereço IP bloqueado (segmento), o asterisco é um curinga e geralmente é salvo no arquivo de configuração.
<%
Constbadipgroup = "220.200.59.136 | 220.205.168.141"
Ifisforbidip (badipgroup) = truethen
Response.Write (GetUserip & "Endereço IP Proibido Acesso")
Response.end ()
Endif
'***********************************************
'Parâmetro Vbadip: segmento IP a ser bloqueado, coleção de endereços IP, vários endereços IP (segmentos) com | símbolos
'Retornar ao bool: o verdadeiro usuário IP está em intervalo bloqueado, False é o oposto
'***********************************************
Functionisforbidip (vbadip)
DimCounter, Arrippart, Arrbadip, Arrbadippart, I, J
arrbadip = split (vbadip, "|")
arrippart = split (getUserip (), ".")
Fori = 0TOUBOUND (ARRBADIP)
contador = 0
Arrbadippart = Split (Arrbadip (i), ".")
Forj = 0Toubound (Arrippart)
If (arrbadippart (j)) = "*" orcstr (arrippart (j)) = cstr (arbadippart (j)) então
contador = contador+1
Endif
Próximo
IfCounter = 4Then
Isforbidip = true
Saída de saída
Endif
Próximo
Isforbidip = false
Função final
'*****************
'Retorne ao endereço IP do cliente
'*****************
FunctionGetUserip ()
Dimip
Ip = request.servervariables ("http_x_forwarded_for")
Ifip = "" thenip = request.servervariables ("remote_addr")
GetUserip = ip
Função final
%>