<% '*********************************************** '* '* logger: diese Datei schreibt da Logfile '* und erzeugt jeden Tag ein neues, wenn '* wenigstens 1 Hit war. '* '* Konstante: conSourcePath (relativer Pfad zu den Logs) '* For Appending (intern) '* skip (Trennzeichen zur Auswertung) '* '*********************************************** CONST conSourcePath = "logdata\" CONST ForAppending = 8 CONST skip = "#" ' ExistFile = conSourcePath & Replace(CStr(DATE),".","") & ".log" ' Aufbau der physischen Pfade strPhysExistFile = Server.MapPath(ExistFile) SET FO=Server.CreateObject("Scripting.FileSystemObject") SET LogFile = FO.OpenTextFile(strPhysExistFile,ForAppending,TRUE) datetime = DATE & skip & TIME & skip ipnumber = Request.ServerVariables("REMOTE_ADDR") & skip browsert = Request.ServerVariables("HTTP_USER_AGENT") & skip jumpfrom = Request.ServerVariables("HTTP_REFERER") & skip loginfo = datetime & ipnumber & browsert & jumpfrom LogFile.WriteLine(loginfo) LogFile.Close %>