如何创建XML文档,以及如何操作XML文档,谢谢

Question

Imports System.XmlPublic Class xmlTest
  Inherits System.Web.UI.Page#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
    '在此处放置初始化页的用户代码
    Dim makexml As New XmlDocument()
    Dim newattr As XmlAttribute
    makexml.LoadXml("<T><qiang><frametype><left>ok</left></frametype></qiang></T>")
    Dim makexmlnode As XmlNode = makexml.SelectSingleNode("//qiang/frametype/left")
    Dim newnode As XmlNode
    newnode = makexml.CreateElement("data")
    makexmlnode.AppendChild(newnode)
    newattr = makexml.CreateAttribute("type")
    newattr.Value = "login"
    newnode.Attributes.Append(newattr)
    Response.Write(Server.HtmlEncode(makexml.InnerXml))
    Response.End()    Dim x As String
    x = "<Treenode/>"
    Dim d As New XmlDocument()
    d.LoadXml((x))
    Dim n As XmlAttribute
    n = d.CreateAttribute("id")
    n.Value = "abc"
    d.DocumentElement.Attributes.Append(n)
    n = d.CreateAttribute("text")
    n.Value = "abc"
    d.DocumentElement.Attributes.Append(n)
    Response.Write(Server.HtmlEncode(d.OuterXml))
    Response.End()
  End SubEnd Class