modifica global.asa per tuenti online

[flasini]

salve
dopo diverse ricerche sul forum e su altri siti ho trovato uno script per vedere gli utenti online

attualment eilmio global.asa è

<SCRIPT LANGUAGE=VBScript RUNAT=Server>
SUB Application_OnStart
	'Definizione del nome del datasource ODBC che punta al DB 
	Application("DSN") = "DSN=databasesito"
	Application("ConnectionTimeout") = 120
	Application("Malfuzionamento") = "<font face=""Arial"" color=""RED"" size=""2"">E' stato riscontrato un malfunzionamento nel sistema.
 Se il problema persiste contattare il WebMaster</font>"
	' Definizioni per AAS (Asp Application Services")
END SUB 
</SCRIPT> 
 
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
SUB Session_OnStart
END SUB
</SCRIPT>

<SCRIPT LANGUAGE=VBScript RUNAT=Server>
SUB Session_OnEnd

END SUB
</SCRIPT>

a quel punto ho aggiunto quanto ho trovato, senza toccare nulla, il seguente script

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
	'Imposta a 0 il numero di utenti quando parte il servizio server
	Application("ActiveUsers") = 0
End Sub

Sub Session_OnStart
	'10 minuti di timeout
	Session.Timeout = 10
	'Inizia la sessione
	Session("Start") = Now
	'Incremento il numero di utenti all'inizio di una nuova sessione
	Application.Lock
	Application("ActiveUsers") = Application("ActiveUsers") + 1
	Application.UnLock
End Sub

Sub Session_OnEnd
	'Decremento il numero di utenti alla fine di ogni sessione
	Application.Lock
	Application("ActiveUsers") = Application("ActiveUsers") - 1
	Application.UnLock
End Sub
</SCRIPT>

ovviamente nella apposita pagina che dovrebbe dirmi quanti utenti ci sono, non appare nessun numero. quindi non funziona... almeno in locale perchè ho paura di provarlo sul sito

potreste dirmi dove sbaglio?

inoltre questo contatore tramite global.asa assorbe risorse ? banda ecc?

grazie anticipate

[flasini]

up

forse è difficile da configurare? cosa mi consigliate?

grazie anticipate

[F84]

io ho utilizzato il tuo secondo script in locale e mi funziona correttamente

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
	'Imposta a 0 il numero di utenti quando parte il servizio server
	Application("ActiveUsers") = 0
End Sub

Sub Session_OnStart
	'10 minuti di timeout
	Session.Timeout = 10
	'Inizia la sessione
	Session("Start") = Now
	'Incremento il numero di utenti all'inizio di una nuova sessione
	Application.Lock
	Application("ActiveUsers") = Application("ActiveUsers") + 1
	Application.UnLock
End Sub

Sub Session_OnEnd
	'Decremento il numero di utenti alla fine di ogni sessione
	Application.Lock
	Application("ActiveUsers") = Application("ActiveUsers") - 1
	Application.UnLock
End Sub
</SCRIPT>

per richiamare la variabile

utenti collegati=<%=Application("ActiveUsers")%>

[flasini]

ciao

grazie
io volevo comunque usare un pezzo del mio script
non so quale pezzo prendere
come assemblarli

grazie anticipate

ciao

[flasini]

up
se sbaglio qualcosa che succede?

assemblo?

porta via risorse?

[F84]

ma runat="server" non é proprio delle pagine aspx?


cmq credo che basti aggiungere le righe del tuo codice senza problemi :master:

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
	'Imposta a 0 il numero di utenti quando parte il servizio server
	Application("ActiveUsers") = 0
'Definizione del nome del datasource ODBC che punta al DB 
	Application("DSN") = "DSN=databasesito"
	Application("ConnectionTimeout") = 120
	Application("Malfuzionamento") = "<font face=""Arial"" color=""RED"" size=""2"">E' stato riscontrato un malfunzionamento nel sistema.
 Se il problema persiste contattare il WebMaster</font>"
	' Definizioni per AAS (Asp Application Services")

End Sub

Sub Session_OnStart
	'10 minuti di timeout
	Session.Timeout = 10
	'Inizia la sessione
	Session("Start") = Now
	'Incremento il numero di utenti all'inizio di una nuova sessione
	Application.Lock
	Application("ActiveUsers") = Application("ActiveUsers") + 1
	Application.UnLock
End Sub

Sub Session_OnEnd
	'Decremento il numero di utenti alla fine di ogni sessione
	Application.Lock
	Application("ActiveUsers") = Application("ActiveUsers") - 1
	Application.UnLock
End Sub
</SCRIPT>

[flasini]

non saprei se è asp.net

secondo voi questo script porta via risorse?

grazie anticipate

[F84]

io non ne ho idea

ma alla fine ti funziona?

[flasini]

l'ho provato su un altro mio sito e sembra di si

non so per le risorse che cosacomporta

grazie ancora..