Este es un pequeño contador que usa un archivo de texto y que comprueba si el visitante no es el mismo que ya hizon un hit.
lo verifica con una session para que un mismo visitante no hande haciendo hits irreales
Código:
<%
activo = session("activo")
on error resume next
set fso = createobject("scripting.filesystemobject")
set act = fso.opentextfile(server.mappath("asp_count.txt"))
counter = clng(act.readline)
if session("activo") <> "si" then
counter = counter + 1
end if
act.close
Set act = fso.CreateTextFile(server.mappath("asp_count.txt"), true)
act.WriteLine(counter)
act.Close
Response.Write "<font size=2 face=verdana,arial color=#ffffff class=textonegro1>Visitante: <b>" & counter &"</b></font>"
session("activo") = "si"
%>