 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)
|
[返回] W3CHINA.ORG讨论区 - 语义网·描述逻辑·本体·RDF·OWL →
XML.ORG.CN讨论区 - XML技术 → 『 DOM/SAX/XPath 』 → VBSCRIPT中的XMLDOM不支持ImportNode方法？
(订阅本版)
2005/11/15 13:40:00
新浪微博
