Hay ocasiones en que interesa bloquear el acceso a ciertos usuarios con IP específicas. Básicamente lo que se hace es crear un vector con las direcciones IP que se quieran restringir para posteriormente hacer una comparación de cada una de ellas con la IP del usuario entrante. Si se detecta que la IP del usuario entrante coincide con alguna IP almacenada en el vector de restricciones se deniega el acceso redireccionándole a otra página.
El código sería el siguiente:
El código sería el siguiente:
<%
Dim lista_de_ips, ipVisitante, vIP
' lista_de_ips contendrá todas las direcciones IP que se desea bloquear
' Los IP deben ser separados por el carácter: ; (punto y coma)
lista_de_ips = "61.254.32.22;62.454.32.25;"
' Separo la lista en un vector
vIP = split(lista_de_ips,";")
Dim lista_de_ips, ipVisitante, vIP
' lista_de_ips contendrá todas las direcciones IP que se desea bloquear
' Los IP deben ser separados por el carácter: ; (punto y coma)
lista_de_ips = "61.254.32.22;62.454.32.25;"
' Separo la lista en un vector
vIP = split(lista_de_ips,";")
' Guardo el IP del cliente
ipVisitante = Request.ServerVariables("REMOTE_ADDR")
' Recorro el vector de IPs bloqueados y los comparo con el del cliente
' Si hay alguna coincidencia, redirecciono al usuario
For i = 0 to UBound(vIP)
If trim(ipVisitante) = trim(vIP(i)) and (trim(vIP(i)) <> "") Then
Response.Redirect "sin_acceso.asp"
End If
Next
%>