Dom遍历XML的一个例子,结果为树状结构(7)
end if
end if
Next
ShowNode=mystr
End Function
dim xmldoc
dim xmlstr
Set xmldoc = Server.CreateObject("Microsoft.XMLDOM")
xmldoc.async=false
xmldoc.load(Server.MapPath("knowledge.xml"))
xmlstr=ShowNode(xmldoc,0,0,"")
' set xmldoc=nothing
'parent.results.display(source.transformNode(style));
%>
<html>
<head>
</head>
<body>
<script language="VBScript">
dim olditem
sub OnClickDiv(DivId,pType)
if (document.all(DivId).style.display="none") then
document.all(DivId).style.display=""
if (pType="0") then
document.all("l-"+DivId).src="image/t-minus.gif"
document.all("p-"+DivId).src="image/o-fold.bmp"
end if
if (pType="1") then
document.all("l-"+DivId).src="image/l-minus.gif"
document.all("p-"+DivId).src="image/o-fold.bmp"
end if
'if (pType="3") then
' document.all("p-"+DivId).src="image/o-fold.bmp"
'end if
else
document.all(DivId).style.display="none"
if (pType="0") then
document.all("l-"+DivId).src="image/t-plus.gif"
document.all("p-"+DivId).src="image/c-fold.bmp"
end if
if (pType="1") then
document.all("l-"+DivId).src="image/l-plus.gif"
document.all("p-"+DivId).src="image/c-fold.bmp"
end if
'if (pType="3") then
' document.all("p-"+DivId).src="image/c-fold.bmp"
'end if
end if
内容版权声明：除非注明，否则皆为本站原创文章。