Salve,
sto creando una bacheca dinamica, ho già inserito il numero di utenti connessi.
Il problema è questo : dato che tutti gli utenti per accedere a questa bacheca devono necessariamente essere iscritti e quindi effettuare il login, vorrei fare in modo che la pagina principale della bacheca mi dia oltre al "comune" numero di utenti connessi anche una lista dei nomi (gli user) degli utenti connessi in quel momento.
Ho inventato un mio sistema (non sò se è corretto..dategli un'occhiata) :
nella pagina principale.asp :
<%
'********creazione lista utenti************
dim cont,j, k
dim trov
trov=false
cont=Application("customercount")
'Application("customercount") è il num. degli utenti connessi
j=application("lista")
'application("lista") è un vettore che contiene i nomi degli ut.
redim preserve j(cont)
for k=1 to cont
if (strcomp(j(k),session("nome"),1))=0 then
'session("nome") contiene il nome dell'utente in questione
trovato=true
end if
next
if trovato=false then
j(cont)=Session("nome")
end if
application("lista")=j
.................%>

'*****************fine*********************

file global.asa :
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
SUB Session_OnStart
dim utente
dim nome


utente=0
nome=0
session("utente")=utente
session("nome")=nome
dim e,f,trov
trov=false
e=Application("customerCount")
f=Application("lista")
for k=1 to e
if (strcomp(session("nome"),f(k),1))=0 then
trov=true
end if
next
if trov=false then
Application.lock
Application("customerCount")=Application("customerCount")+1
Application.unlock

end if
END SUB

SUB Session_OnEnd
Application.lock

dim i,j,k,indice
i=Application("customerCount")
j=Application("lista")
for k=1 to i
if (strcomp(session("nome"),j(k),1))=0 then
indice=k
end if
next

if indice<i then
for k=indice to i-1
j(k)=j(k+1)
next
end if
i=i-1
redim preserve j(i)
Application("lista")=j
Application("customerCount")=Application("customerCount")-1

Application.unlock
END SUB

Sub Application_OnStart
dim v()
Application("lista")=v
Application("customerCount")=0
end sub

Sub Application_OnEnd
End Sub

</SCRIPT>

Se ritenete inopportuno questo sistema..............datemi la retta via !!!!!.......................ciao




Modificato - jhegar - 13 Mag 2002 18:54:40