Räknare med SessionID?

[Gäst ZackariasHoltelius]

Någon som kan ett bra script på en besökräknare som använder sig av SessionId för att registrera träffar (för att inte räkna vid varje reload)?

[Magnus Gladh]

Använd följande:

 

Lägg denna ko i en egen fil (inte nödvändigt).

 

<%

function counter(file)

Set objFS = CreateObject("Scripting.FileSystemObject")

Set objCounter = objFS.OpenTextFile(file)

counter = Clng(objCounter.ReadLine)

 

if Session("counter") = "" then

Session("counter") = counter

counter = counter + 1

objCounter.close

Set objCounter = objFS.CreateTextFile(file, True)

objCounter.WriteLine(counter)

end if

objCounter.Close

response.write(counter)

end function

%>

 

Sen inkluderar du filen på den sida där du vill ha räknaren. och där du vill ha räknaren skall skrivas ut skriver du:

<% counter("ADRESSEN_OCH_NAMNET_PÅ_FILEN_SOM_INNEHÅLLER_ANTALET_TRÄFFAR") %>

 

- Magnus

 

[Gäst ZackariasHoltelius]

Tack, men jag får det inte riktigt att funka.

 

" File not found "

 

Jag har lagt en textfil (med namnet "traffar.txt") i samma mapp som dokumentet med koden.

[Magnus Gladh]

Testa att skriva hela sökvägen till din fil.

 

- Magnus

[Gäst ZackariasHoltelius]

Provade med det, men webbplatsen ligger på en extern server så jag kan inte skriva sökväg från rot.

Provade alltså med Server.MapPath utan fungerande resultat.

 

Hur skulle koden se ut med filen "traff.txt"?