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
<%
set oConn=Server.CreateObject("ADODB.Connection&q uot;)
set rs=Server.CreateObject("ADODB.Recordset" )
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("usuarios.mdb")
IP=Request.ServerVariables("Remote_Addr" )
fecha=date
hora=time
navegador=Request.ServerVariables("HTTP_USER_ AGENT")
idioma=Request.ServerVariables("HTTP_ACCEPT_L ANGUAGE")
procedencia=Request.ServerVariables("HTTP_REF ERER")
SQL="SELECT * FROM usuarios"
rs.Open SQL, oConn,1,2
rs.movelast
rs.addnew
rs(cod)=1
rs("fecha")=fecha
rs("hora")=hora
rs("IP")=IP
rs("idioma")=idioma
rs("navegador")=navegador
rs("procedencia")=procedencia
rs.update
rs.close
%>
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
<%
set oConn=Server.CreateObject("ADODB.Connection&q uot;)
set rs=Server.CreateObject("ADODB.Recordset" )
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("usuarios.mdb")
SQL="SELECT * FROM usuarios"
rs.Open SQL, oConn,1,2
do while not rs.eof
response.write(rs("cod"))
response.write(rs("fecha"))
response.write(rs("hora"))
response.write(rs("IP"))
response.write(rs("idioma"))
response.write(rs("navegador"))
response.write(rs("procedencia"))
rs.movenext
loop
rs.close
%>
<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>