La Web Buscar   
Manuales: 558
 
    Nombre del Tutorial

Número de usuarios activos con ASP

    Categoria Index / Programación / Asp
     Visitas 329
     Valoracion
     Fecha 13-03-2007
     Descripción Cómo mostrar nuestros usuarios activos a través de ASP. Una de las principales necesidades de un webmaster es la de hallar un código que les muestre cuántos usuarios activos hay en su sitio a la vez, en un momento dado. Este ejercicio consiste en controlar el número de usuarios activos que existen dentro de una web simultáneamente
Número de usuarios activos con ASP


Número de usuarios activos con ASP

Este ejercicio consiste en controlar el número de usuarios activos que existen dentro de una Web simultáneamente. Para poder llevar a cabo este ejercicio deberemos de utilizar el archivo global.asa y una variable de aplicación que lleve la cuenta de los usuarios activos.

Hay que recordar que el archivo global.asa se ejecuta cada vez que un usuario abre o cierra una sesión o bien cuando abrimos o cerramos la aplicación servidor. Cada vez que el usuario abra una sesión en nuestra Web se ejecutará el procedimiento Session_OnStart, en el cual incrementaremos la variable de aplicación. Cuando un usuario cierra la sesión se ejecuta el procedimiento Session_OnEnd donde decrementaremos la variable de aplicación.

Para que la variable de aplicación tenga un valor inicial, este se le daremos en el archivo global.asa, en el procedimiento Application_OnStart.

Cuando utilicemos la variable de aplicación deberemos de realizar un bloqueo sobre la misma (application.lock - application.unlock), ya que dicha variable esta disponible para todos los usuarios y podríamos tener problemas de integridad.

A la hora de mostrar el valor de la variable de aplicación, simplemente necesitaremos un Response.Write().

 

Global.asa

<SCRIPT LANGUAGE="VBScript" RUNAT="Server"> Sub Application_OnStart
  application("usuariosActivos") = 0
End Sub

Sub Application_OnEnd

End Sub

Sub Session_OnStart
  application.Lock
  application("usuariosActivos") = application("usuariosActivos")+1
  application.UnLock
End Sub

Sub Session_OnEnd  
application.Lock  
application("usuariosActivos") = application("usuariosActivos")-1  
application.UnLock
End Sub

</SCRIPT>

Mostrar.asp

<%   Response.Write ("Número de usuarios activos " & application("usuariosActivos")) %>

 

 

 




 
 

Ir arriba

MundoManuales.CoM © 2005
Haznos tu pagina de inicio Envianos un Email Enviar tutorial