El otro día estaba metido en un tema sobre un Parser Log del IIS y como la cosa la veía complicada, pues la abandoné. El caso es que gracias a eso se me ocurrió hacer un tipo de registro de visitas a las diferentes páginas de un sitio con un simple archivo de texto. Creo que ya hay muchos ejemplos de sobre esto, pero bueno, os dejo mi ejemplo por si a alguien le sirve.
Código:
<%
'La página que se quiera registrar ha de llevar la siguiente cadena
'<!--#include file="registroaccesos.asp"-->
On Error Resume Next
url = Server.MapPath("accesos.txt")
SET FSO = Server.CreateObject("Scripting.FileSystemObject")
SET archivo = FSO.OpenTextFile(url,8,false)
fecha = Now()
pagina = Request.ServerVariables("URL")
IP = Request.ServerVariables("REMOTE_ADDR")
archivo.WriteLine(fecha & Chr(9) & pagina & Chr(9) & IP)
archivo.Close
SET archivo = Nothing
SET FSO = Nothing
'Para mostrar la información de accesos, utilizar lo siguiente
'#####quitar la comilla simple################
'SET FSO = Server.CreateObject("Scripting.FileSystemObject")
'SET archivo = FSO.OpenTextFile(url,1,true)
'texto = Replace(archivo.ReadAll,vbcrlf,"<br>")
'Response.Write(texto)
'archivo.Close
'SET archivo = Nothing
'SET FSO = Nothing
'#######hasta aquí para mostrar accesos
Select Case Err
Case 62
Response.Write("El archivo <b>" & url & "</b> está vacío.")
Case 424
Response.Write("El archivo <b>" & url & "</b> no existe.")
Case 0
Case Else
Response.Write("Ha ocurrido un error.<br>")
Response.Write(url & "<br>")
Response.Write("Error nº: " & Err.Number & "<br>Descripción: " & Err.Description)
End Select
%>
El archivo accesos.txt es fácil de leer, así que no sería muy complicado trabajar con él para realizar estadísticas o cosas por el estilo. Pero eso queda para otro momento.
Un saludo.