'给指令节点着色<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />
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:<?xml:namespace prefix = st1 ns = "urn:schemas-microsoft-com:office:smarttags" /><chmetcnv w:st="on" tcsc="0" numbertype="1" negative="False" hasspace="False" sourcevalue="10" unitname="pt">10pt</chmetcnv>;">
<SPAN style="font-family:Tahoma,Arial,sans-serif; font-size:<chmetcnv w:st="on" tcsc="0" numbertype="1" negative="False" hasspace="False" sourcevalue="14" unitname="pt">14pt</chmetcnv>; font-weight:bold;"><%=strf%> </SPAN><br>
<HR>
<SPAN ID="txtData">
<%=strResult%>
</SPAN>
<HR><SPAN style="font-family:Tahoma,Arial,sans-serif ;font-size:<chmetcnv w:st="on" tcsc="0" numbertype="1" negative="False" hasspace="False" sourcevalue="8" unitname="pt">8pt</chmetcnv>;"> <A style="font-family:Tahoma,Arial,sans-serif ;font-size:<chmetcnv w:st="on" tcsc="0" numbertype="1" negative="False" hasspace="False" sourcevalue="8" unitname="pt">8pt</chmetcnv>;" HREF="http:'openlab.biti.edu.cn/xml/" target="_blank">BITI XML UNION</A> -
<A CLASS="cite" HREF="mailto:xiaoleilong@mail.biti.edu.cn">stan</A> </SPAN>
</BODY>
</ HTML >
1259
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
