W3CHINA.ORG讨论区--讨厌 xmlns="" 属性,请高手帮助

贴子主题：讨厌 xmlns="" 属性,请高手帮助

本主题类别:

<?xml version="1.0"?>
<?xml-stylesheet type='text/xml' href='test.xsl'?>

<root xmlns="urn:schemas-microsoft-com:office:excel">
<node1 xmlns="">some character data</node1>
</root>

xmlns=""是程序自动生成的,是执行完dom.save App.Path + "\dynamDom.xml"这句后,程序自动加上去的.可我不想要这个(xmlns="")属性,我该如何设置DOMDocument30对象?

以下是我的VB源码:
Private Function CreateDOM()
    Dim dom
    Set dom = New DOMDocument30
    dom.async = False
    dom.validateOnParse = False
    dom.resolveExternals = False
    dom.preserveWhiteSpace = True
    Set CreateDOM = dom
End Function

Private Sub Form_Load()
Dim dom, node, attr

On Error GoTo ErrorHandler

    Set dom = CreateDOM

    Set node = dom.createProcessingInstruction("xml", "version='1.0'")
    dom.appendChild node
    Set node = Nothing

    Set node = dom.createProcessingInstruction("xml-stylesheet", _
                                "type='text/xml' href='test.xsl'")
    dom.appendChild node
    Set node = Nothing

    Set node = dom.createComment("sample xml file created using XML DOM object.")
    dom.appendChild node
    Set node = Nothing

    Dim root
    Set root = dom.createElement("root")

    Set attr = dom.createAttribute("xmlns")
    attr.Value = "urn:schemas-microsoft-com:office:excel"
    root.setAttributeNode attr
    Set attr = Nothing

    dom.appendChild root

    root.appendChild dom.createTextNode(vbNewLine + vbTab)

Set node = dom.createElement("node1")
node.Text = "some character data"

root.appendChild node
Set node = Nothing

    root.appendChild dom.createTextNode(vbNewLine)
    Set node = Nothing

    dom.save App.Path + "\dynamDom.xml"
    Set root = Nothing
    Set dom = Nothing
    Exit Sub

ErrorHandler:
    MsgBox Err.Description
End Sub


	W 3 C h i n a ( since 2003 ) 旗下站点苏ICP备05006046号《全国人大常委会关于维护互联网安全的决定》《计算机信息网络国际联网安全保护管理办法》	140.625ms