function bianli(tag)//遍历一个DOM树某节点下所有节点，tag为DOM树中的具体一个
节点
dim str
str="----"
for i=0 to tag.length-1
if tag.item(i).nodename<>"text" then
document.write str& "节点："
document.write tag.item(i).Nodename&"<br>"
str=str&"----"
bianli tag.item(i).childnodes
else
document.write str& "节点："
document.write tag.item(i).Nodename&"<br>"
end if
next
end function
loadxml("xml.xml")
</SCRIPT>
按上面的函数调用相关性太大了，
我想这样使用：
call loadxml("xml.xml")
  call bianli("j")
这样使用报如下错误：无XMLDOC对象
或者在定义一个函数f（），把loadxml(),bianli()需要的变量提出来。
然后再调用loadxml,bianli
构想如下：
function f(vname,tag)
set xmldoc=createobject("microsoft.XMLDOM")
call loadxml(vname)
call bianli(tag)
end functiong
但依然不行。请大家帮忙一下，谢谢了！我在线等