PDA

View Full Version : How many users online?



Jack
05-24-2006, 11:20 PM
Create a text file and save it as global.asa and place the following code into it:


<SCRIPT LANGUAGE="VBScript" RUNAT="Server">

Sub Application_OnStart
' Set our user count to 0 when we start the server
Application("users") = 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("users") = Application("users") + 1
Application.UnLock
End Sub

Sub Session_OnEnd
' Decrease the active visitors count when the session ends.
Application.Lock
Application("users") = Application("users") - 1
Application.UnLock
End Sub

</SCRIPT>

Then in your webpage add the following:

There are
<%
Response.Write(Application("users"))
%>

Cold Gunmetal
05-29-2006, 12:52 AM
Cool beans. Thanks.