使用ASP生成XML文件时出现的错误
使用ASP生成XML文件时出现的错误 :
生成XML文件时出现的错误:
代码如下:
strSourceFile = Server.MapPath("xml/word.xml")
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
objXML.load(strSourceFile)
If objXML.parseError.ErrorCode <> 0 Then
objXML.loadXML "<?xml version=""1.0"" encoding=""gb2312"" ?><xml></xml>"
End If
Set objRootlist = objXML.documentElement.selectSingleNode("xml")
If objRootlist.hasChildNodes then
id = objRootlist.lastChild.firstChild.text + 1
Else
id=1
End If
Set oListNode = objXML.documentElement.selectSingleNode("xml").AppendChild(objXML.createElement("item"))
Set oDetailsNode = oListNode.appendChild(objXML.createElement("id"))
oDetailsNode.Text=id
Set oDetailsNode = oListNode.appendChild(objXML.createElement("linktype"))
oDetailsNode.Text="1"
Set oDetailsNode = oListNode.appendChild(objXML.createElement("linkname"))
oDetailsNode.Text=linkname
Set oDetailsNode = oListNode.appendChild(objXML.createElement("linkurl"))
oDetailsNode.Text=linkurl
Set oDetailsNode = oListNode.appendChild(objXML.createElement("imgpath"))
oDetailsNode.Text=""
Set oDetailsNode = oListNode.appendChild(objXML.createElement("addtime"))
oDetailsNode.Text=now()
Set oDetailsNode = oListNode.appendChild(objXML.createElement("ischeck"))
oDetailsNode.Text="0"
objXML.save(strSourceFile)
Set objXML=nothing
错误类型:
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: 'objRootlist'
/scrcdw/resume_updateXML1.asp, 第 11 行