Este es un simple procedimiento, mediante el cual podemos bloquear el acceso de clientes con un IP específico.
Básicamente lo que hacemos es armar un vector con todas las direcciones IP que queramos, y luego comparamos el IP del visitante, con cada uno de los elementos del vector. Si hay alguna coincidencia, quiere decir que el visitante, tiene un IP que queremos bloquear. En ese caso, se lo redirecciona a otra pagina, donde se le puede avisar que no tiene acceso.
<%
Dim lista_de_ips, ipVisitante, vIP
' Aqui hay que poner las direcciones IP que deseamos bloquear
' Los IP deben ser separados por el caracter: ; (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
%>
Este script sirve solamente para bloquear direcciones IPs enteras. Así como está no sirve para bloquear rangos de IP
Usuarios que han visto este tema también han visto...
- Paginar Datos en ASP
- Acceder a una Base de Datos Access con ASP
- Utilizacion de GET y querystring en ASP
- Verificando lo que introduce el usuario
Información legal | Política de Privacidad | Contacte con nosotros
Otro proyecto de Factoría de Internet. Copyright© 2003-2011 Factoría de Internet S.L.. Todos los derechos reservados.