changepasswordcontrol.ascx.vb

来自「C#语言制作asp.net网上商店的」· VB 代码 · 共 32 行

Imports AspNetSecurity = System.Web.Security

Partial Class Admin_Management_Controls_ChangePasswordControl
    Inherits System.Web.UI.UserControl

    Protected Sub ChangePasswordPushButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ChangePasswordPushButton.Click
        Dim resultMsg As String = ""
        Dim mu As MembershipUser = AspNetSecurity.Membership.GetUser(hfUserName.Value)

        Dim _newPassword As String = Nothing
        If Membership.EnablePasswordRetrieval Then
            _newPassword = NewPassword.Text.Trim()
        End If
        Try

            mu.ChangePassword(mu.GetPassword(), _newPassword)
            ResultMessageControl1.ShowSuccess("密码更新成功")
        Catch ex As Exception
            ResultMessageControl1.ShowFail("更新密码失败.失败原因:" & ex.Message)
        End Try

 
    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            hfUserName.Value = Request("username")
        End If

    End Sub
End Class