Aqui les dejo un sencillo contador que usa un archivito .txt , mismo que si no existe lo crea
, ahi va el codigo del script.
Código PHP:
<%
activo = session("activo")
on error resume next
set fso = createobject("scripting.filesystemobject")
set act = fso.opentextfile(server.mappath("contador.txt"))
counter = clng(act.readline)
if session("activo") <> "si" then
counter = counter + 1
end if
act.close
Set act = fso.CreateTextFile(server.mappath("contador.txt"), true)
act.WriteLine(counter)
act.Close
counter=replace(counter,"0","<img src=imagenes/0.gif align=absmiddle>")
counter=replace(counter,"1","<img src=imagenes/1.gif align=absmiddle>")
counter=replace(counter,"2","<img src=imagenes/2.gif align=absmiddle>")
counter=replace(counter,"3","<img src=imagenes/3.gif align=absmiddle>")
counter=replace(counter,"4","<img src=imagenes/4.gif align=absmiddle>")
counter=replace(counter,"5","<img src=imagenes/5.gif align=absmiddle>")
counter=replace(counter,"6","<img src=imagenes/6.gif align=absmiddle>")
counter=replace(counter,"7","<img src=imagenes/7.gif align=absmiddle>")
counter=replace(counter,"8","<img src=imagenes/8.gif align=absmiddle>")
counter=replace(counter,"9","<img src=imagenes/9.gif align=absmiddle>")
Response.Write "VISITANTE: " & counter
session("activo") = "si"
%>
Ahora les explico, este script primero comprueba que no se haya abierto una session para este usuario, si no se ha abierto la abre, ¿para que? para que mientras el visitante ande navegando por nuestro sitio no genere hits a lo loco y sea un contador un poco mas real.
ademas, para hacerlo grafico uso el replace, si quieren que sea puro texto pues simplemente borran todas las instrucciones counter=replace....
Este script simplemente se pega en donde se quiere que aparezca el clasico "VISITANTE: ###"
Ahora solo restaria tener los gif y jugar un poco con ellos...saludos y ahi les dejo
