<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart Application.Lock Application("collegati") = 0 Application.UnLock End Sub 'Quando invece qualsiasi utente si collega al sito la 'variabile viene incrementata di 1. Sub Session_OnStart Application.Lock Application("collegati") = Application("collegati") + 1 Application.UnLock End Sub 'Quando esce si scala di 1. Sub Session_OnEnd Application.Lock Application("collegati") = Application("collegati") - 1 Application.UnLock End Sub </SCRIPT> 'Per visualizzare nella pagina il numero di accessi: <% response.write "Ci sono " & Application("collegati") & " utenti collegati." %> |