Verwenden Sie Asp, um eine Protokolldatei zu erstellen. Erstellen Sie eine Protokolldatei.asp und platzieren Sie sie oben auf jeder Asp-Seite Wenn die Website logfile.asp besucht, schreibt sie ihre Informationen automatisch in LogFile.txt. Wenn die zugehörigen URLs identisch sind, wird die Datei nicht geschrieben.
Datei: LogFile.asp
Der Code lautet wie folgt:
<%
Dim ValidEntry ' Log-Variable
' Stellen Sie zunächst sicher, dass dieses Protokoll gültig ist
ValidEntry = True
' Wenn die Sitzungsvariable LogIn nicht leer ist
' bedeutet, dass diese Person bereits angemeldet ist
' und dann ValidLog auf False setzen
Wenn nicht IsEmpty(Session(LogIn)), dann ist ValidEntry = False
' Hier können Sie verschiedene Einschränkungen hinzufügen
' Wenn die verweisende URL von derselben Site stammt
' nicht in die Protokolldatei schreiben
Wenn übrig (Request.ServerVariables(HTTP_REFERER), 17)
=http://jzxue.com Dann
ValidEntry = False
Beenden Sie, wenn
Wenn übrig (Request.ServerVariables(HTTP_REFERER), 21)
=http://www.vevb.com Dann
ValidEntry = False
Ende wenn
' Wenn ValidEntry nun True ist, geben Sie es in die Protokolldatei ein
Wenn gültiger Eintrag, dann
ConstForAppending = 8
Const Create = true
Schwaches FSO
DIM TS
DIM MyFileName
Dimmen Sie strLog
MyFileName = Server.MapPath(MyLogFile.txt)
Setze FSO = Server.CreateObject(Scripting.FileSystemObject)
Setze TS = FSO.OpenTextFile(MyFileName, ForAppending, Create)
'Speichern Sie alle erforderlichen Werte in strLog
strLog = <br><P><B> & jetzt & </B>
strLog = strLog & Request.ServerVariables(REMOTE_ADDR) &
strLog = strLog & Request.ServerVariables(HTTP_REFERER) &
strLog = strLog & Request.ServerVariables(HTTP_USER_AGENT) & <BR>
' Aktuelle Informationen in die Protokolltextdatei schreiben.
TS.write strLog
TS.Writeline
' Erstellen Sie eine Sitzungsvariable, um beim nächsten Mal nach ValidEntry zu suchen
Sitzung(LogIn) = ja
Setzen Sie TS = Nichts
Stellen Sie FSO = Nichts ein
Ende wenn
%>