Plain and easy with soe VB code: 1:st create global.asa place it the root: <SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart ' Set our user count to 0 when we start the server Application("ActiveUsers") = 0 End Sub
Sub Session_OnStart ' Change Session Timeout to 20 minutes (if you need to) Session.Timeout = 20 ' Set a Session Start Time ' This is only important to assure we start a session Session("Start") = Now ' Increase the active visitors count when we start the session Application.Lock Application("ActiveUsers") = Application("ActiveUsers") + 1 Application.UnLock End Sub
Sub Session_OnEnd ' Decrease the active visitors count when the session ends. Application.Lock Application("ActiveUsers") = Application("ActiveUsers") - 1 Application.UnLock End Sub
</SCRIPT>
Now add this to your default.asp: <%= Application("ActiveUsers") %></FONT> Active Users
maybe someone knows how to use the global asa to also remember those, who are registered at the board and display their names. something like the other active users MOD, only based on the global.asa file...
Topic Locked
Posted - 07 April 2001 : 12:43:56
