以文本方式查看主题

-  中文XML论坛 - 专业的XML技术讨论区  (http://bbs.xml.org.cn/index.asp)
--  『 DOM/SAX/XPath 』  (http://bbs.xml.org.cn/list.asp?boardid=11)
----  VBSCRIPT中的XMLDOM不支持ImportNode方法？  (http://bbs.xml.org.cn/dispbbs.asp?boardid=11&rootid=&id=24272)

--  作者：song_zai
--  发布时间：11/15/2005 1:40:00 PM

--  VBSCRIPT中的XMLDOM不支持ImportNode方法？
'根节点
 Set oRoot = oXMLDom.CreateElement("xdp:xdp")
 oXMLDOM.AppendChild(oRoot)
 Set oXDPInfo = oXMLDOM.CreateAttribute("xmlns:xdp")
 oXDPInfo.Text = "http://ns.adobe.com/xdp/"
 oRoot.SetAttributeNode(oXDPInfo)
 '子节点
 Set oXFA = oXMLDom.CreateElement("xfa:datasets")
 oRoot.appendChild(oXFA)
 Set oXFAInfo = oXMLDom.CreateAttribute("xmlns:xfa")
 oXFAInfo.Text = "http://www.xfa.org/schema/xfa-data/1.0/"
 oXFA.setAttributeNode(oXFAInfo)
 
 Set oPDF = oXMLDom.CreateElement("pdf")
 oRoot.appendChild(oPDF)
 Set oPDFHrefInfo = oXMLDom.CreateAttribute("href")
 oPDFHrefInfo.Text = "../PDF/PurchaseOrder_DynamicInteractive.pdf"
 oPDF.setAttributeNode(oPDFHrefInfo)
 Set oPDFInfo = oXMLDom.CreateAttribute("xmlns")
 oPDFInfo.Text = "http://ns.adobe.com/xdp/pdf/"
 oPDF.setAttributeNode(oPDFInfo)
 '孙节点
 Set oXFAData = oXMLDom.CreateElement("xfa:data")
 oXFA.AppendChild(oXFAData) 
 '嵌入XML
 Set oNode = oXMLDom.ImportNode(tXMLDom.DocumentElement, True)
    oXFAData.AppendChild(oNode)
 '创建 XML 处理指令。
  Set oXMLPI = oXMLDom.CreateProcessingInstruction("xml", "version='1.0' encoding='UTF-8'")
  Set oXMLPII = oXMLDom.CreateProcessingInstruction("xfa", "generator='XFA2_0' APIVersion='2.2.5030.0'")
 '将处理指令附加到 XML 文档中。
 oXMLDom.InsertBefore oXMLPI, oXMLDom.ChildNodes(0)
 oXMLDom.InsertBefore oXMLPII, oXMLDom.ChildNodes(0)
 '保存文档
 oXMLDom.Save(XDPTemplate)
 oXMLDom.load(XDPTemplate)
W 3 C h i n a ( since 2003 ) 旗 下 站 点
苏ICP备05006046号《全国人大常委会关于维护互联网安全的决定》《计算机信息网络国际联网安全保护管理办法》
 78.125ms