Nomi degli utenti collegati

[puffetto]

ciao a tutti
sto utilizzando questo script x visualizzare il nome degli utenti collegati ed esso viene ricavato attraverso un cookie

ma quando lo metto on line mi restituisce tutti i nomi attaccati e non separati e con la virgola come invece dovrebbe

inoltre il global dopo 30 minuti dovrebbe chiudere l'application ed invece i nomi rimangono sempre memorizzati e x finire lo stesso utente se ritorna vede il suo nome ripetersi ad ogni aggiornamento di pagina....

questo è lo script:

 <%
Session("user") = Request.Cookies("nickchat")("nome")
if InStr(1, Application("Users"), Session("user") & "|" ) = 0 then


  'se l'utente non è già presente
  Application.Lock
  'viene aggiunto l'utente appena loggato alla stringa che contiene
  ' l'elenco degli utenti
  Application("Users") = Application("Users") & Session("user") & "|"
  Application.UnLock
end if

%>

<%
'NOME DEGLI UTENTI COLLEGATI
Dim arrUtenti
Response.Write "<font color=blue size=1 font face=verdana>utenti colegati: </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>"
%>

e questo è il global:

<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>

[luigi.84]

per separare i nick

<%
'NOME DEGLI UTENTI COLLEGATI
Dim arrUtenti
Response.Write "<font color=blue size=1 font face=verdana>utenti colegati: </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>"
%>

per non far più apparire un nick dopo 30 minuti credo la soluzione sia questa:

Sub Session_OnStart 
Session.Timeout = 30
Session("Start") = Now   
Application.Lock 
Application("intActiveUserNumber") = Application("intActiveUserNumber") + 1 
Application.UnLock 
End Sub

sulla prima sono sicuro..sulla seconda un pò meno

[Coleporter_2000]

if i<> UBound(arrUtenti)-1 then
utenti = utenti & arrUtenti(i) & ", "
else
utenti = utenti & arrUtenti(i) & ", "
end if

ma in queste linee non c'è differenza tra l'if e l'else.