Möchten Sie manchmal wissen, wer wann Ihre Website besucht, welche IP-Adresse usw. Lassen Sie mich Ihnen dieses Problem im Folgenden erläutern. In diesem Beispiel wird eine Textdatei zum Schreiben von Benutzerinformationen verwendet, um eine logfile.asp zu erstellen und diese oben auf jeder ASP-Seite zu platzieren. <!--#Include File=LogFile.asp-->Wenn jemand Ihre Website besucht, wird automatisch logfile.asp geschrieben Wenn die zugehörigen URLs identisch sind, wird die Datei nicht geschrieben.
Datei: LogFile.asp
Kopieren Sie den Codecode 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://vevb.com Dann
ValidEntry = False
Ende 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
%>