default.aspx.vb

来自「毕业设计+图书管理系统+源码 需要的人下载。」· VB 代码 · 共 29 行


Partial Class _Default
    Inherits System.Web.UI.Page
    Dim um As New User
    Protected Sub OnAuthenticate(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.AuthenticateEventArgs) Handles MyLogin.Authenticate
       
        If um.Login(MyLogin.UserName, MyLogin.Password) Then
            Session("username") = um.UserName
            Session("role") = um.Role
            Session("userid") = MyLogin.UserName.ToString()

            Select Case Session("role").ToString
                Case "学生"
                    Response.Redirect("~/Student/Default.aspx")
                Case "教师"
                    Response.Redirect("~/Teacher/Default.aspx")
                Case "管理员"
                    Response.Redirect("~/Administrator/ReleaseNotice.aspx")
            End Select
        Else
            e.Authenticated = False
        End If
    End Sub
   
    Protected Sub LoginButton_Click(ByVal sender As Object, ByVal e As System.EventArgs)

    End Sub
End Class