Averiguar IP

[carcellan]

Una de las webs en las que estoy trabajando contiene un foro y necesito un sistema de control para usuarios malintencionados. Me gustaría saber como podría averiguar la IP de la gente que deja un mensaje.

Muchas gracias.

[nithard]

mira la documentación de ASP, hay una variable de servidor que te da ese dato, así podras bannear (si es desde una IP fija) o registrar en el log (incluso podrás saber de donde son tus visitas!!)

prueba esto:

Request.ServerVariables("Remote_Addr")

para ver el funcionamiento prueba a entrar en <a href='ir.asp?http://www.aranjuez.org/informacion.asp' target='_blank'>http://www.aranjuez.org/informacion.asp...</a>

Espero que te sea de ayuda

[carcellan]

Perfecto, funciona muy bien. Muchas gracias por tu ayuda

[maestro]

Si alguno quiere hacerse un pequeño contador/LOG de visitas por con fecha, hora, IP, navegador, idioma, url de procedencia , etc y en que fecha se hacen es muy sencillo.

Creamos una base de datos llamada usuarios.mdb , con una tabla llamada usuarios con los siguientes campos tipo texto, salvo COD que es autonumerico.
Campos:
cod - fecha - hora - IP - idioma -navegador - procedencia

Creamos un archivo ASP con este codigo, por ejemplo le llamamos visitas.asp

&lt;%
set oConn=Server.CreateObject(&quot;ADODB.Connection&q uot;)
set rs=Server.CreateObject(&quot;ADODB.Recordset&quot; )
oConn.Open &quot;DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=&quot; &amp; Server.MapPath(&quot;usuarios.mdb&quot;)

IP=Request.ServerVariables(&quot;Remote_Addr&quot; )
fecha=date
hora=time
navegador=Request.ServerVariables(&quot;HTTP_USER_ AGENT&quot;)
idioma=Request.ServerVariables(&quot;HTTP_ACCEPT_L ANGUAGE&quot;)
procedencia=Request.ServerVariables(&quot;HTTP_REF ERER&quot;)
SQL=&quot;SELECT * FROM usuarios&quot;
rs.Open SQL, oConn,1,2
rs.movelast
rs.addnew
rs(cod)=1
rs(&quot;fecha&quot;)=fecha
rs(&quot;hora&quot;)=hora
rs(&quot;IP&quot;)=IP
rs(&quot;idioma&quot;)=idioma
rs(&quot;navegador&quot;)=navegador
rs(&quot;procedencia&quot;)=procedencia
rs.update
rs.close
%&gt;

Esto es para visualizar los resultados, naturalmente es el codigo puro y duro falta formatearlo para que se entienda y quede alineado y con una estetica aceptable, pero eso ira en la siguiente parte

Creamos un archivo ASP con este codigo, por ejemplo le llamamos listavisitas.asp

&lt;%
set oConn=Server.CreateObject(&quot;ADODB.Connection&q uot;)
set rs=Server.CreateObject(&quot;ADODB.Recordset&quot; )
oConn.Open &quot;DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=&quot; &amp; Server.MapPath(&quot;usuarios.mdb&quot;)

SQL=&quot;SELECT * FROM usuarios&quot;
rs.Open SQL, oConn,1,2
do while not rs.eof
response.write(rs(&quot;cod&quot;))
response.write(rs(&quot;fecha&quot;))
response.write(rs(&quot;hora&quot;))
response.write(rs(&quot;IP&quot;))
response.write(rs(&quot;idioma&quot;))
response.write(rs(&quot;navegador&quot;))
response.write(rs(&quot;procedencia&quot;))
rs.movenext
loop
rs.close
%&gt;

<img src="http://www.expansionweb.net/images/ewbanner.gif">Jose Maria Fernandez
<a href="mailto:[email protected]">Webmaster @expansionweb.net</a>
<a target="_blank" href="Http://www.expansionweb.net">Http://www.expansionweb.net</a>

[maestro]

La pagina visitas.asp podeis llamarla desde dentro de vuestra pagina principal mediante un include y asi cada vez que alguien entre a vuestro sitio quedan capturados estos datos.

Para ver los resultados solo teneis que llamar a la pagina listavisitas.asp .

Recordar qur para que esto funcione teneis que teneis que tener permisos de escritura en el directorio para actualizar la base de datos y naturalemte el servidor tiene que soportar ASP.

Si alguien esta my vago y no quiere hacerse la base de datos podeis cogerla vacia de aqui (formato access 2000):
<a href='ir.asp?http://www.expansionweb.net/upload/usuarios.zip' target='_blank'>http://www.expansionweb.net/upload/usuar...</a>

<img src="http://www.expansionweb.net/images/ewbanner.gif">Jose Maria Fernandez
<a href="mailto:[email protected]">Webmaster @expansionweb.net</a>
<a target="_blank" href="Http://www.expansionweb.net">Http://www.expansionweb.net</a>