changepwd.aspx.vb

电子合同管理系统C#

Public Class ChangePwd
    Inherits System.Web.UI.Page
    Protected WithEvents lbUserId As System.Web.UI.WebControls.Label
    Protected WithEvents txtNewPwd As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtConfirmPwd As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtOldPwd As System.Web.UI.WebControls.TextBox
    Protected WithEvents CompareValidator1 As System.Web.UI.WebControls.CompareValidator
    Protected WithEvents UpdateBtn As System.Web.UI.WebControls.LinkButton

#Region " Web 窗体设计器生成的代码 "

    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
        If Not IsPostBack Then
            If Session("UserInfo") Is Nothing Then
                Response.Write("请您登陆！！！")
                Response.End()
            End If
            Dim obj As MemberInfo = CType(Session("UserInfo"), MemberInfo)
            lbUserId.Text = obj.MemberId
        End If
    End Sub

    Private Sub UpdateBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UpdateBtn.Click
        Dim UserInfo As MemberInfo = CType(Session("UserInfo"), MemberInfo)
        Dim obj As DBController = New DBController()
        If obj.GetMemberInfo(lbUserId.Text.ToString, txtOldPwd.Text.ToString) Is Nothing Then
            Response.Write("<script language=javascript>")
            Response.Write("window.alert('您输入的旧密码错误！');")
            Response.Write("window.location='ChangePwd.aspx';")
            Response.Write("</script>")
        End If
        Dim sqlstr As String
        If txtNewPwd.Text.ToString <> "" Then
            sqlstr = "update MemberInfo set Pwd='" + txtNewPwd.Text.ToString + "' where MemberId='" + lbUserId.Text.ToString + "'"
        Else
            sqlstr = "update MemberInfo set Pwd=null where MemberId='" + lbUserId.Text.ToString + "'"
        End If
        Dim objLog As SysLog = New SysLog()
        Try
            obj.ExecNonSql(sqlstr)
            objLog.AddLog(UserInfo, "用户修改密码", Request.UserHostAddress.ToString, "成功")
        Catch
            objLog.AddLog(UserInfo, "用户修改密码", Request.UserHostAddress.ToString, "失败")
            Response.Write("<script language=javascript>")
            Response.Write("window.alert('修改密码失败！');")
            Response.Write("window.location='ChangePwd.aspx';")
            Response.Write("</script>")
        End Try
        obj.Close()

        Response.Write("<script language=javascript>")
        Response.Write("window.alert('修改密码成功！');")
        Response.Write("</script>")
        Response.End()

    End Sub
End Class