'给指令节点着色
function renderInstruction(nodNode,intLevel)
dim strNodes,intCount,intNode
strNodes = ""
intCount = 0
intNode = 0
dim nodAttrList
strNodes=strNodes & getIndent(intLevel)&"<font color=""green""><"
strNodes=strNodes & "?"
strNodes=strNodes & nodNode.nodeName&" "
' check there are some attributes
strNodes=strNodes & nodNode.nodeValue
strNodes=strNodes & "?></font><br>"
renderInstruction = strNodes
end function
function getIndent(intLevel)
' create a string of spaces
dim strIndent
strIndent = ""
for intIndent = 0 to intLevel-1
strIndent = strIndent & "          "
next
getIndent = strIndent
end function
%>
<HTML>
<HEAD>
<TITLE>XML 源码察看器 </TITLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF" style="font-family:Tahoma,Arial,sans-serif ;font-size:
<SPAN style="font-family:Tahoma,Arial,sans-serif; font-size:
<HR>
<SPAN ID="txtData">
<%=strResult%>
</SPAN>
<HR><SPAN style="font-family:Tahoma,Arial,sans-serif ;font-size:
<A CLASS="cite" HREF="mailto:xiaoleilong@{域名已经过期}">stan</A> </SPAN>
</BODY>
关闭窗口
打印文档
账号登录