Nem tæller

Hvad skal den tælle ?

hmm...

jeg har en tæller der benytter fso. Den er nem, og tæller kun hver enkelt bruger en gang.. Altså der bliver ikke talt mens brugeren surfer rundt på siden..

Det eneste du skal er at tilføje det her på forsiden i din kildekode:

<%
if session("tralala") = "" then
set fs = CreateObject("Scripting.FileSystemObject")
    filespec = server.mappath("count.txt")
    set file = fs.OpenTextFile(filespec,1)
    antal = file.readLine

    set file = fs.OpenTextFile(filespec,2)
    antal = antal+1
    file.write antal
session("tralala")="talt"
end if
%>

Så skal du benytte en textfil der hedder count.txt.. Den skal til at starte med kun indeholde et 0.

Når du så vil hente ud hvor mange brugere der har været på siden skriver du blot dette:


<%
set fs = CreateObject("Scripting.FileSystemObject")
filespec = server.mappath("count.txt")
set file = fs.OpenTextFile(filespec,1)
antal = file.readLine
response.write antal
%>

håber du kan bruge det..

jeg får denne fejl

Microsoft VBScript runtime error '800a003e'

Input past end of file

/Default.asp, line 6

hmm...

har du indsat et 0 i filen..=?

virker

super ;-)

Takker for points..
..Ellebæk!