Microsoft VBScript 运行时错误 错误 '800a01a8'
缺少对象: 'xmlDoc.documentElement'
/work/Menu.asp,行 80
找到相关代码如下:
Set xmlDoc=Server.CreateObject("MicroSoft.XmlDom")
xmlDoc.async = false
xmlDoc.load(Server.MapPath("Menu.xml"))
Set root = xmlDoc.documentElement.selectSingleNode("//index")
会不会是没有load成功呢?输出内容看下:
Response.Write(xmlDoc.xml)
空的,能肯定是load出问题了。查看下Menu.xml,发现xml文件内容不知什么时候被改了:
<?xml version="1.0" encoding="gb2312"?>
<index>
<catalog title="分类一">
<item id="class1_1"><![CDATA[<a href="class1_1.asp" target="main">子类11</a>]]></item>
<item id="class1_2"><![CDATA[<a href="class1_2.asp" target="main">子类12</a>]]></item>
</catalog>
</index>
><![CDATA[<a href="class2_3" target="main">子类23</a>]]></item>
</catalog>
</index>
修改下xml文件,再浏览页面就正常了。