朋友们帮下我,Microsoft VBScript 运行时错误 错误 '800a01a8'

[GIWno1]

"Microsoft VBScript 运行时错误 错误 '800a01a8'
/index.asp 行116"

我的程序出现有时会出现这问题．有时就正常．．请各位大虾帮忙修改下代码吧.

"116行的代码是:objRootsite_menu.getAttributeNode("path") "
以下是出错的代码部份.


dim strSourceFile_menu,objXML_menu,objRootsite_menu,path,icon,element_menu
strSourceFile_menu = Server.MapPath(menu_xml)
Set objXML_menu = Server.CreateObject("Microsoft.XMLDOM")
' objXML_menu.async = false
' objXML_menu.setProperty "SelectionLanguage", "XPath" '
objXML_menu.load(strSourceFile_menu)
If objXML_menu.parseError.ErrorCode <> 0 Then
objXML_menu.loadXML "<?xml version=""1.0"" encoding=""gb2312"" ?>"
End If
Set objRootsite_menu=objXML_menu.SelectSingleNode(pitem)
path=objRootsite_menu.getAttributeNode("path").nodevalue
'----显示图标
if objRootsite_menu.nodename="item" then
show_icon objRootsite_menu.getAttributeNode("icon").nodevalue
else
show_icon ""
end if
show_navigate pitem,objRootsite_menu

[GIWno1]

楼上的能指正一下吗?

[jacklinchen]

可能是你的xml文件内容的问题

[GIWno1]

顶一下．希望有人帮手说出问题所在