|
Este script ASP a sido muy pedido asi que ahi va y espero que todos lo que lo pidieron lo usen en su pagina. Primero debemos hablar del archivo global.asa, este archivo debemos situarlo en la raiz del sitio y en el se escribiran las acciones a realizar segun el evento que corresponda.
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart
Application("usr_activos") = 0
End Sub
Sub Application_OnEnd
End Sub
Sub Session_OnStart
Session.Timeout = 20
Application.lock
Application("usr_activos") = Application("usr_activos") + 1
Application.unlock
End Sub
Sub Session_OnEnd
Application.lock
Application("usr_activos") = Application("usr_activos") - 1
Application.unlock
End Sub
</SCRIPT>
Bueno, este es todo el codigo que se precisa para contar los visitantes activos de un sitio, para poder visualizar la cantidad debemos poner lo siguiente.
<%
Response.Write Application("usr_activos")
%>
Lo que haremos ahora es explicar un poco el contenido del archivo global.asa, el mismo contiene los 4 eventos principales de un sitio web que son...
- Application_OnStart - Se produce con la primera peticion a nuestro sitio web.
- Application_OnEnd - Se produce cuando deja de funcionar nuestro sitio web.
- Session_OnStart - Se produce cuando entra un usuario al sitio.
- Session_OnEnd - Se produce cuando el usuario abandona el sitio.
En Application_OnStart lo que hacemos es inicializar la variable de aplicacion "usr_activos" a 0, luego en Session_OnStart incrementamos el valor de esta variable en 1 pero antes de esto debemos "lockear" el sitio para que otro usuario no pueda modificar este valor al mismo tiempo. En Session_OnEnd hacemos lo contrario, descontamos uno dado que este evento se produce cuando el usuario abandona el sitio. Bueno Saludos y a contar usuarios, .
|
