Código de ejemplo para que ASP cree archivos de registro
Este ejemplo de creación de un archivo de registro con Asp utiliza un archivo de texto para escribir información del usuario. Cree un logfile.asp y colóquelo en la parte superior de cada página asp <!--#Include File=LogFile.asp-->Cuando alguien llega. para visitar su El sitio logfile.asp escribe automáticamente su información en LogFile.txt. Si las URL relacionadas son las mismas, el archivo no se escribirá.
Archivo: LogFile.asp
El código es el siguiente:
<%
Dim ValidEntry 'Variable de registro
' Primero establece que este registro es válido
Entrada válida = Verdadero
' Si el inicio de sesión de la variable de sesión no está vacío
' eso significa que esta persona ya ha sido iniciada
' luego establece ValidLog en False
Si no está vacío (sesión (iniciar sesión)), entonces ValidEntry = False
' Aquí puedes agregar diferentes restricciones
' Si la URL de referencia es del mismo sitio
'no escribir en el archivo de registro
Si se deja (Request.ServerVariables (HTTP_REFERER), 17)
= http://jzxue.com Entonces
Entrada Válida = Falso
terminar si
Si queda (Request.ServerVariables (HTTP_REFERER), 21)
= http://www.jzxue.com Entonces
Entrada Válida = Falso
Terminar si
' Ahora, si ValidEntry es True, ingrese al archivo de registro
Si entrada válida entonces
ConstParaAgregar = 8
Crear constante = verdadero
FSO tenue
DIM TS
DIM MiNombreDeArchivo
Dim strLog
MiNombreDeArchivo = Server.MapPath(MiArchivoDeRegistro.txt)
Establecer FSO = Server.CreateObject(Scripting.FileSystemObject)
Establecer TS = FSO.OpenTextFile(MyFileName, ForAppending, Create)
'Almacena todos los valores requeridos en strLog
strLog = <br><P><B> & ahora & </B>
strLog = strLog & Solicitud.ServerVariables(REMOTE_ADDR) &
strLog = strLog & Solicitud.ServerVariables(HTTP_REFERER) &
strLog = strLog y Solicitud.ServerVariables(HTTP_USER_AGENT) y <BR>
' Escribe la información actual en el archivo de texto de registro.
TS.escribir strLog
TS.Writeline
' Crea una variable de sesión para comprobar la próxima vez ValidEntry
Sesión (iniciar sesión) = sí
Establecer TS = Nada
Establecer FSO = Nada
Terminar si
%>