changepassword.aspx.vb

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


Partial Class student_changepassword
    Inherits System.Web.UI.Page


    Protected Sub btnSure_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSure.Click
        Dim student As New Student
        If student.ChangePassword(Session("userid"), CurrentPassword.Text, NewPassword.Text) Then
            lblShow.Visible = False
        Else
            lblShow.Visible = True
        End If
    End Sub

    Protected Sub btnCancel_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCancel.Click
        CurrentPassword.Text = ""
        NewPassword.Text = ""
        ConfirmNewPassword.Text = ""
        lblShow.Visible = False
    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Session("role") = "学生" Then
        Else
            Response.Redirect("~/Default.aspx")
        End If
    End Sub
End Class