|
|
|
prima cosa bisognera` creare un global.asa come il seguente:
<SCRIPT language="VBScript" Runat="Server">
Sub Application_OnStart
Application("Users") = ""
End Sub
Sub Session_OnEnd
Application.Lock
Application("Users") = Replace( Application("Users") , Session("utente") & "|" ,"")
'quando scade una sessione viene eliminato il nome dell'utente dalla variabile di
'applicazione che contiene l'elenco degli utenti attivi
Application.UnLock
End Sub
</SCRIPT>
Inoltre, nella pagina che controlla utente e password, ovvero la pagina di autenticazione, bisognera` aggiungere una routine che aggiunga alla variabile di Applicazione l'utente appena autenticato:
<%
Session("utente") = Request("Utente")
if InStr(1, Application("Users"), Session("utente") & "|" ) = 0 then
'se l'utente non e` gia` presente
Application.Lock
'viene aggiunto l'utente appena loggato alla stringa che contiene
' l'elenco degli utenti
Application("Users") = Application("Users") & Session("utente") & "|"
Application.UnLock
end if
%>
Infine, per mostrare la lista degli utenti loggati bastera` tramutare la variabile Application "Users" in una array splittandola per il carattere "|":
<%
dim arrUtenti
Response.Write "<b>Utenti Collegati:</b><br>"
arrUtenti = Split(Application("Users"),"|")
for i = 0 to UBound(arrUtenti)
Response.Write arrUtenti(i) & "<br>"
next
%>
|
|
|
|
Stampa 
