changepassword.aspx.vb

毕业设计+图书管理系统+源码 需要的人下载。

Imports Microsoft.VisualBasic
Imports System.Data
Imports System.Data.SqlClient

Partial Class Teacher_ChangePassword
    Inherits System.Web.UI.Page
    Dim tea As New Teacher
    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

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        display.Text = ""
        tea.TeacherNo = Session("userid")
        tea.Password = oricode.Text
        If (tea.ChangePassword(tea.TeacherNo, tea.Password, newcode.Text) = True) Then
            display.Visible = True
            display.Text = "修改成功"
        Else
            display.Visible = True
            display.Text = "修改失败，因为原始密码不正确"
        End If


    End Sub



End Class