IP logging og aktivitet

Hvis du vil logge brugerens IPAdresse kan du med ASP skrive:

Response.Write(Request.ServerVariables("REMOTE_HOST"))

//>Rune

hvis du så vil se brugerens aktivitet, kan du jo bare gemme hans ip i en database, med side nummer, og så lave en side, hvor du kan slå personen med ip = xxx.xx.xx.xxx op og se hvilke sider han har besøgt, hvis det var ideen med det...

mvh.
www.questis.dk

som sagt, så fatter jeg ikke asp. Problemet er at jeg tror nogen roder med min side som de ikke har rettigheder til

well, så prøv på din i din Default.asp eller måske hedder den Index.asp og skrive indsætte dette i toppen:

<%

   
    ' 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

%>

her vil den oprette en fil på serveren, hvor den vil logge alle de iper der har besøgt din side..!

//>Rune

Nårjov.. du skal oxo lige oprette filen tracker.log på serveren! - efter det kan du bare gå ind på følgende adresse: www.ditdomæne.dk/tracker.log og så vil der komme en masse rækker linje som hver til indeholde en masse information om brugene!

//>Rune

en lille ændring til Runes svar.

<%

   
    ' 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

%>


som du kan se, har jeg sat et tegn *>. det skal selvfølgelig ikke være der, jeg mener bare at du skal fjerne den ' som jeg mener er blevet ramt ved en fejl, men ellers er det en fed kode....

Ok, fair nok aspprogram! Thx!

//>Rune

Vieles dankes...Det var lige det jeg skulle bruge!!! Mange tak =) og 60 point til medion

Thx 4 Poinz!
//>Rune

ps. jeg hedder Medions! -med S!!! ;-)

sorry =)