
04/01/2002, 09:32
|
 | | | Fecha de Ingreso: diciembre-2001
Mensajes: 5.286
Antigüedad: 23 años, 4 meses Puntos: 1 | |
Re: Ayuda Urgente Alguien sabe de esto ? en el archivo global.asa debes poner lo siguiente
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
Application.Lock
Application("Activos") = 0
Application.Unlock
End Sub
Sub Session_OnStart
Application.Lock
Application("Activos") = Application("Activos") + 1
Application.Unlock
End Sub
Sub Session_OnEnd
Application.Lock
Application("Activos") = Application("Activos") - 1
Application.Unlock
End Sub
Sub Application_OnEnd
'Cualquier código
End Sub
</SCRIPT>
Para mandar llamar los usuarios activos desde cualquier pagina usa esto
Response.Write("Hay " & Application("Activos") & " usuarios activos.")
<embed src="http://www.autocar.com.mx/images/logo.swf" type="application/x-shockwave-flash" width="468" height="60" play="true" wmode="transparent" menu="false" loop="true"> |