Passaggio di dati con la login

**bibuz** · 09-03-2004, 16:48

Salve a tutti io vorrei passare il parametro l'"ID_login" al momento dell'esecuzione del comando di modo che alla pagina cui si accede posso creare un DataSet filtrato in base all'"ID_login" per poter visualizzare il nome dell'utente loggato.
Il db è in access e contiene la tabella "login" composta dai campi "ID_login", "username" e "pwd".
Ho provato così

codice:

Response.Redirect("gestioneFormaggi.aspx?ID_login=" & login)

ma mi restituisce il seguente errore:

BC30455: Argument not specified for parameter 'e' of 'Public Sub Login(sender As Object, e As System.EventArgs)'.

e mi evidenzia in rosso la riga n° 30:
Line 28: Else
Line 29: Session.Item("login") = 1
Line 30: Response.Redirect("gestioneFormaggi.aspx?ID_login= " & login)
Line 31: End If
Line 32: objReader.Close()

Dove sbaglio.

Ciao e tutti

**sms** · 09-03-2004, 17:18

io nn lo passerei con querystring ..
mettiamo ke 1 utente modifica gestioneFormaggi.aspx?ID_login=1 in gestioneFormaggi.aspx?ID_login=2 ..
può eseguire operazioni con l'utente di id 2, anke se poi lui è l'1!!

passalo come session

**bibuz** · 09-03-2004, 17:21

Hai per caso un' esempio.
Ciao.

**sms** · 09-03-2004, 18:11

prova cosi

nella pagina ke hai postato:
Else
Session.Item("login") = 1
Session("id_login") = tua_variabile
Response.Redirect("gestioneFormaggi.aspx")
End If
objReader.Close()

nella pagina gestione.aspx
Sub Page_Load()
Response.Write("L'utente loggato ha ID " & Session("id_login"))
End sub

**bibuz** · 09-03-2004, 18:23

Ho provato a modificare il codice così:

codice:

<%@ Page Language="VB" debug="true" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.data.OleDb" %>
<html>
<head>
<title>Loginnati</title>
<script runat="server">
Sub Page_Load()
Dim errore As Integer
errore = Request.Params("error")
If errore = 1 Then
Response.Write("<p class='error'>Utente o password errati, Riprovare.</p>")
End If
If Session.Item("login") = 1 Then
response.Redirect("categorie.aspx") 
End If
End Sub

Sub Login (sender As Object, e As System.EventArgs)
Dim Con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:\Inetpub\wwwroot\provedw\db\prova.mdb")
Dim sqlString = "SELECT * FROM login WHERE pwd ='" & txtPass.Text & "' AND username='" & txtId.Text & "'"
Dim myCommand As New OleDbCommand(sqlString, Con)
Dim objReader As oleDbDataReader
Con.Open()
objReader = myCommand.ExecuteReader()
If Not objReader.Read() Then
Response.Redirect("login.aspx?error=1")
Else 
Session.Item("login") = 1 
Session("id_login") = login 
Response.Redirect("gestioneFormaggi.aspx") 
End If 
objReader.Close() 
</script>
</head>

<body>
<form method="post" name="login" runat="server">
  

ID : 
    <asp:textbox ID="txtId" Rows="1" Width="120" runat="server" />
    

    Password : 
    <asp:textbox ID="txtPass" TextMode="Password" Rows="1" Width="120" runat="server" />
    

    <asp:button ID="btnSubmit" runat="server" Text="entra" OnClick="Login" />
  </p>
  

Inserisci un nuovo utente</p>
</form>
</body>
</html>

Però appena faccio il prewiew mi dice:

BC30455: Argument not specified for parameter 'e' of 'Public Sub Login(sender As Object, e As System.EventArgs)'.

e mi evidenzia in rosso la riga n° 30:

Line 28: Else
Line 29: Session.Item("login") = 1
Line 30: Session("id_login") = login
Line 31: Response.Redirect("gestioneFormaggi.aspx")
Line 32: End If

Non dovrei mettere un End Sub alla fine?

Ciao.

**sms** · 09-03-2004, 20:12

certo ke devi mettere END SUB!!!!

se anke cosi nn va sostituisce Sub Login (sender As Object, e As System.EventArgs) con Sub Login ()

**bibuz** · 09-03-2004, 20:29

Ho provato ma mi restituisce questo errore sulla riga di sub Login():

BC30205: End of statement expected.

**zampa28** · 09-03-2004, 20:43

non hai chiuso la routine Login, devi aggiungere "end sub" alla fine.

**bibuz** · 10-03-2004, 12:44

Ho chiuso con End Sub ma l'errore è sempre lo stesso. Lo script adesso è :

codice:

<%@ Page Language="VB" debug="true" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.data.OleDb" %>
<html>
<head>
<title>Loginnati</title>
<script runat="server">
Sub Page_Load()
Dim errore As Integer
errore = Request.Params("error")
If errore = 1 Then
Response.Write("<p class='error'>Utente o password errati, Riprovare.</p>")
End If
If Session.Item("login") = 1 Then
response.Redirect("categorie.aspx") 
End If
End Sub
Sub Login()(sender As Object, e As System.EventArgs)
Dim Con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:\Inetpub\wwwroot\provedw\db\prova.mdb")
Dim sqlString = "SELECT * FROM login WHERE pwd ='" & txtPass.Text & "' AND username='" & txtId.Text & "'"
Dim myCommand As New OleDbCommand(sqlString, Con)
Dim objReader As oleDbDataReader
Con.Open()
objReader = myCommand.ExecuteReader()
If Not objReader.Read() Then
Response.Redirect("login.aspx?error=1")
Else 
Session.Item("login") = 1 
Session("id_login") = login
Response.Redirect("gestioneFormaggi.aspx") 
End If 
objReader.Close() 
Con.Close()
End Sub
</script>
</head>

<body>
<form method="post" name="login" runat="server">
  

ID : 
    <asp:textbox ID="txtId" Rows="1" Width="120" runat="server" />
    

    Password : 
    <asp:textbox ID="txtPass" TextMode="Password" Rows="1" Width="120" runat="server" />
    

    <asp:button ID="btnSubmit" runat="server" Text="entra" OnClick="Login" />
  </p>
  

Inserisci un nuovo utente</p>
  <%
Response.Write ("Oggi è il: " & DateTime.Now())
%>
</form>
</body>
</html>

Mi restituisce sempre l'errore:
BC30205: End of statement expected.

Evidenziandomi sempre Sub Login().

**zampa28** · 10-03-2004, 14:10

ecco ora leva le prime 2 parentesi dopo Login.

Discussione: Passaggio di dati con la login

Strumenti discussione

Ricerca discussione

Visualizza

Passaggio di dati con la login

Permessi di invio