请按ctrl+D把本页加入收藏夹
文章内容
07-05-15 01:02:03

XML文件源码察看器（七）-建站心得-
　 　 　 　
　


>>XML文件源码察看器（七）<< '给指令节点着色function renderInstruction(nodNode,intLevel)    dim strNodes,intCount,intNode    strNodes = ""    intCount = 0    intNode = 0    dim nodAttrList    strNodes=strNodes & getIndent(intLevel)&"<font color=""green"">&lt"    strNodes=strNodes & "?"    strNodes=strNodes & nodNode.nodeName&" "     ' check there are some attributes    strNodes=strNodes & nodNode.nodeValue    strNodes=strNodes & "?&gt</font><br>"    renderInstruction = strNodesend functionfunction 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"  next  getIndent = strIndentend function%><HTML><HEAD>    <TITLE>XML 源码察看器 </TITLE></HEAD><BODY BGCOLOR="#FFFFFF" style="font-family:Tahoma,Arial,sans-serif ;font-size:10pt;"><SPAN style="font-family:Tahoma,Arial,sans-serif; font-size:14pt; font-weight:bold;"><%=strf%> </SPAN><br><HR><SPAN ID="txtData"><%=strResult%></SPAN> <HR><SPAN style="font-family:Tahoma,Arial,sans-serif ;font-size:8pt;"> <A style="font-family:Tahoma,Arial,sans-serif ;font-size:8pt;" 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>

　
　
　 　
　

　
　
便民工具箱
　
最新文章