Código fuente de 'Usuarios activos 3.asp'

<html>
<head>
<title>Usuarios activos 3 - Códigos asp, programacion asp, descargas asp, rutinas asp</title>
</head>
<body style="font-family: Arial; font-size: 9pt">

<center><b><font face="Arial" size="3">Usuarios activos 3</font></b></center><br>
<br>

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

</p>

</BODY>
</HTML>