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...
- Crear Recordsets XML con ASP
- Añadiendo controles de servidor con ASP
- Gestion de descarga de archivos
- Agrupa el código ASP
- Proteger páginas con password en ASP
Información legal | Política de Privacidad | Contacte con nosotros
Otro proyecto de Factoría de Internet. Copyright© 2003-2008 Factoría de Internet S.L.. Todos los derechos reservados.