reload-sikret counter ?

jeg ved det burde kunne gøres med sessions eller cookie's, men har ikke helt forstand på hvordan man gør dette.

Typisk vil man lave en session variable som sikre man kun tæller en session som et hit.:


<%
if Session("talt") = "" then
  Session("talt") = "ja"
  Set fs = CreateObject("Scripting.FileSystemObject")
  Wfile=server.mappath("counter.txt")
  on error resume next
  Set count = fs.OpenTextFile(Wfile)
  hits = Clng(count.ReadLine)
  hits = hits + 1
  count.close
  if error then
  hits = 1
  end if
  Set count = fs.CreateTextFile(Wfile,True)
  count.WriteLine(hits)
  count.Close
end if
%>
<%=hits%>

hmm... den tæller godt nok kun 1 gang nu.. men den viser så ikke hvor mange besøgende der har været når man opdaterer.
hvordan sætter man den så til, så den stadig læser det, men uden at tilføje igen ?

arh ups.... De skal så olaves så den ikke tæller op.:

<%
Set fs = CreateObject("Scripting.FileSystemObject")
Wfile=server.mappath("counter.txt")
on error resume next
Set count = fs.OpenTextFile(Wfile)
hits = Clng(count.ReadLine)
count.close
if Session("talt") = "" then
  Session("talt") = "ja"
  hits = hits + 1
  Set count = fs.CreateTextFile(Wfile,True)
  count.WriteLine(hits)
end if
if error then
hits = 1
end if
%>
<%=hits%>

hov der mangler en count.close i if sætningnen:


if Session("talt") = "" then
  Session("talt") = "ja"
  hits = hits + 1
  Set count = fs.CreateTextFile(Wfile,True)
  count.WriteLine(hits)
  count.close
end if

mange tak... så virker det =)

Ind holdet i counter.txt hedder bare "hits = 1" ik ?
& er det lige meget hvor den ligger (txt'en) altså?

Pft