activate.aspx.vb

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


Partial Class activate
    Inherits System.Web.UI.Page

    Dim student As New Student
    Protected Sub MyActivateUser_NextButtonClick(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.WizardNavigationEventArgs) Handles MyActivateUser.NextButtonClick
        If e.CurrentStepIndex = 0 Then

            Select Case student.UserExists(SearchAccount.Text)
                Case 0
                    SearchAccountMessage.Text = "帐号不可用"
                    e.Cancel = True
                Case 1
                    SearchAccountMessage.Text = "用户已激活,请"
                    HyperLink.Visible = True

                    e.Cancel = True
                Case 2
                    UserID.Text = SearchAccount.Text
                    SearchAccountMessage.Text = ""
                    e.Cancel = False
            End Select
        ElseIf e.CurrentStepIndex = 1 Then
            With student
                .StudentNo = UserID.Text
                .Password = Password.Text
                .Email = Email.Text
                .ClassNo = classno.text
                .Telephone = Telephone.Text
                .Role = "学生"
            End With
            Try
                student.AddStudent()
                e.Cancel = False
            Catch ex As Exception
                e.Cancel = True
            End Try


        End If

    End Sub
    Protected Sub MyActivateUser_Activate(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.WizardNavigationEventArgs) Handles MyActivateUser.PreviousButtonClick

        UserID.Text = ""
        Password.Text = ""
        ConfirmPassword.Text = ""
        Email.Text = ""
        ClassNo.Text = ""
        Telephone.Text = ""
        e.Cancel = True

    End Sub



    Protected Sub MyActivateUser_FinishButtonClick(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.WizardNavigationEventArgs) Handles MyActivateUser.FinishButtonClick
        Session("userid") = UserID.Text
        Session("role") = "学生"
        Response.Redirect("~/student/default.aspx")
    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub
End Class