Contador de visitas

luis
28 de Agosto del 2003
No sé como hacer un contador de visitas, ya he visto dos ejemplos en sendas paginas web pero están mal, porque cuando pulso el botón "buscar" que tengo en un formulario, se incrementa en uno el contador, y tambien cuando cambio de pagina.
Me han dicho algo de que hay que crear un objeto session y poner algo en el archivo global.asa pero no sé exactamente como se hace.
Gracias.

cartor
28 de Agosto del 2003
Amigo Luis, hay muchas maneras de hacer un contador de visitas, sin necesidad de tocar el global.asa -que no te recomiendo si no es para saber los usuarios activos y teniendo en cuenta que no todos los hosting te dan acceso a el.-

Aqui está el código que va en el Global.asa

<script language=vbscript runat=server>

Sub Application_OnStart
Application("Activos") = 0
End Sub

Sub Application_OnEnd
End Sub

Sub Session_OnStart
Application.Lock
Application("Activos") = Application("Activos") + 1
Application.Unlock
End Sub

Sub Session_OnEnd
Application.Lock
Application("Activos") = Application("Activos") - 1
Application.Unlock
End Sub

</script>



Y para mostrar la informacion que recoge el Global asa, o sea para mostrar los usuarios activos, deben poner lo siguiente en la página que muestran el dato:

<P>En este momento hay <%=Application("Activos")%> usuario/s en nuestro sitio</P>


Ahora bien, si lo que quieres es tener un contador de visitas con fichero de texto, entonces podemos hacer lo siguiente:

Aquí te muestro como crear un contador de visitar almacenando la información en archivo de texto.
Se debe ubicar el siguiente código ASP en una parte de la página en donde queremos mostrar la cantidad de visitas:

<%
on error resume next
' Creamos el objeto
set fso = createobject("scripting.filesystemobject")
' Seteamos el archivo txt
set act = fso.opentextfile(server.mappath("asp_count.txt"))
' Leemos el valor del archivo
counter = clng(act.readline)
' Sumamos uno a ese valor
counter = counter + 1
' Cerramos el objeto
act.close
' Creamos un nuevo archivo de texto
Set act = fso.CreateTextFile(server.mappath("asp_count.txt"), true)
' Escribimos el nuevo valor del contador
act.WriteLine(counter)
' Cerramos el objeto
act.Close-
' Y decimos la cantidad de visitas
Response.Write "Eres el visitante Nº: " & counter
%>

'También se puede guardar en un archivo (por ejemplo: contador.asp) y luego incluirlo en donde queramos:

'<!--#INCLUDE FILE="contador.asp"-->

saul giles
28 de Agosto del 2003
Hola amigo Cartor Saludos desde México

este codigo que estas mandando sirve tambien para incrustarlo en HTML de Macromedia Home Site?

por que lo trate de meter en el codigo y no corre