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, .