XML文件源码察看器（七）

王朝other·作者佚名 2006-01-08

'给指令节点着色

function renderInstruction(nodNode,intLevel)

dim strNodes,intCount,intNode

strNodes = ""

intCount = 0

intNode = 0

dim nodAttrList

strNodes=strNodes & getIndent(intLevel)&"&lt"

strNodes=strNodes & "?"

strNodes=strNodes & nodNode.nodeName&" "

' check there are some attributes

strNodes=strNodes & nodNode.nodeValue

strNodes=strNodes & "?&gt "

renderInstruction = strNodes

end function

function getIndent(intLevel)

' create a string of spaces

dim strIndent

strIndent = ""

for intIndent = 0 to intLevel-1

strIndent = strIndent & "&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp"

getIndent = strIndent

end function

<HTML>

<HEAD>

<TITLE>XML 源码察看器 </TITLE>

</HEAD>

<%=strf%> <

br>

<HR>

<%=strResult%>

<HR> <A style="font-family:Tahoma,Arial,sans-serif ;font-size:8pt;" HREF="http:'openlab.biti.edu.cn/xml/" target="_blank">BITI XML UNION</A> -

</BODY>

</HTML>