changepasswordcontrol.ascx.vb

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

Imports AspNetSecurity = System.Web.Security
Partial Class Shop_User_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(My.User.Name)

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

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



    End Sub

   
End Class