Antal besøgende

Skal du blot have en forklaring eller en hel kode?

Forklaringen kommer her:

Du skal gemme oplysningerne i en db (eller to).

Et sted gemmer du ip-adresserne for dine besøgende. Hvis den samme Ip besøger dit sted inden for den samme time, skal du ikke lægger +1 til din counter... Ellers skal du...

Kort og præcist eller ?

Jeg leder efter noget mere enkelt. Jeg vil helst uden om databaserne.

en lille simpel sag der benytter sessions og textfiler..

<%
if not Session("tralala") <> "" then
set fs = CreateObject("Scripting.FileSystemObject")
filespec = server.mappath("db/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") = "tralala"
%>
lig det her i toppen af din kode.. Så skal du bare have en fil der hedder count.txt i mappen db, det kan du naturligvis selv passe til..

http://www.gruvsjo.com/main.asp?cat=script&ucat=asp&viewID=39

Du kan også gøre som ellebaek og så smide en cookie hos brugeren. En cokkie der bliver slettet efter en time. Hvis den så er til sted skal du ikke counte...

ch007 -> hvorfor ikke bare benytte sessions som min mulighed allerede gør..
Så kan man altså ændre i hvor længe sessionen skal gælde..

altså -> altid ;-)

ellebaek < Hvis den ryger ind i min top af default.asp, hvordan kalder jeg så antallet ud ?

ellebaek. Det har du ret i. Tænkte bare at jeg ville give ham et par muligheder. Især efter at jeg har oplevet problemer med session og leger med cookies for at afhjælpe mine problemer...

hvis du skal udskrive så kan du benytte:

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

og hvis du vil ændre hvor længe sessionen skal gælde kan du bruge:

Session.timeout 60

og så med et = tegn:
Session.timeout = 60

så gælder sessionen en time.

hmm. interessant formulering.. if not Session("tralala") <> "" then
:-)

Det svare jo til if Session("tralala") = "" then ..?

surfer -> ja.. ;-)

jeg er også mest til = "" for ellers giver det ikke farver på mine koder i stones webwriter..
Problemet er bare at det til tider giver mig problemer (Spørg mig ikke hvorfor (-:)..
For tiden benytter jeg mest if isEmpty(Session("tralala"))
men det er mest hvad jeg lige er i humør til :-)

Lukker

Nogle der skal have points ?

kun hvis du synes de er fortjent.

men her er i hvert fald et svar...

Du har fortjent det ;)