Utilice Asp para crear un archivo de registro. Este ejemplo utiliza un archivo de texto para escribir información del usuario. Cree un archivo de registro.asp y colóquelo en la parte superior de cada página asp <!--#Include File=LogFile.asp-->Cuando alguien. viene a 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 se deja (Request.ServerVariables (HTTP_REFERER), 21)
=http://www.vevb.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
%>