Originariamente inviato da Paul McCartney
Non ricordo più dove l'ho scaricata (forse oscarjsweb), cmq io uso questo script asp:
<%
counterFile = "\public\counterfile.txt"
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set readFile = FSO.OpenTextFile(Server.MapPath(counterFile))
lastVisit = CLng(readFile.ReadLine)
Set readFile = Nothing
If Not Request.Cookies("nomeCookies")("isvisitor") Then
lastVisit = lastVisit + 1
Set writeFile = FSO.CreateTextFile(Server.MapPath(counterFile))
writeFile.WriteLine(lastVisit)
Set writeFile = Nothing
Response.Cookies("nomeCookies")("isvisitor") = True
End If
Set FSO = Nothing
Response.Write "Visitatori: " & lastVisit
%>
Basta creare un file counterfile.txt (o cometipare.txt), e metterlo in una cartella coi permessi di scrittura (se non è public, correggi il percorso). Io l'ho messa nel frame con l'indice così è sempre visibile. Naturalmente il testo nell'ultima riga è modificabile come meglio credi.