
Usuarios activos
ASP
Publicado el 4 de Febrero del 2002 por Administrador (718 códigos)
18.003 visualizaciones desde el 4 de Febrero del 2002
Determina el número de usuarios en el momento en la web






(8)














'Código para el archivo Global.asa'www.lawebdelprogramador.com
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart
Application("Active") = 0
End Sub
Sub Application_OnEnd
End Sub
Sub Session_OnStart
Session.Timeout = 20
Application.lockApplication("Active") = Application("Active") + 1
Application.unlockEnd Sub
Sub Session_OnEnd
Application.lockApplication("Active") = Application("Active") - 1
Application.unlockEnd Sub
</SCRIPT>








































En cualquier parte de la web que se quiera mostrar el numero de usuarios, colocar:
<%=Application("Active")%>