Ejemplo: Registro de accesos

[Bravenap]

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.