Este script ASP muestra en nuestro sitio web la cantidad de usuarios activos, es decir, que esten en ese momento visitando la web.

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.