0

大家好,我正在尝试为我的登录控件携带一个会话变量,我用它来传递到另一个页面并显示他们的详细信息。我正在使用 aspNetDB。我的用户名已设置为整数,因为它连接到另一个显示用户详细信息的数据库表,下面是我的代码:

    Protected Sub Login1_LoggingIn(sender As Object, e As System.Web.UI.WebControls.LoginCancelEventArgs) Handles Login1.LoggingIn

            Session("StaffNo") = Login1.UserName()

        End Sub

然后将代码发送到我的另一个页面,以在加载到数据网格上时显示其详细信息,但会话似乎没有进行:

Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        Try
            Dim Staff As String = CType(Session.Item("StaffNo"), String)
            Dim conn As SqlConnection
            Dim cmd As SqlCommand

            Dim cmdstring As String = "SELECT * FROM [User] WHERE studentnum = @StaffNo"
            conn = New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Database.mdf;Integrated Security=True;User Instance=True")
            cmd = New SqlCommand(cmdstring, conn)

            cmd.Parameters.Add("@StaffNo", SqlDbType.Char).Value = Staff
            conn.Open()

            Dim myReader As SqlDataReader

            myReader = cmd.ExecuteReader(CommandBehavior.CloseConnection)


            GridView1.DataSource = myReader
            GridView1.DataBind()

            conn.Close()
        Catch ex As Exception
            Response.Write("An error has occurred")
        End Try

    End Sub
4

1 回答 1

0
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
    Try  
Dim cmdstring As String = "SELECT * FROM [User] WHERE studentnum = '"& Session("StaffNo").ToString & "' "

End Sub
于 2014-03-14T18:34:07.857 回答