Código fuente de 'Ip verdadera.asp'
<html>
<head>
<title>IP verdadera - Códigos asp, programacion asp, descargas asp, rutinas asp</title>
</head>
<p align="center"><b><font size="3">IP verdadera</font></b></p>
<font style="font-size: 9pt">La instrucción Request.ServerVariables ("REMOTE_ADDR") puede ser usada para recuperar la IP de la máquina cliente.
Pero, puestto que algunos cliente se conectan a Internet via proxy
el método anterior sólo devolverá la IP del proxy y no la IP real del cliente.<br>
<br>
Con el fin de obtener la verdadera IP via el proxy server,
pudes utilizar la instrucción Request.ServerVariables ("HTTP_X_FORWARDED_FOR").
<br>
<br>
NOta: si el cliente no se conecta a Internet via un proxy,entonces la instrucción Request.ServerVariables ("HTTP_X_FORWARDED_FOR")<br>
devolverá un valor nulo. <br>Puedes utilizar este método en tus programas como sigue:<br><br>
<i><%<br>
userip = Request.ServerVariables ("HTTP_X_FORWARDED_FOR") <br>
If userip = "" Then <br>
userip = Request.ServerVariables ("REMOTE_ADDR")<br>
End if <br>
%> </i></font>
<%
userip = Request.ServerVariables ("HTTP_X_FORWARDED_FOR")
If userip = "" Then
userip = Request.ServerVariables ("REMOTE_ADDR")
End if
response.write "<br><br>Tu IP es: " & userip
%></body></html>