Beispielcode für ASP zum Erstellen von Protokolldateien
In diesem Beispiel zum Erstellen einer Protokolldatei mit Asp wird eine Textdatei zum Schreiben von Benutzerinformationen verwendet. Erstellen Sie eine Protokolldatei.asp und platzieren Sie sie oben auf jeder Asp-Seite. <!--#Include File=LogFile.asp-->Wenn jemand kommt Um Ihre Website zu besuchen, schreibt logfile.asp 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.jzxue.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
%>