Contando visitantes activos

Para llevar un control de los visitantes activos en un sitio es necesario que el servidor tenga soporte del globlal.asa.

Lo que se hace en él, es crear un variable del objeto application. Esta variable será inicializada con cero dentro del global.asa cuando sea iniciada la aplicación (onstart) y se irá incrementando cada vez que un nuevo visitante inicie una sesión, se captura con el evento session_onstart.
Cuando un visitante abandona el sitio es necesario restar en uno la cantidad de sesiones, eso se realiza gracias al evento session_onend.

global.asa

Este archivo contendrá la siguiente información y se ubicará en el directorio raíz del sitio.

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
application("vactivos")=0
application("fecha")=date()
End Sub
Sub Application_OnEnd
End Sub
Sub Session_OnStart
application.lock
application("vactivos")=application("vactivos")+1
application.unlock
End Sub
Sub Session_OnEnd
application.lock
application("vactivos")=application("vactivos")-1
application.unlock
End Sub
</SCRIPT>

Y luego para mostrar esta cantidad de usuarios activos en alguna parte de nuestro pagina.asp se debe incluir el siguiente código:

<%=application("vactivos")%>

Para que quede mejor se puede "mezclar" (como habitualmente se hace con cualquier código ASP) con Html:

<p><font face=verdana size=1>Hay <%=application("vactivos")%> usuarios activos.</font></p>