我的页面有三个框架,top、left、right,布局为"T"形,用户登录框在top框架内完成,left框架中的页面根据top框架中的页面登录的用户组显示相应的树型菜单,菜单项的点击操作明细页面在right框架的页面中显示。
现在的问题是:
如果不操作left中的树,top中登录的用户相应的菜单树可以在left中正常显示,怎样切换用户,点击登录按钮,都完全正常。
这是登录按钮的代码:
Protected Sub btnLogin_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnLogin.Click
Dim tcManage As New MytcManage
If Trim(DdlUserID.SelectedValue).Length = 0 Or Trim(DdlUserID.SelectedValue) = "" Then
Response.Write("<script language='javascript'>alert('请输入用户编码.');</script>")
Return
End If
If Trim(txtUserPassword.Text).Length < 6 Or Trim(txtUserPassword.Text) = "" Then
Response.Write("<script language='javascript'>alert('密码长度不足6位.');</script>")
Return
End If
Dim dsLoginedUser As System.Data.DataSet = tcManage.tcUsers_Login(CInt(DdlUserID.SelectedValue), tcManage.GetHashString(txtUserPassword.Text))
If IsNothing(dsLoginedUser) Then
Response.Write("<script language='javascript'>alert('用户名或密码不正确,登录失败。');</script>")
Else
Dim UserInfo As New UserInfo
txtPopedom.Text = dsLoginedUser.Tables(0).Rows.Count.ToString
txtUserState.Text = DdlUserID.SelectedValue.ToString
UserInfo.UserID = dsLoginedUser.Tables(0).Rows(0).Item("tcID")
UserInfo.UserName = dsLoginedUser.Tables(0).Rows(0).Item("tcName")
UserInfo.UserGroup = dsLoginedUser.Tables(0).Rows(0).Item("tcUserGroup")
UserInfo.UserGroupName = dsLoginedUser.Tables(0).Rows(0).Item("tcUserGroupName")
Session("UserInfo") = UserInfo
txtUserState.Text = UserInfo.UserName + ":在线"
txtPopedom.Text = UserInfo.UserGroupName
Response.Write("<script language=javascript> top.frames.item('LeftFrame').location.reload();</script> ")
End If
End Sub
但是一担操作了left中的树节点(right中自然响应相应的页面),再在top中用其他组用户登录,right框架中就显示"不重新发送消息,则无法刷新网页"对话框,无论用“重试”或“取消”按钮操作,left中的树都不能正确显示相应的菜单树,只显示上次正确登录的用户组的菜单树。
这个问题折磨我三周了,高手能指点我吗?
积分可以全部给您,只求帮我解决。
这里先谢了!
现在的问题是:
如果不操作left中的树,top中登录的用户相应的菜单树可以在left中正常显示,怎样切换用户,点击登录按钮,都完全正常。
这是登录按钮的代码:
Protected Sub btnLogin_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnLogin.Click
Dim tcManage As New MytcManage
If Trim(DdlUserID.SelectedValue).Length = 0 Or Trim(DdlUserID.SelectedValue) = "" Then
Response.Write("<script language='javascript'>alert('请输入用户编码.');</script>")
Return
End If
If Trim(txtUserPassword.Text).Length < 6 Or Trim(txtUserPassword.Text) = "" Then
Response.Write("<script language='javascript'>alert('密码长度不足6位.');</script>")
Return
End If
Dim dsLoginedUser As System.Data.DataSet = tcManage.tcUsers_Login(CInt(DdlUserID.SelectedValue), tcManage.GetHashString(txtUserPassword.Text))
If IsNothing(dsLoginedUser) Then
Response.Write("<script language='javascript'>alert('用户名或密码不正确,登录失败。');</script>")
Else
Dim UserInfo As New UserInfo
txtPopedom.Text = dsLoginedUser.Tables(0).Rows.Count.ToString
txtUserState.Text = DdlUserID.SelectedValue.ToString
UserInfo.UserID = dsLoginedUser.Tables(0).Rows(0).Item("tcID")
UserInfo.UserName = dsLoginedUser.Tables(0).Rows(0).Item("tcName")
UserInfo.UserGroup = dsLoginedUser.Tables(0).Rows(0).Item("tcUserGroup")
UserInfo.UserGroupName = dsLoginedUser.Tables(0).Rows(0).Item("tcUserGroupName")
Session("UserInfo") = UserInfo
txtUserState.Text = UserInfo.UserName + ":在线"
txtPopedom.Text = UserInfo.UserGroupName
Response.Write("<script language=javascript> top.frames.item('LeftFrame').location.reload();</script> ")
End If
End Sub
但是一担操作了left中的树节点(right中自然响应相应的页面),再在top中用其他组用户登录,right框架中就显示"不重新发送消息,则无法刷新网页"对话框,无论用“重试”或“取消”按钮操作,left中的树都不能正确显示相应的菜单树,只显示上次正确登录的用户组的菜单树。
这个问题折磨我三周了,高手能指点我吗?
积分可以全部给您,只求帮我解决。
这里先谢了!
解决方案 »
- asp.net网站IIS在什么时候要重启,是手动还是自动重启?
- js怎么判断一个字符串是否包含另外一个字符串?
- 简单的sql语句
- TheBeerHouse微软经典asp.net源码. 谁有这个本源码的书呢?
- 如何实现文件浏览,选择文件后获取文件路径
- 关系饭碗问题,小弟在线跪求(新手)
- 奇怪 奇怪,大家都来看看,简单的页面编码问题,50送上
- 请问各位大侠,在asp.net中水晶报表是怎么打印的??????
- 请教个Session的问题
- vb.net语言如何能够打开一个新的窗口?response.redirect只能在当前窗口中打开新一页。
- 为什么添加WEB窗体 可以选择母版页 而ASP.NET WEB应用程序却没有
- 关于FormView的问题
另一个帖子我给你新回复了