Les paso sencillo contador

[sjam7]

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

[Bravenap]

Muchas gracias por el ejemplo. Una preguntita:

¿No sería mejor no sobrescribir el archivo de texto? Podrías usar el objeto ya abiero para sustituir el valor de act.readline. Así si ahorraría recursos, creo yo.

¿Podría crear conflictos dos visitas simultáneas?

Sería bueno también indicar que es necesario tener habilitados los permisos de escritura en el servidor. Sobre todo para que no te acribillen a preguntas del tipo "no me funciona", "me da error ..."

Un saludo.

[sjam7]

de lo primero nunca lo habia pensado ni probado, de lo segundo tienes toda la razon TIENEN QUE TENER PERMISOS DE ESCRITURA

[orharo2003]

Coincido con el compañero anterior.

Gracias y saludos.

[sjam7]

y como podria quedar mejor?

[Bravenap]

No, si mejor no tiene porqué estar. Es simplemente una consideracón técnica a tener en cuenta porque si no, puedes encontrarte con situaciones en las que no funcione y no sabes porqué.

Un saludo.