当前位置: 代码迷 >> ASP >> ASP创造xml
  详细解决方案

ASP创造xml

热度:326   发布时间:2012-08-07 14:54:47.0
ASP创建xml

ASP创建xml
2011年09月01日
  Dim xmlDoc, rootEl, child1, child2, p
  'Create an XML document
  Set xmlDoc = Server.CreateObject("Microsoft.XMLDOM")
  'Create a root element and append it to the document
  Set rootEl = xmlDoc.createElement("root")
  xmlDoc.appendChild rootEl
  'Create and append child elements
  Set child1 = xmlDoc.createElement("child1")
  Set child2 = xmlDoc.createElement("child2")
  rootEl.appendChild child1
  rootEl.appendChild child2
  'Add an XML processing instruction
  'and insert it before the root element
  Set p=xmlDoc.createProcessingInstruction("xml","versio n='1.0'")
  xmlDoc.insertBefore p,xmlDoc.childNodes(0)
  'Save the XML file to the c directory
  xmlDoc.Save "c:test.xml" 
  
  
  相关解决方案