Log-fil

Set fs = CreateObject("Scripting.FileSystemObject")
FileName = Server.MapPath("counter.log")
Set WriteFile = fs.OpenTextFile(FileName, 2, True)
WriteFile.WriteLine(Count)

//>Rune

Forklaring ønskes...

/cotus

Logger denne her IP, osv.? Hvordan bestemmer jeg hvad der skal logges? Hvor kan jeg definere .txt-filen? Hvordan kan jeg bestemme opbygningen af .txt-filen? Hvordan laver jeg udtræk fra log-filen?

/cotus

Det du søger er denne: - men en anden gang, så beskriv lige dit spm lidt bedere! .- jeg vidste jo ikke du ville ha' så mange ting... - og så til 15 point!

<%
    ' skal tomme referrers også gemmes i logfil ?
    logTomme = true

    ' find logfilens navn ud fra dags dato
    'filename = right("0" & year(now), 2) & right("0" & month(now), 2) & right("0" & day(now), 2) & ".log"
   
    'En samlet logfil istedet for en pr dag
    filename = "tracker.log"
       
    ' opret system objektet til filhåndtering
    Set fs = CreateObject("Scripting.FileSystemObject")

    ' opret en reference til vores logfil - enten eksisterende ellers oprettes en ny
    Set a = fs.OpenTextFile(server.mappath(filename), 8, True, False)

    ' hvis der er nogen referrer, så gemmes denne
    if request.servervariables("HTTP_REFERER") <> "" then
        a.writeline(time & " : [" & request.servervariables("REMOTE_ADDR") & "] - " & request.servervariables("HTTP_REFERER") & " - " & request.servervariables("HTTP_USER_AGENT"))
    else
        if logTomme then
            a.writeline(time & " : [" & request.servervariables("REMOTE_ADDR") & "] - " & request.servervariables("HTTP_REFERER") & " - " & request.servervariables("HTTP_USER_AGENT"))
        end if
    end if

    a.close
%>

Men held og lykke med det...!
//>Rune

Hmmm... hvordan banner jeg så en IP?

/cotus

Ved at skrive Request.ServerVariables("REMOTE_HOST")

Thx 4 Poinz!
//>Rune

Danke...

You are welcome! =)

/cotus