Utenti connessi che restano "sospesi"

[fraude]

Ciao a tutti; ho seguito le istruzioni su aspitalia per la visualizzazione del nick (come in questo forum) degli utenti connessi ad un'area riservata ed ho creato questo global.asa; succede però che, dopo la scadenza della sessione, se provo ad autenticarmi, trovo traccia degli ultimi utenti connessi, cioè il global.asa stampa a video gli utenti che mi hanno preceduto nell'area riservata come se rimanessero "sospesi", ad esempio mi autentico come "sottoscritto" e ritrovo a video:

Utenti connessi: pippogigialdomarcosottoscritto

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

Sub Application_OnStart 
Application("intActiveUserNumber") = 0 
Application("Users") = ""
End Sub 

Sub Session_OnStart 
Session.Timeout = 30 
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>

qualcuno può spiegarmi? grazie, buona giornata.

[fraude]

grazie. sono d'accordo su tutta la linea: ma se trovo gli utenti "sospesi" anche del giorno prima? non è un problema di sessione che non scade o sbaglio?

[fraude]

Originariamente inviato da ruggeria
dipende dalla durata della sessione.
Il valore di default lo imposti sul server.
Se invece si 20 minuti ci sono impostate 24 ore...

dunque a che serve specificare nel global.asa:

Session.Timeout = 30

[fraude]

Originariamente inviato da ruggeria
Ma non e' strana questa riga. Sembra che a te interessa memorizzare il nome degli utenti che si disconnettono invece che quelli che si loggano?

non ho capito... posso dirti che così recupero la "lista utenti connessi":

<%
        Dim arrUtenti
Response.Write "<font color=#000080 size=1 font face=verdana>Utenti Attivi: </font>"
arrUtenti = Split(Application("Users"),"|")
dim utenti 
for i = 0 to Ubound(arrUtenti)-1
if left(utenti,1) = "," then 
utenti = mid(utenti,2,len(utenti)-1) 
end if
if i<> UBound(arrUtenti)-1 then 
utenti = utenti & arrUtenti(i) & ", "
else 
utenti = utenti & arrUtenti(i) 
end if  
Next 
Response.Write "<font color=red size=1 font face=verdana> " & utenti & "</font>"
%>

[maximum]

Scusate l'intromissione, volevo solamente dire che quello script di aspitalia, l'ho usato pure io e il problema era identico a quello qui discusso, anche applicando il codice nella Session_onStart.

Alla fine ho optato per un sistema di gestione dei nick mediente tabelle da DB, query di lettura, inserimento, aggiornamento e cancellazione e devo dire che non mi rallenta affatto.

Se può interessare provo ad aiutarvi, fatemi sapere!

:weppos_docet:

[fraude]

i tuoi interventi sono sempre ben accetti, caro maximum... come organizziamo? mi mandi lo script? mi spieghi come fare? oppure? grazie.

[fraude]

Originariamente inviato da ruggeria
ora e' chiaro che il problema c'e'.
Secondo me se si aggiunge in ingresso e si toglie in uscita tutto dovrebbe tornare a funzionare.

ad esempio?

[fraude]

Originariamente inviato da fraude
ad esempio?

intanto con le modifiche suggerite da ruggeria lo script smette di funzionare... per prova ho portato a 10 il tempo di session.timeout e sembra che il problema sia risolto... ma il fatto che funzioni non vuol dire che sia corretto...

[maximum]

Originariamente inviato da fraude
i tuoi interventi sono sempre ben accetti, caro maximum... come organizziamo? mi mandi lo script? mi spieghi come fare? oppure? grazie.

Ho avuto una giornata molto faticosa e leggo ora questo tuo intervento.
Se vuoi mandami la tua mail, così ti scrivo come fare.

[fraude]

Ciao e bentrovato.

Rispondo in privato.

Grazie!