这是login中的一段代码
If Ds.Tables("User").Rows.Count > 0 Then
Dim EmpId As String
EmpId = Ds.Tables("User").Rows(0)("EmployeeId")
Session("empid") = EmpId
Dim User As String
User = Trim(UserTextBox.Text)
Session("user") = User
Dim Role As String
Role = Ds.Tables("User").Rows(0)("Role")
Session("role") = Role
Return True
Else
Return False
End If
在其他页面无法取到session中的得值
If Ds.Tables("User").Rows.Count > 0 Then
Dim EmpId As String
EmpId = Ds.Tables("User").Rows(0)("EmployeeId")
Session("empid") = EmpId
Dim User As String
User = Trim(UserTextBox.Text)
Session("user") = User
Dim Role As String
Role = Ds.Tables("User").Rows(0)("Role")
Session("role") = Role
Return True
Else
Return False
End If
在其他页面无法取到session中的得值
If Ds.Tables("User").Rows.Count > 0 Then
检查一下你的
代码
应该没有问题的
如果后者的话你也可以看一下你的数据库中的记录是不是有什么问题