Usuarios activos 3
3<!--
Código a introducir en el fichero Global.asa: -->
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
' Inicializar contador al arrancar el servidor
Application("ActiveUsers") = 0
End Sub
Sub Session_OnStart
' El timeout de la Sesión será de 20 minutos
Session.Timeout = 20
' Hora de comienzo de sesión (importantes sólo para asegurarnos de que iniciamos
una sesión)
Session("Start") = Now
' Incrementar los visitantes activos cuando se inicializa una sesión
Application.Lock
Application("ActiveUsers") = Application("ActiveUsers") + 1
Application.UnLock
End Sub
Sub Session_OnEnd
' Cuando se cierra la sesión se decrementa el número de usuarios activos
Application.Lock
Application("ActiveUsers") = Application("ActiveUsers") - 1
Application.UnLock
End Sub
</SCRIPT>
<!-- Código a introducir en la página donde se muestren los usuarios activos: -->
<%@ Language=VBScript %>
<HTML>
<HEAD>
<TITLE>Active Sessions</TITLE>
</HEAD>
<BODY>
<B><FONT COLOR="#CC0000"><%= Application("ActiveUsers") %></FONT> Active
Users</B>
</BODY>
</HTML>