Avatar billede bullet! Nybegynder
18. april 2002 - 22:27 Der er 11 kommentarer og
1 løsning

Søger en tracker til min hjemmeside

Er der ikke nogen der ka give mig nogle links til at downloade nogle/en Tracker til min hjemmeside, der kan tracke Ip nummer, hvad tid besøgende har været der, f.eks hvor langtid den besøgende har været på, hvad for en browser og styresystem den besøgende havde og hvor mange der har været i alt den pågældene dag o.s.v jo mere infomation den ka tracke jo bedre, det er lige meget hvad det er programmeret i CGI, PHP, ASP o.s.v bare den selvfølgelig skriver en log eller måske logger det i en adminstrator side.. skal virke.... :o)

MVH
Bullet
Avatar billede medions Nybegynder
18. april 2002 - 22:42 #1
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
Avatar billede bullet! Nybegynder
20. april 2002 - 07:54 #2
Hey cool den virker :o) men ka du ikke lige fortælle hvad "Mozilla/4.0" betyder?

Mvh
Bullet
Avatar billede bullet! Nybegynder
20. april 2002 - 08:11 #3
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)
Avatar billede medions Nybegynder
20. april 2002 - 14:45 #4
Mozilla er en browser lige som Explore...!


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

//>Rune
Avatar billede bullet! Nybegynder
20. april 2002 - 16:22 #5
Hvad med dato'er??? kunne være rigtig godt!
Avatar billede bullet! Nybegynder
22. april 2002 - 01:54 #6
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
Avatar billede medions Nybegynder
22. april 2002 - 15:38 #7
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
Avatar billede medions Nybegynder
22. april 2002 - 15:38 #8
Thx 4 Poinz
//>Rune
Avatar billede bullet! Nybegynder
23. april 2002 - 01:53 #9
medions> kan du ikke lige smide det i koden så det virker med dato, så er du flink...

Bullet
Avatar billede medions Nybegynder
23. april 2002 - 15:42 #10
:-) 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
Avatar billede bullet! Nybegynder
25. april 2002 - 14:17 #11
Tak skal du have, det er jeg glad for!! :o)
Avatar billede medions Nybegynder
27. april 2002 - 18:21 #12
Anytime!
Thx 4 Poinz!

//>Rune
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester