8,906
社区成员
发帖
与我相关
我的任务
分享大虾帮帮忙，帮我看下这个代码，动态生成xml！
Dim strFilename,strXMLFile
strFilename = "test.xml"
strXMLFile=server.mapPath(strFilename)
set oXML = server.createObject("Microsoft.XMLDOM")
oXML.async = False
oXML.load(strXMLFile)
oXML.loadXML "<?xml version=""1.0"" encoding=""gb2312"" ?>"
If not bitFileExists Then
set oXMLf=oXML.appendChild(oXML.createElement("Server1"))
set oXMLs2=oXMLf.appendChild(oXML.createElement("Server2"))
End If
for i=0 to 9
set oXMLRec = oXMLs2.appendChild(oXML.createElement("Host"))
Set hostnameAtt = oXML.createAttribute("id")
hostnameAtt.Text = i
oXMLRec.attributes.setNamedItem hostnameAtt
next
oXML.save strXMLFile
oXML = nothing
文件执行成功了，但为什么文件中没有<?xml version="1.0" encoding="gb2312" ?>这个语句，是不是哪里错了！
我想动态更新这个文件要怎么写?
strFilename = "test.xml"
strXMLFile=server.mapPath(strFilename)
set oXML = server.createObject("Microsoft.XMLDOM")
oXML.async = False
oXML.load(strXMLFile)
oXML.loadXML "<?xml version=""1.0"" encoding=""gb2312"" ?>"
If not bitFileExists Then
set oXMLf=oXML.appendChild(oXML.createElement("Server1"))
set oXMLs2=oXMLf.appendChild(oXML.createElement("Server2"))
End If
for i=0 to 9
set oXMLRec = oXMLs2.appendChild(oXML.createElement("Host"))
Set hostnameAtt = oXML.createAttribute("id")
hostnameAtt.Text = i
oXMLRec.attributes.setNamedItem hostnameAtt
next
oXML.save strXMLFile
oXML = nothing
文件执行成功了，但为什么文件中没有<?xml version="1.0" encoding="gb2312" ?>这个语句，是不是哪里错了！
我想动态更新这个文件要怎么写?
...全文
请发表友善的回复…
发表回复
casoon 2005-03-21
- 打赏
- 举报
谢谢！
ssm1226 2005-03-21
- 打赏
- 举报
<%
bitFileExists=true
Dim strFilename,strXMLFile
strFilename = "test.xml"
strXMLFile=server.mapPath(strFilename)
set oXML = server.createObject("Microsoft.XMLDOM")
oXML.async = False
'oXML.load(strXMLFile)
'oXML.loadXML "<?xml version=""1.0"" encoding=""gb2312"" ?>"
If bitFileExists Then
set oXMLf=oXML.appendChild(oXML.createElement("Server1"))
set oXMLs2=oXMLf.appendChild(oXML.createElement("Server2"))
End If
for i=0 to 9
set oXMLRec = oXMLs2.appendChild(oXML.createElement("Host"))
Set hostnameAtt = oXML.createAttribute("id")
hostnameAtt.Text = i
oXMLRec.attributes.setNamedItem hostnameAtt
next
set oProcess=oXML.createProcessingInstruction("xml", "version='1.0' encoding='gb2312'")
oXML.insertBefore oProcess,oXML.childnodes(0)
oXML.save strXMLFile
set oXML = nothing
%>
bitFileExists=true
Dim strFilename,strXMLFile
strFilename = "test.xml"
strXMLFile=server.mapPath(strFilename)
set oXML = server.createObject("Microsoft.XMLDOM")
oXML.async = False
'oXML.load(strXMLFile)
'oXML.loadXML "<?xml version=""1.0"" encoding=""gb2312"" ?>"
If bitFileExists Then
set oXMLf=oXML.appendChild(oXML.createElement("Server1"))
set oXMLs2=oXMLf.appendChild(oXML.createElement("Server2"))
End If
for i=0 to 9
set oXMLRec = oXMLs2.appendChild(oXML.createElement("Host"))
Set hostnameAtt = oXML.createAttribute("id")
hostnameAtt.Text = i
oXMLRec.attributes.setNamedItem hostnameAtt
next
set oProcess=oXML.createProcessingInstruction("xml", "version='1.0' encoding='gb2312'")
oXML.insertBefore oProcess,oXML.childnodes(0)
oXML.save strXMLFile
set oXML = nothing
%>
