求一个示例，小弟先谢谢了！

Question

我想问大家一个问题，就是将数据库的记录写到XML中，程序调用XML，删除、修改、添加等操作在另一文件，只需带参数就行了，并且XML做相应更改，不影响当前页面。这种试例哪个有？小弟谢谢了

Answer 1

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click            Dim ds As DataSet = New DataSet
            Dim dt As DataTable            ds.ReadXml(Server.MapPath("userpass.xml"))            dt = ds.Tables(0)
            Dim PrimaryKeyColumns(0) As DataColumn
            PrimaryKeyColumns(0) = dt.Columns("username")
            dt.PrimaryKey = PrimaryKeyColumns            Dim myDataRowCollection As DataRowCollection
            Dim foundRow As DataRow
            myDataRowCollection = dt.Rows
        If myDataRowCollection.Contains(Trim(TextBox3.Text)) Then
            foundRow = myDataRowCollection.Find(Trim(TextBox3.Text))
            myDataRowCollection.Remove(foundRow)
            ds.WriteXml(Server.MapPath("userpass.xml"))
            Response.Write("<script>alert('恭喜您删除成功！');</script>")
        Else
            Response.Write("<script>alert('对不起没有找到您要删除的用户！');</script>")
        End If
        ds.Dispose()
    End SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        If IsValid Then            Dim ds As DataSet = New DataSet
            Dim dt As DataTable
            Dim dr As DataRow
            Dim drs() As DataRow
            'Dim txtuser As String
            Dim txtpass As String            If Trim(TextBox1.Text) <> "" And Trim(TextBox2.Text) <> "" Then                txtpass = System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(Trim(TextBox1.Text), "MD5")
                ds.ReadXml(Server.MapPath("userpass.xml"))
                dt = ds.Tables(0)
                drs = dt.Select("username='" & TextBox1.Text & "'")
                If drs.Length = 0 Then
                    dr = dt.NewRow()
                    dr("username") = Trim(TextBox1.Text)
                    dr("password") = txtpass
                    dt.Rows.Add(dr)
                    ds.WriteXml(Server.MapPath("userpass.xml"))
                    ds.Dispose()
                    Response.Write("<script>alert('添加成功!');</script>")
                Else
                    Response.Write("<script>alert('该用户已存在！请更换用户名！');</script>")
                End If
            Else
                    Response.Write("<script>alert('用户名或者密码不能为空啊！');</script>")
                End If
            End If
    End Sub<?xml version="1.0" standalone="yes"?>
<login>
  <user>
    <username>admin</username>
    <password>21232F297A57A5A743894A0E4A801FC3</password>
  </user>
  <user>
    <username>sulan</username>
    <password>39C7DCBBA2906A330D13C5EC08A511AB</password>
  </user>
</login>