Global.asa:
codice:
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
Application("intActiveUserNumber") = 0
Application("Users") = ""
End Sub
Sub Session_OnStart
Session.Timeout = 2
Application.Lock
Application("intActiveUserNumber") = Application("intActiveUserNumber") + 1
Application.UnLock
End Sub
Sub Session_OnEnd
Application.Lock
Application("intActiveUserNumber") = Application("intActiveUserNumber") - 1
Application("Users") = Replace( Application("Users") , Session("user") & "|" ,"")
Application.UnLock
End Sub
</SCRIPT>
Nella pagina dove vuoi vedere il numero degli utenti connessi:
codice:
<%= Application("intActiveUserNumber") %>
Il global.asa va caricato nella root principale del sito.