I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio
nicolacirotto
nicolacirotto
il 25 marzo 2003 alle 20:31
20 messaggi dal 07 marzo 2002
Ragazzi ho scritto questo codice in una pagina ASP(non nel Global.asa), per visualizzare il nome degli utenti connessi e di quelli non registrati!

Non mi funziona il timeout e OnEnd.

Help!!!

<%
If Instr(Application("connessi2"),trim(strDBNTUserName)) <= 0 Then
Application.Lock
Application("connessi2")=Application("connessi2")+1
Application.UnLock
Session.Timeout=1
end if
if Instr(";"&Application("connessi"),";"&trim(strDBNTUserName&";")) <= 0 Then
Application.Lock
Application("connessi")=Application("connessi")&strDBNTUserName&";"
Application.UnLock
Session.Timeout=1
end if
Sub Session_OnEnd
Application.Lock()
Application("connessi2")=Application("connessi2")-1
Application.UnLock()
End Sub
'Visualizza
arrayconn = Split(Application("connessi"), ";")
for i = 0 to UBound(arrayconn)-1
Response.write (arrayconn(i)&" - ")
next
Response.write ((Application("connessi2")&" Utenti non registrati "))
%>
Modificato da nicolacirotto il 25 marzo 2003 20.44 -
Modificato da nicolacirotto il 25 marzo 2003 20.45 -
RispondiQuoting
BrightSoul
BrightSoul
il 26 marzo 2003 alle 01:04
11.886 messaggi dal 09 febbraio 2002
Contributi
Ciao,
la Sub Session_OnEnd è una peculiarità del global.asa: è l'infrastruttura asp che la invoca in automatico quando termina la sessione di un utente.
Mettere questa sub in una pagina asp qualsiasi non produce lo stesso effetto... quindi è inutile :(


>> Non mi funziona il timeout

Da cosa hai capito che non funziona il timeout? non ti decrementa il numero dei connessi (questo è riconducibile al problema di prima: non potendo attivarsi la session_onEnd non ti viene decrementato il contatore delle presenze).

ciao
Enjoy learning and just keep making
RispondiQuoting
nicolacirotto
nicolacirotto
il 26 marzo 2003 alle 08:45
20 messaggi dal 07 marzo 2002
quindi la session_ONEnd la metto nel global.asa!!!

E il timeOut non mi aggiorna il numero!! anche perchè non gli dico cosa deve fare con il time out!!

Devo riguardarmelo un po!!
RispondiQuoting
BrightSoul
BrightSoul
il 26 marzo 2003 alle 11:54
11.886 messaggi dal 09 febbraio 2002
Contributi
Il timeout di sessione incorre dopo i minuti specificati dall'istruzione:
Session.Timeout=1

Quindi che succede? Dopo 1 minuto di inattività viene invocata la procedura Session_OnEnd. E' lì dentro che devi diminuire il numero dei connessi. Ok?
Enjoy learning and just keep making
RispondiQuoting
nicolacirotto
nicolacirotto
il 26 marzo 2003 alle 14:03
20 messaggi dal 07 marzo 2002
ci provo!!
RispondiQuoting
nicolacirotto
nicolacirotto
il 26 marzo 2003 alle 16:28
20 messaggi dal 07 marzo 2002
OK, sono riuscito a far aggiungere il nome dell'utente e se non è registrato prende l'indirizzo IP e sommaquanti indirizzi ci sono.

Adesso ho bisogno di voi per:

- Eliminare l'utente che si è scollegato
- Eliminare quello non registrato

----------------------Codice per registrare

IP = Request.Servervariables("REMOTE_ADDR")
if trim(strDBNTUserName) = "" Then
if Instr(Application("connessi2"),trim(IP)) <= 0 Then
Application.Lock
Application("connessi2")=Application("connessi2")&IP&";"
Application.UnLock
End if
Else
if Instr(";"&Application("connessi"),";"&trim(strDBNTUserName&";")) <= 0 Then
Application.Lock
Application("connessi")=Application("connessi")&strDBNTUserName&";"
Application.UnLock
end if
End if
arrayconn = Split(Application("connessi"), ";")

for i = 0 to UBound(arrayconn)-1
Response.Write (arrayconn(i)&" - ")
next
arrayconn2 = Split(Application("connessi2"), ";")
Response.Write "<br>Utenti non registrati: "&UBound(arrayconn2)
RispondiQuoting
nicolacirotto
nicolacirotto
il 31 marzo 2003 alle 07:56
20 messaggi dal 07 marzo 2002
nicolacirotto ha scritto:
OK, sono riuscito a far aggiungere il nome dell'utente e se non è registrato prende l'indirizzo IP e sommaquanti indirizzi ci sono.

Adesso ho bisogno di voi per:

- Eliminare l'utente che si è scollegato
- Eliminare quello non registrato

----------------------Codice per registrare

IP = Request.Servervariables("REMOTE_ADDR")
if trim(strDBNTUserName) = "" Then
if Instr(Application("connessi2"),trim(IP)) <= 0 Then
Application.Lock
Application("connessi2")=Application("connessi2")&IP&";"
Application.UnLock
End if
Else
if Instr(";"&Application("connessi"),";"&trim(strDBNTUserName&";")) <= 0 Then
Application.Lock
Application("connessi")=Application("connessi")&strDBNTUserName&";"
Application.UnLock
end if
End if
arrayconn = Split(Application("connessi"), ";")

for i = 0 to UBound(arrayconn)-1
Response.Write (arrayconn(i)&" - ")
next
arrayconn2 = Split(Application("connessi2"), ";")
Response.Write "<br>Utenti non registrati: "&UBound(arrayconn2)



heiii!!!

AIUTOO!!!
RispondiQuoting

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.