Bloquear IPs a través de un array con ASP

Este ejemplo nos puede ser muy útil si queremos restringir el acceso a nuestra web de usuarios determinados. El código debe ser incluido al principio del fichero.

<%
Dim IP
Dim fuera
Dim A

'Creamos una array con el numero de ips que queremos bloquear en esto caso definimos tres ips( 0 = uno, 1 = dos)
Dim Ip_array(3)

'Localizamos las variables a traves de la variable request.servervariables("REMOTE_ADDR")
IP = request.servervariables("REMOTE_ADDR")

'Definimos el numero de ips que queremos bloquear en este caso 3
A = 3

'IP a bloquear
Ip_array(0) = ""
Ip_array(1) = ""
Ip_array(2) = ""

'revisamos las ips a traves del array, si encontramos una ip bloqueda el usuario no podra visualizar la pagina
For I = 0 to A
If Ip_array(I) = IP then

'redireccionamos la ip bloqueada a la siguiente url
Response.Redirect "http://www.jmcweb.org/prohibido.htm"

End If
next
%>

Usuarios que han visto este tema también han visto...

- Server Side Includes con ASP
- Cargar los datos de una lista desplegable múltiple
- ¿Cuanto tarda en cargar una página en ASP?
- Mostrar la IP, el Navegador y el SO del Usuario con ASP
- Acceder a un fichero ubicado en el servidor con ASP.NET

- Versión imprimible de este documento

- Enviar por e-mail este documento