session无法传值

[cuilei19861122]

第一页

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
.....
if TextBox1.Text =trim(a) And TextBox2.Text =trim(b) and TextBox3.Text=Cstr(ViewState("VNum")) Then
Session("User1") =TextBox1.Text ‘输入的值是电话
Response.Redirect("./login.aspx")
....
Else

Label1.Text = "<font color='red'>您的信息不正确!</font>"
'刷新
'Response.Redirect(Request.Url.ToString())

end if
Loop
conn.Close()
End Sub



第二页（接值）
Sub Page_Load(ByVal Sender As Object, ByVal e As EventArgs)
dim num as integer
num=Session("User1")
Label8.text= num.tostring '为什么收不到

End Sub

谢谢

[heping173]

VB的不懂， 但有疑问，

num=Session("User1") //object类型的值赋给integer类型的变量

这里难道没有异常？

[lonelygames]

dim num as integer
num=Session("User1")
num 是integer Session("User1") 是string
居然能编译过去?

你还不如直接
Label8.text = Session("User1")
如果还不行
Label8.text = Session("User1").Tostring()

[lonelygames]

如果确需要用到 num且要赋值
得把 Session("User1") 转为integer

[msdnlu]

在num=Session("User1")这一句加上断点，看一下Session("User1")的值是多少。Label8.text要接收字符串类型的变量，赋值之前先数据转换。

[柳晛]

在VB.NET中，很智能，Object类型的值赋给Integer类型的变量，不会出现异常，绝大多数类型可以隐式转换，这一点和C#是不同的...