CODE：

  Public Cn As New OleDbConnection
  Public MngName As String
  Public MngOPwd As String
  Public MngNPwd As String
  Public MngCPwd As String

  Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    '读取栏位资料

    Dim LoginStates As HttpCookie = Request.Cookies("LoginStates")
    MngName = tbxMngName.Text
    MngOPwd = tbxMngOPwd.Text
    MngNPwd = tbxMngNPwd.Text
    MngCPwd = tbxMngCPwd.Text
    If Not Me.IsPostBack Then
      If LoginStates Is Nothing Then
        Response.Redirect("index.aspx")
      End If
      tbxMngName.Text = Request.Cookies("MIS_REALNAME").Value
    End If
  End Sub

  Private Sub btnEditPwd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditPwd.Click
    btnEditPwd.Attributes("onClick") = "javascript:return ChkPwd();"
    EditMngName()
    If MngOPwd <> "" Then
      EditMngPwd()
    End If
  End Sub

  Sub EditMngName()
    '修改管理者姓名

    Dim Cn As New OleDbConnection
    Cn.ConnectionString = ConfigurationSettings.AppSettings("Conn1")
    Dim SqlEditName As String = "UPDATE Manager SET RealName = @RealName WHERE MngGroup = '1'"
    Dim Cmd1 As OleDbCommand = New OleDbCommand(SqlEditName, Cn)
    Cmd1.CommandText = SqlEditName
    Cmd1.Parameters.Add("@RealName", OleDbType.VarChar, 100).Value = MngName
    Cn.Open()
    Cmd1.ExecuteNonQuery()
    Response.Cookies("MIS_REALNAME").Value = MngName
    Cmd1.Dispose()
    Cn.Close()
  End Sub

  Sub EditMngPwd()
    '先验证密码是否与DB相符合，如无误，就修改密码

    Cn.ConnectionString = ConfigurationSettings.AppSettings("Conn1")
    Dim SqlSelPwd As String = "SELECT * FROM Manager WHERE MngGroup = '1'"
    Dim Cmd2 As OleDbCommand = New OleDbCommand(SqlSelPwd, Cn)
    Cmd2.CommandText = SqlSelPwd
    Cmd2.Parameters.Add("@RealName", OleDbType.VarChar, 100).Value = MngName
    Cn.Open()
    Dim Rd As OleDbDataReader = Cmd2.ExecuteReader
    If (Rd.HasRows = True) Then
      While Rd.Read() = True
        Dim DBPwd As String = CType(Rd("Pwd"), String)
        If MngOPwd <> DBPwd Then
          lblError.Text = "您所输入的旧密码不正确"
        Else
          ExecPwdEdit()
        End If
      End While
    End If
    Rd.Close()
    Cmd2.Dispose()
    Cn.Close()
  End Sub

  Sub ExecPwdEdit()
    '修改密码

    Dim SqlEditPwd As String = "UPDATE Manager SET Pwd = @Pwd WHERE MngGroup = '1'"
    Dim Cmd3 As OleDbCommand = New OleDbCommand(SqlEditPwd, Cn)
    Cmd3.CommandText = SqlEditPwd
    Cmd3.Parameters.Add("@Pwd", OleDbType.VarChar, 20).Value = MngNPwd
    Cmd3.ExecuteNonQuery()
    Cmd3.Dispose()
  End Sub