Strano problema di visualizzazione con questo script..

[pazzo2]

Ciao ragazzi..ho creato questo global.asa per visualizzare gli utenti connessi al sito (con i relativi nomi)..ma mi succede che vengono visualizzati tutti i nomi uno dopo l'altro, senza spazio...come mai?

GLOABAL.ASA

Sub Session_OnStart
Application.Lock
Application("onlinevisitors")=Application("onlinev isitors")+1
Application.UnLock
End Sub

Sub Session_OnEnd
Application.Lock
Application("onlinevisitors")=Application("onlinev isitors")-1
Application("Users") = Replace( Application("Users") , Session("utente") & "|" ,"")
Application.UnLock
End Sub

PAGINA VISUALIZZAZIONE
<%

dim arrUtenti
arrUtenti = Split(Application("Users"),"|")

for i = 0 to UBound(arrUtenti)
Response.Write arrUtenti(i)&"
"
next

response.write Application("onlinevisitors")&" utenti anonimi"
%>

[santino83]

fatti stampare application("user") e vedi che carattere divisorio è presente...

una domanda: in session_onend tu cancelli l'user dall'application...ma dov'è che ce lo metti nell'application? nella pagina di login?

[pazzo2]

nella pagina di login,...ho provato a modificare quella parte e sembra che funzioni...mancava un | ti faccio vedere:

Session("utente") = Request.Cookies("pizzut.it")("username")
if InStr(1, Application("Users"), Session("utente") & "|" ) = 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("utente") & "|"
Application.UnLock
end if


prima lo script era:
Application("Users") = Application("Users") & Session("utente") & "|"

ho modificato in
Application("Users") = Application("Users") &"|"& Session("utente") & "|"

e va bene...giusto?

[santino83]

mah a me non sembra giusto perchè, per un utente solo va bene, ma al secondo ti si raddoppiano le |

dovresti fare

if len(application("users"))=0 then application("users")="|"

Application("Users") = Application("Users") & Session("utente") & "|"

[pazzo2]

Quindi diventerebbe

if len(application("users"))=0 then
application("users")="|"
Application("Users") = Application("Users") & Session("utente") & "|"
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

giusto?

[santino83]

Application.Lock
if len(application("users"))=0 then 
application("users")="|"
end if

'viene aggiunto l'utente appena loggato alla stringa che contiene
' l'elenco degli utenti
Application("Users") = Application("Users") & Session("utente") & "|"
Application.UnLock

[pazzo2]

ok ho modificato cosi

Session("utente") = Request.Cookies("pizzut.it")("username")

if InStr(1, Application("Users"), Session("utente") & "|" ) = 0 then
Application.Lock
if len(application("users"))=0 then
application("users")="|"
end if

'viene aggiunto l'utente appena loggato alla stringa che contiene
' l'elenco degli utenti
Application("Users") = Application("Users") & Session("utente") & "|"
Application.UnLock
end if

Ma ho notato che mi lascia molto spazio tra un utente e l'altro...

[pazzo2]

ho detto una cacchiata perchè sembra che va bene...ti tengo aggiornato..

[pazzo2]

niente da fare..guarda che risultato

frankie79pirigonifrankie79

[santino83]

fatti stampare application("users")

response.write application("users")

e vediamo un pò che stringa c'hai...