Usuarios activos 3


25<!-- 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>