% LogFileDate = Date LogFileName = "" If Month(LogFileDate) < 10 Then LogFileName = "0" End if LogFileName = LogFileName & Month(LogFileDate) If Day(LogFileDate) < 10 Then LogFileName = LogFileName & "0" End If LogFilName = "" & LogFileName & Day(LogFileDate) & Year(LogFileDate) & ".log" Set fs = CreateObject("scripting.FileSystemObject") Set a = fs.OpenTextFile(server.MapPath(LogFileName), 8, True, False) if request.ServerVariables("HTTP_REFERER")<= "" Then Request.ServerVariables("HTTP_REFERER") = 0 else a.Write("Dernier Site:" & Request.ServerVariables("HTTP_REFERER")) a.Write("adresse IP:" & Request.ServerVariables("REMOTE_ADDR")) & VBcrlf end if %>
|
|||||||||||||