
Usuarios activos
ASP
Publicado el 4 de Febrero del 2002 por Administrador (718 códigos)
17.829 visualizaciones desde el 4 de Febrero del 2002
Determina el número de usuarios en el momento en la web
'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.lock
Application("Active") = Application("Active") + 1
Application.unlock
End Sub
Sub Session_OnEnd
Application.lock
Application("Active") = Application("Active") - 1
Application.unlock
End Sub
</SCRIPT>
En cualquier parte de la web que se quiera mostrar el numero de usuarios, colocar:
<%=Application("Active")%>