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...

- Select Case. Explicación y utilización en ASP
- Uso del objeto diccionario de ASP
- Proteger páginas con password en ASP
- Última modificación de un archivo en ASP
- Crear base de datos Acces con ASP

- Versión imprimible de este documento

- Enviar por e-mail este documento