当前文件路径：NetShopForge/Website/Admin/Login.aspx.vb

		            
 1Imports NetShopForge.Library.User
 2Partial Class Admin_LogonClass Admin_Logon
 3    Inherits System.Web.UI.Page
 4
 5    Protected Sub LoginAdmin_LoggedIn()Sub LoginAdmin_LoggedIn(ByVal sender As Object, ByVal e As System.EventArgs) Handles LoginAdmin.LoggedIn
 6        '  If My.User.IsInRole("Administrator") Then
 7        My.Response.Redirect("~/Admin/Default.aspx")
 8        '   End If
 9    End Sub
10
11    Protected Sub LoginAdmin_LoggingIn()Sub LoginAdmin_LoggingIn(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.LoginCancelEventArgs) Handles LoginAdmin.LoggingIn
12        Dim txtValidCode As TextBox = CType(LoginAdmin.FindControl("txtValidCode"), TextBox)
13
14        If txtValidCode.Text <> Session("vali") Then
15            Dim FailureText As Literal = CType(LoginAdmin.FindControl("FailureText"), Literal)
16            txtValidCode.Text = ""
17            FailureText.Text = "所填写的验证码与所给的不符"
18            e.Cancel = True
19        Else
20            If Not System.Web.Security.Roles.IsUserInRole(LoginAdmin.UserName, "Administrator") Then
21                CType(LoginAdmin.FindControl("FailureText"), Literal).Text = "您的登录尝试不成功。请重试。"
22                e.Cancel = True
23            End If
24        End If
25
26    End Sub
27
28
29End Class
30