Ver Mensaje Individual
  #8 (permalink)  
Antiguo 27/03/2006, 14:01
Avatar de a n g e l u s
a n g e l u s
 
Fecha de Ingreso: enero-2006
Ubicación: Chile
Mensajes: 237
Antigüedad: 19 años, 3 meses
Puntos: 1
EJEMPLO DE GLOBAL ASA.
ESTO CUENTA LA CANTIDAD DE PERSONAS QUE ESTAN VIENDO TU PAGINA EN ESTE MOMENTO.

EJEMPLO PARA MOSTRAR LA APLICACION DE LAS VARIABLES DE APLICACION.

<object id="objmiInfo" runat="server" scope="application" progid="mswc.myInfo">
</object>

<script language="VBScript" runat="server">
'--sentencias que se ejecutan al entrar el primer usuario
sub application_OnStart()
'la primera vez que entra el primer usuario a esta pagina inicia el contador
application("ActiveUsers")=0
end sub

sub session_onstart()
'--sentencias que se ejecutan cada vez que entra un usuario
application.lock
'se cierra la aplicacion para que ningun otro usuario entre en este momento
'esto sucede en milesimas de segundo
'se agrega un usuario mas a la cuenta
application("ActiveUsers")=Application("ActiveUser s")+1
'se abre el contador para que continue funcionando
application.Unlock

end sub

sub session_OnEnd
'--sentencias a ejecutar al irse el usuario
application.lock
'el usuario deja de visualizar esta pagina y lo descontamos del contador
application("ActiveUsers")=application("ActiveUser s")-1
application.Unlock

end sub

</script>


ESA ES UNA APLICACION GENERAL PARA ESTE TIPO DE VARIABLES.
__________________
Atte,
A n g e l u s
Concepción - Chile
más vale respuestas bien pensadas, que 7000 post