Sessione che non si chiude

[Luis33]

Ciao, quando scrivo in un global.asa:

application.lock 
session.timeout=5 
application("users")=cint(application("users"))+1 
Session("login") = False 
Application("User") = Replace( Application("User") , Session("login") & "|" ,"")
application.unlock 
End Sub 

Sub Session_OnEnd 
application.lock 
application("users")=cint(application("users"))-1 
application.unlock 
End Sub

dopo quanto tempo deve chiudersi la sessione?
e se la sessione non si chiude e l'utente rimane connesso anche qundo chiude il browser, da che dipende? :master:

[Corinna]

Nel tuo caso 5 minuti.

[Luis33]

Grazie.
lo supponevo ma in realtà una volta autenticato l'utente sembra rimanere perennemente connesso... dove sbaglio?:
ho inserito la parte rossa nella pagina di autenticazione:

<%
submitted = Request.Querystring("submitted")

Session("login") = Request("login")
if InStr(1, Application("User"), Session("login") & "|" ) = 0 then

Application.Lock

Application("User") = Application("User") & Session("login") & "|"
Application.UnLock

end if   
If Submitted then

	strConn = Application("dbconn")

	login = Request.Form("login")
	password = Request.Form("password")
	
	strsql = "Select id, login1, password1 FROM tbl_login "
	strsql = strsql & "WHERE login1 ='" & login & "' AND password1 = '" & password & "'"
	
	response.write strsql & "
"
	
	Set objConn = Server.CreateObject("ADODB.Connection")
	objConn.Open strConn
	set objRs = objConn.Execute(strsql)
	
	If objRs.EOF then
		'Non e' valido, mandalo indietro
		response.redirect "dx_old.asp"
	Else
		'e' valido, fallo entrare
		session("login") = True
		session("userName")=objrs("login1")
		session("id") = objrs("id")
		objRs.close
		Set objRs = Nothing
		response.redirect "area.asp"
	end if
%>

gli utenti vwngono visualizzati correttamente, ma dopo 5 minuti stanno sempre là...

[Corinna]

Ahem, non dovresti metterla nel global.asa?

[Luis33]

Originariamente inviato da Corinna
Ahem, non dovresti metterla nel global.asa?

Secondo le indicazioni di questo script pare di no:
http://www.aspitalia.com/liste/usag/script.aspx?ID=386

[Luis33]

sono sempre più perplesso... la procedura non va in errore ma dopo la autenticazione degli utenti:
pippo, giovanni, mario

quando mi riconnetto come 'giuseppe' stampa a video e ritrovo:
pippogiovannimario, giuseppe

e poi rimangono gli utenti sempre connessi e non viene rispettata la session.timeout=5

dove sbaglio? :master:

[Luis33]

Nessuna idea?
è come se rimanessero memorizzati gli accessi precedenti... :master:

[Luis33]

Ragazzi le ho provate tutte per le mie conoscenze... continua a funzionare male... che sia il global.asa (posto la parte sensibile)?

...........
application.lock 
Application("Utente") = ""
application("users")=0 
Application("dbconn") = strConn 
application.unlock 
End Sub 
...........
application.lock 
session.timeout=5 
Application("Utente") = Replace( Application("Utente") , Session("login") & "|" ,"")
application("users")=cint(application("users"))+1 
Session("login") = False 
application.unlock 
End Sub 

Sub Session_OnEnd 
application.lock 
application("users")=cint(application("users"))-1 
application.unlock 
End Sub

[Luis33]

Allora impostando così il global.asa, la visualizzazione dei nomi utenti loggati è corretta, rimane i problema che non scade mai la sessione e risultano anche a distanza di tempo, sempre connessi:

<script LANGUAGE="VBScript" RUNAT="Server"> 
Sub Application_OnStart 
application.lock 
Application("Utente") = ""
application("users")=0 
application.unlock 
End Sub 

Sub Application_OnEnd 
End Sub 

application.lock 
session.timeout=5 
application("users")=cint(application("users"))+1 
Session("login") = False 
application.unlock 
End Sub 

Sub Session_OnEnd 
application.lock 
application("users")=cint(application("users"))-1 
application.unlock 
Application.Lock
Application("Utente") = Replace( Application("Utente") , Session("utente") & "|" ,"")
Application.UnLock
End Sub 
</script>

che fatica, co' sto caldo