Counter som ikke tæller mig selv med

Du kan gøre sådan, hvis din server understøtter ASP. :)



<%
Function Counter()
  Dir = Server.Mappath("Counter.txt")
  Set File = CreateObject("Scripting.FileSystemObject")
  Set Count = File.OpenTextFile(Dir)
  Counter = Cint(Count.ReadLine)
  Count.Close
  If Session("Counter") = "" Then
    Session("Counter") = Counter
    If NOT request.servervariables("REMOTE_ADDR") = "127.0.0.1" Then 'Ændres til din IP adresse
        Counter = Counter + 1       
    End If
    Set Count = File.CreateTextFile(Dir,true)
    Count.WriteLine(Counter)
    Count.Close
  End If
  Set File = Nothing
  Set Count = Nothing
End Function
%>

<html>
<head>
<title>Counter</title>
</head>
<body>
En counter som er reload sikret og undlader en IP adresse.
<br><br>
Der har været <b><%=Counter%></b> på denne side.
</body>
</html>

Det der holder jo kun, hvis man har fast ip-adresse, et alternativ kunne være at lave en cookie til dig selv, og så tjekke om den findes, før du tæller besøgene op.

Ja det vil jeg nu også sige, du kan bare sætte en cookie til at holde i uendelig lang tid jo.

Hvordan laver jeg rent praktisk cookie løsningen?

http://www.w3schools.com/asp/asp_cookies.asp

Jeg kunne jo godt have sagt, at jeg ville foretrække php, men Jeres svar var til inspirerede til at komme videre.

http://hjemmesideskolen.frac.dk/cnttst/phpcounter.php
http://www.dunweber.com/docs/scripts/kildekoder/counter.source.php?close=1