页面转向问题
这是我的登录窗口的代码:
----------------
Private Sub BtnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLogin.Click
If TxtUserName.Text.Trim <> "" And TxtUserPwd.Text.Trim <> "" Then
Dim Con As New NetPaperCon
Dim UserName = TxtUserName.Text
Dim UserPwd = FormsAuthentication.HashPasswordForStoringInConfigFile(TxtUserPwd.Text, "md5")
Dim Test As Integer = Con.Login("Login", UserName, UserPwd)
If Test = 0 Then
Session("UserName") = TxtUserName.Text
Session("UserId") = Con.OutPutSelectOne("SelectUserId", Session("UserName"))
Dim Rank As Integer = Con.OutPutSelectOne("SelectRank", UserName)
Session("UserRank") = Rank
FormsAuthentication.RedirectFromLoginPage(Session("UserName"), False)
If Rank = 10 Then
FormsAuthentication.RedirectFromLoginPage(TxtUserName.Text, False)
Response.Redirect("Admin/admin_Index.aspx")
ElseIf Rank = 2 Then
Response.Redirect("GB_Index.aspx")
ElseIf Rank = 1 Then
FormsAuthentication.RedirectFromLoginPage(Session("UserName"), False)
Response.Redirect("User_Index.aspx")
End If
LblMessage.Text = "asdf"
ElseIf Test = 2 Then
LblMessage.Text = "密码错误"
ElseIf Test = 1 Then
LblMessage.Text = "此用户不存在,请注册"
End If
End If
=============================
麻烦各位看下了,这个是登录窗口的代码,就登录功能来说是没有问题,但是页面不能转向,大家帮我看一下
问题点数:80、回复次数:5Top
1 楼yuanweiming841103(弦月摘星)回复于 2006-03-03 12:48:26 得分 0
怎么没有人回答呢?Top
2 楼daichenghua(爱是唯一)回复于 2006-03-03 12:54:14 得分 20
我帮你顶一下
Top
3 楼cxqhust1()回复于 2006-03-03 12:54:35 得分 20
单步跟踪看看?Top
4 楼ice226(ice226)回复于 2006-03-03 12:59:51 得分 20
Response.Redirect(string url,bool realdoredirect)
有时间看看库文件吧Top
5 楼lidong6(立冬)回复于 2006-03-03 13:23:50 得分 20
不用指定bool realdoredirect.
楼主看看有没有执行到Response.Redirect("User_Index.aspx")一句,
还有看看是不是已经转向了User_index.aspx但由于权限问题又回到登录页面来了.Top




