模板
教程
环境
性能
功能
管理
XML文件源码察看器（六）
case 9: ´Document 节点 -- “根”节点。不需要显示，只需显示子节点
´遍历节点的子节点就是这样写地 : ) ,so easy
intCount = nodNode.childNodes.length
if intCount > 0 then
for intNode = 0 to intCount-1
strNodes =strNodes & renderChildNodes(nodNode.childNodes(intNode), intLevel + 1)
next
end if
case else:´普通节点
strNodes=strNodes & getIndent(intLevel)& "<font color=""blue""><</font>" ´ 蓝色 <
strNodes=strNodes & "<font color=""#800000"">"& nodNode.nodeName & "</font> " ´ 褐色 node name
´显示 属性
set nodAttrList = nodNode.attributes´得到属性节点集(collection -- 我最喜欢的数据类型之一)先
intCount = nodAttrList.length ´collection 之 length ,方便吧？ ：）
if intCount > 0 then
for intAttr = 0 to intCount-1
´红色 属性名，蓝色 引号
strNodes =strNodes & "<font color=""red"">"+nodAttrList(intAttr).nodeName + "</font>=<font color=""blue"">""</font>" & nodAttrList(intAttr).nodeValue & "<font color=""blue"">""</font> "
next
end if
´处理当前节点的子节点
intCount = nodNode.childNodes.length
if intCount > 0 then´如果有子节点
strNodes=strNodes & "<font color=""blue"">></font><br>" ´属性显示完 ，用“ 〉“闭合 Tag先
´ 对每个子节点递归调用 renderChildNodes
for intNode = 0 to intCount-1
strNodes = strNodes & renderChildNodes(nodNode.childNodes(intNode), intLevel + 1)
next
´显示关闭标记 </NodeName>
strNodes= strNodes & getIndent(intLevel) & "<font color=""blue""></</font><font color=""#800000"">"+nodNode.nodeName & "</font><font color=""blue"">></font><br>"
else
strNodes = strNodes & "<font color=""blue"">/></font><br>" ´没有子节点， 显示 “ /〉“
end if
end select
renderChildNodes = strNodes
end function
´给注释节点着色
function renderComment(nodNode,intLevel)
dim strNodes,intCount,intNode
strNodes = ""
intCount = 0
intNode = 0
dim nodAttrList
strNodes=strNodes & getIndent(intLevel)& "<font color=""gray""><!-- "
strNodes= strNodes & nodNode.nodeValue
strNodes=strNodes &" --></font><br>"
renderComment = strNodes
end function
