Sessione

[Chris_ws]

Buona Sera a tutti, vi chiedo gentilmente di controllare queste pagine di login e per favore ditemi se la logica e il metodo va bene e se in questo caso è necessario un global.asa .

Ringrazio Anticipatamente Chris_ws


Pagina login.asp

login=request.Querystring("login")

username=request.Form("username")
password=request.Form("password")

if login then

if username=("") or password=("") then
response.Redirect("area_esito.asp?nolog=true")
end if

session("login")=true
session.Timeout=10

end if

' ------------------

if session("login") then

' dim + Connessione...........

select * from area where uname='"& username &"' and pword='"& password &"'")

if rs.BOF and rs.EOF then
response.Redirect("area_esito.asp?nolog=true")
end if

idsession=session.SessionID
session("idsession")=idsession

tipologia=rs.fields("tipologia")
session("tipologia")=tipologia

categoria=rs.fields("categoria")
session("categoria")=categoria

sottocategoria=rs.fields("sottocategoria")
session("sottocategoria")=sottocategoria

idazienda=rs.fields("idazienda")
session("idazienda")=idazienda

ragionesociale=rs.fields("ragionesociale")
session("ragionesociale")=ragionesociale

response.Redirect("area.asp")

else
response.Redirect("area_esito.asp?logout=true")
end if

-------------------------------------------------------------

Pagina area.asp

if session("login") then

controllo=session.SessionID
idsession=session("idsession")

if not idsession=controllo then
Response.redirect("area_esito.asp?logout=true")
end if

idazienda=session("idazienda")
ragionesociale=session("ragionesociale")
tipologia=session("tipologia")
categoria=session("categoria")
sottocategoria=session("sottocategoria")

else
response.Redirect("area_esito.asp?logout=true")
end if

-------------------------------------------------------------

Pagina area_esito.asp

logout=request.Querystring("logout")
nolog=request.Querystring("nolog")

if logout then

session.abandon

response.write("logout completato")

end if

if nolog then
response.write("dati non corretti")
end if

[maximum]

Un piccolo suggerimento, nella pagina di login anzichè fare tante sessioni per ogni voce:

idsession=session.SessionID 
session("idsession")=idsession 

tipologia=rs.fields("tipologia") 
session("tipologia")=tipologia 

categoria=rs.fields("categoria") 
session("categoria")=categoria 

sottocategoria=rs.fields("sottocategoria") 
session("sottocategoria")=sottocategoria 

idazienda=rs.fields("idazienda") 
session("idazienda")=idazienda 

ragionesociale=rs.fields("ragionesociale") 
session("ragionesociale")=ragionesociale

Fanne una solamente in cui concateni le singole voci, magari separate da #.
Poi quando le andrai a leggere splitti la sessione e scorri la stessa come array.

ES:

1)Recuperi le variabili in unica sessione

idsession = session.SessionID 
session("valori") = session("valori") & idsession & "#"

tipologia = rs.fields("tipologia") 
session("valori") = session("valori") & tipologia  & "#"

categoria = rs.fields("categoria") 
session("valori") = session("valori") & categoria & "#"

sottocategoria = rs.fields("sottocategoria") 
session("valori") = session("valori") & sottocategoria & "#"

idazienda = rs.fields("idazienda") 
session("valori") = session("valori") & idazienda & "#"

ragionesociale = rs.fields("ragionesociale") 
session("valori") = session("valori") & ragionesociale & "#"

2)Splitti e scorri l'array:

arrSessione = split(session("valori"), "#")
for i = 0 to Ubound(arrSessione)
    response.write(arrSessione(i) & "
")
next

[Chris_ws]

Grazie Mille per il suggerimento

ma, la logica e il metodo vanno bene e sopratutto, leggendo il mio libro ASP 3.0 ho letto che si dovrebbe sempre creare un file global.asa vuoto es.

<script language=vbscript runat=server>

sub application_OnStart()
End Sub

sub application_OnEnd()
End Sub

sub session_OnStart()
End Sub

sub session_OnEnd()
End Sub

</script>

a senso se di fatto non lo si utilizza ?

[maximum]

Non tanto direi.

[Chris_ws]

Ok Grazie maximum

[maximum]

Prego.