asp创建xml

 

首先创建个XML对象

set oXml = Server.CreateObject("Microsoft.XMLDOM")

因为MS的类比较多，所以 Microsoft.XMLDOM 可以用其他类来代替

比如：

msxml.DomDocument

msxml.FreeThreadedDOMDocument

msxml2.DomDocument

msxml2.FreeThreadedDOMDocument

等替代。(msxml2.DomDocument msxml2.FreeThreadedDOMDocument听说是MS新出的类，要比以前的类运行速度快)

创建结点

set oElement = oXml.CreateObject("xxx") '新结点叫xxx。

上面语句只告诉计算机：我这里要创建个xxx的结点，你给我留个地址空间。实际上还未创建。

 

结点上面加数据

oElement.text = "yyy" '在yyy结点上创建了一段数据 xxx

 

oXml.appendChild oElement '这时候才真正得创建了一个xxx的结点。

如：<xxx>yyy</xxx>

 

结点内创建结点

set oE1 = oXml.CreateObject("zzz")

oElement.appendChild oE1

这样便在xxx结点下创建了zzz结点

如：

<xxx>

    <zzz/>

</xxx>

创建属性

set oAttribute = oXml.CreateAttribute("wxy") '逻辑上创建wxy属性，实际上并未创建，只是告诉计算机留个空间地址。

 

属性赋值

oAttribute.text = "xoa"

 

真正创建属性

oElement.setAttributeNode oAttribute

创建后结果为：<xxx wxy="xoa">yyy</xxx>

保存

oXml.Save("c:/xxxxxx.xml") '保存到。。。

 

完整代码：

<%
set oXml = Server.CreateObject("MsXml2.DOMDocument")
   set oElement = oXml.CreateElement("xxx") '逻辑创建xxx结点
      oElement.text = "xxyyzz" ' 在xxx结点逻辑加入xxyyzz字符
      set oAttribute = oXml.CreateAttribute("xoa") '逻辑创建xoa属性
         oAttribute.text = "xxxoooaaa" '在逻辑xoa属性上加入xxxoooaaa字符
         oElement.setAttributeNode oAttribute '在逻辑的xxx结点上加上xoa属性
         oXml.AppEndChild oElement '将逻辑的结点变成真正的结点
         oXml.Save(Server.MapPath("b.xml")) ' 保存到同目录下的b.xml
      set oAttribute = Nothing
   set oElement = Nothing
set oXml = Nothing
%>