Søger en tracker til min hjemmeside

Her er den i ASP:

<%
    ' 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
%>

Opret en fil der hedder tracker.log - og så skulle det gerne virke.. ;-)

Held og lykke
//>Rune

Hey cool den virker :o) men ka du ikke lige fortælle hvad "Mozilla/4.0" betyder?

Mvh
Bullet

har du ikke nogle andre gode ting man kunne sætte i den kode?? måske hva land den besøgende kom fra eller nogle andre ting man kunne tracke :o)

Mozilla er en browser lige som Explore...!


Hmm nej, detsvære ik' med hensyn til lande og det..!

//>Rune

Hvad med dato'er??? kunne være rigtig godt!

medions> sådan som jeg ser det i koden kan den lave en log fil per dag hmm ved hvad jeg skal gøre for at få det gjordt rigtigt??

Mvh
Bullet

lav en a.WriteLine og skriv Date() så kommer dato'en til at stå der....! og nej, den laver ikke en log fil for hver dag..!

//>Rune

Thx 4 Poinz
//>Rune

medions> kan du ikke lige smide det i koden så det virker med dato, så er du flink...

Bullet

:-) Jeg er sød..!

Here you go...!

<%
    ' 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") & " - " & Date())
    else
        if logTomme then
            a.writeline(time & " : [" & request.servervariables("REMOTE_ADDR") & "] - " & request.servervariables("HTTP_REFERER") & " - " & request.servervariables("HTTP_USER_AGENT") & " - " & Date())
        end if
    end if

    a.close
%>

//>Rune

Tak skal du have, det er jeg glad for!! :o)

Anytime!
Thx 4 Poinz!

//>Rune