Asp - Escribiendo un archivo log

Códigos Asp

La declaración de WriteLog escribe una línea del texto en un fichero de diario. La declaración de WriteLog inserta automáticamente la fecha y la hora de la adición del registro junto con cualquier texto que usted especifique en la discusión logevent. WriteLog añade automáticamente la nueva información a cualquier dato existente en un fichero de diario si se encuentra uno. Si el fichero de diario especificado no se encuentra, se crea para esa entrada.

Tutores.org

Inicio > Asp

Visitas: 20,950 - 18/04/2003

CODIGO

<% 'Codigo ofrecido por Tutores.org %>

<%
Dim strErrEvent
On Error Resume Next
' Detectamos algunos de los fallos posibles
If Err Then
strErrEvent = Request.ServerVariables("PATH_INFO") & vbTab & _
Err.Number & vbTab & Err.Description
WriteLog Server.Mappath("/public/errores_web.txt"), strErrEvent
End If
On Error GoTo 0
%>
Si no se muestra nada es por que no se detecto ningun error
<%
Private Sub WriteLog(byVal pathname, byVal logevent)
Dim objFSO, objFile
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(pathname, 8, True)
objFile.WriteLine Now() & vbTab & logevent
objFile.Close
Set objFile = Nothing
Set objFSO = Nothing
End Sub
%>

ENLACE AL CODIGO

Si quieres enlazar desde tu pagina a este codigo

<a title="Tutores.org - Escribiendo un archivo log" href="http://www.tutores.org/codigo/304/" target="_blank">Escribiendo un archivo log</a>

COMENTARIOS

Aun no existe ningun comentario para este Codigo.

INSERTAR COMENTARIO

Usuario:
Email:
Comentario:
	Codigo Seguridad
	Antes de enviar un comentario... Todos los comentarios son revisados personalmente Todo comentario que no haga relacion al codigo mostrado en esta pagina sera eliminado Usuarios registrados tienen preferencia en recibir respuestas de ayuda!! Ademas de poder insertar Imagenes,Enlaces y otras propiedades del editor. Por favor, insertar los comentarios descriptivos.