Un contador de usuarios activos


http://www.asptutor.com

Contador de visitantes activos

Utilizaremos para llevar el control de visitantes activos una variable del objeto application.

Esta variable la inicializaremos a cero en global.asa cuando iniciemos la aplicación (application_onstart) y la iremos incrementando en uno cada vez que un nuevo visitante entre en la aplicación , capturaremos esta entrada en el evento session_onstart tambien en globla asa.

Reduciremos en uno el numero de vistante cada vez que uno de ellos abandone nuestra aplicación, esto lo sabremos gracias al evento session_onend 

Luego simplemente en nuestras páginas mostraremos el numero almacenado en la variable de aplicación.


        global.asa

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

 

mipagina.asp

<html>

........

Sois actualmente <%=application("vactivos")%> visitantes concurrentes

.....

</html>



Atras

Siguiente