Acceso sólo a una IP.

[wpp]

Mira te paso lo que tengo.

<%
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/ryryryr.htm"

End If
next
%>