250807.



Este es un simple procedimiento, mediante el cual podemos bloquear el acceso de clientes con un IP específico.

Basicamente 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
%>