取session值的问题
我编了如下代码,但是不知道为什么textbox1为什么取不到session的值啊?
Dim str2 As String
Dim user As Object
SqlConnection1.Open()
str2 = "select * from mima where xingming='" & name.Text & "'"
Dim sqlcmd = New SqlClient.SqlCommand(str2, SqlConnection1)
Dim dr As SqlClient.SqlDataReader = sqlcmd.ExecuteReader
While (dr.Read())
If Trim(password.Text) = Trim(dr(1)) Then
' Response.Write("<script>alert('登陆成功!');</script>")
Response.Redirect("汽车衡统计查询系统.aspx")
Session("User") = 1
TextBox1.Text = Session("User")
Else : Response.Write("<script>alert('密码不正确!');</script>")
End If
End While
dr.Close()
SqlConnection1.Close()