Mostrar usuarios activos

Algo que puede llegar a ser muy interesante, es saber cuanto usuarios hay visitando nuestro sitio al mismo tiempo, ya sea como un servicio más del sitio o bien para realizar algunas estadísticas, que nos permitan conocer mejor las visitas de los usuarios.

Para realizar este ejemplo, vamos a utilizar el archivo Global.asa y cuatro eventos, para manejar las rutinas.

Application_OnStart

Application_OnEnd

Session_OnStart

Session_OnEnd

El archivo Global.asa debe quedar asi:

<SCRIPT LANGUAGE=VBScript RUNAT=Server>

Sub Application_OnStart

Application("visitas") = 0

Application("Active") = 0

End Sub

Sub Application_OnEnd

End Sub

Sub Session_OnStart

Session.Timeout = 20

Session("Start") = Now

Application.lock

Application("visitas") = Application("visitas") + 1

intTotal_visitas = Application("visitas")

Application.unlock

Session("VisitorID") = intTotal_visitas

Application.lock

Application("Active") = Application("Active") + 1

Application.unlock

End Sub

Sub Session_OnEnd

Application.lock

Application("Active") = Application("Active") - 1

Application.unlock

End Sub

</SCRIPT>

Ahora sólo nos falta crear el archivo mostrarvisitas.asp y listo.

<html>

<head>

<title>Mostrando la cantidad de usuarios activos</title>

</head>

<body>

Eres uno, de <%=Application("Active")%> visitantes en este momento.

</body>

</html>