Problema session

mercoledì 25 luglio 2007 - 22.52

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

ertulio Profilo | Senior Member

312 messaggi | Data Invio: mer 25 lug 2007 - 22:52

Salve, ho due pagine admin.aspx e MenuAdmin.asp vorrei impostare una sessione in modo che MnuAdmin sia accessibile solo se il login è positivo.
Il mio problema è che quando eseguo il debug mi da thered interrotto mentre sul server si blocca la pagina. Vi posto il codice magari potete indicarmi dove sbaglio, grazie 1000

Admin.aspx:

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles accediButton.Click
Try
Dim login As String = TextBox1.Text()
Dim password As String = TextBox2.Text()
Dim command As New OleDbCommand

command.Connection() = connection
command.CommandText() = "SELECT * FROM Accesso WHERE User='" + login + "' AND Pass='" + password + "'"

Dim reader As OleDbDataReader = command.ExecuteReader()
TextBox1.Text() = ""
TextBox2.Text() = ""

If reader.Read() Then
Session("loggato") = True

reader.Close()
connection.Close()

*********/* qui inserisco la sessione session ("login")=1**********
Response.Redirect("MenuAdmin.aspx")

Else

reader.Close()
MsgBox("Nome utente o password errati.")
End If
Catch
MsgBox(Err.Description)
End Try
End Sub

MenuAdmin.aspx

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

if session ("login")= 0 then
respose.redirect (Admin.aspx)
end if
End Sub

Dove sbaglio^^
www.risorsefantacalcio.it

Risorse per tutti gli appassionati di fantacalcio da cui prelevare news, probabili formazioni, voti del corriere e gazzetta e tanhto altro.

ghio Profilo | Newbie

41 messaggi | Data Invio: gio 26 lug 2007 - 00:39

>Salve, ho due pagine admin.aspx e MenuAdmin.asp vorrei impostare
>una sessione in modo che MnuAdmin sia accessibile solo se il
>login è positivo.
>Il mio problema è che quando eseguo il debug mi da thered interrotto
>mentre sul server si blocca la pagina. Vi posto il codice magari
>potete indicarmi dove sbaglio, grazie 1000
>
>Admin.aspx:
>
>Protected Sub Button1_Click(ByVal sender As Object, ByVal e As
>System.EventArgs) Handles accediButton.Click
>Try
>Dim login As String = TextBox1.Text()
>Dim password As String = TextBox2.Text()
>Dim command As New OleDbCommand
>
>command.Connection() = connection
>command.CommandText() = "SELECT * FROM Accesso WHERE User='"
>+ login + "' AND Pass='" + password + "'"
>
>Dim reader As OleDbDataReader = command.ExecuteReader()
>TextBox1.Text() = ""
>TextBox2.Text() = ""
>
>If reader.Read() Then
>Session("loggato") = True
>
>reader.Close()
>connection.Close()
>
>*********/* qui inserisco la sessione session ("login")=1**********
>Response.Redirect("MenuAdmin.aspx")
>
>
>Else
>
>reader.Close()
>MsgBox("Nome utente o password errati.")
>End If
>Catch
>MsgBox(Err.Description)
>End Try
>End Sub
>
>
>MenuAdmin.aspx
>
>Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
>Handles Me.Load
>
>if session ("login")= 0 then
>respose.redirect (Admin.aspx)
>end if
>End Sub
>
>
>
>Dove sbaglio^^
>www.risorsefantacalcio.it
>
>Risorse per tutti gli appassionati di fantacalcio da cui prelevare
>news, probabili formazioni, voti del corriere e gazzetta e
>tanhto altro.
non capisco una cosa:
se il reader legge imposti una variabile di sessione "loggato"
mentre quando vai a leggere in MenuAdmin.aspx cerchi "login"
probabbilmente l'errore che ti da è che non trova la variabile "login".
Ciao, M

ertulio Profilo | Senior Member

312 messaggi | Data Invio: gio 26 lug 2007 - 11:18

Ciao, nel codice postato ho inserito una riga in più, il codice giusto è questo

Admin.aspx:

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles accediButton.Click
Try
Dim login As String = TextBox1.Text()
Dim password As String = TextBox2.Text()
Dim command As New OleDbCommand

command.Connection() = connection
command.CommandText() = "SELECT * FROM Accesso WHERE User='" + login + "' AND Pass='" + password + "'"

Dim reader As OleDbDataReader = command.ExecuteReader()
TextBox1.Text() = ""
TextBox2.Text() = ""

If reader.Read() Then

*********/* qui inserisco la sessione session ("login")=1**********

reader.Close()
connection.Close()

Response.Redirect("MenuAdmin.aspx")

Else

reader.Close()
MsgBox("Nome utente o password errati.")
End If
Catch
MsgBox(Err.Description)
End Try
End Sub

MenuAdmin.aspx

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

if session ("login")= 0 then
respose.redirect (Admin.aspx)
end if
End Sub

Però cmq non funziona dove sbaglio? bisogna configurare qualcosa nel webconfig?? grazie
www.risorsefantacalcio.it

Risorse per tutti gli appassionati di fantacalcio da cui prelevare news, probabili formazioni, voti del corriere e gazzetta e tanhto altro.

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !