Count the Users Accessing the ASP Application

[thiruvasagamani]

The Application object is used,as it is global to all users. Remember to lock and unlock the Application object.

Code Select Expand

<%

session("account") = Request.Form("account")

%>


The session onstart and onend events are the two events used to add and remove the user from the total user count.

Code Select Expand

<%
Sub Session_OnStart()

   '**Put your code here **

    Application.Lock

    Application("totalusers") = Application("totalusers") + 1

   Application.Unlock

End Sub

Sub Session_OnEnd()

    '**Put your code here **

    Application.Lock

    Application("totalusers") = Application("totalusers") - 1

   Application.Unlock

End Sub

%>


To print the number of users,just print to the page like so,

Code Select Expand

<%

Response.Write "The number of users currently using the site are : " &  Application("totalusers")

%>