ITPub博客

首页 > 应用开发 > IT综合 > XML文件源码察看器(七) (转)

XML文件源码察看器(七) (转)

原创 IT综合 作者:amyz 时间:2007-11-12 16:24:19 0 删除 编辑
XML文件源码察看器(七) (转)[@more@]

'给指令节点着色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)&"<"




 strNodes=strNodes & "?"


 strNodes=strNodes & nodNode.nodeName&" "


 ' check there are some attributes


 strNodes=strNodes & nodNode.nodeValue


 strNodes=strNodes & "?>

"


 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
%>

 XML 源码察看器

sourceValue="10" UnitName="pt">10pt;">

14pt; font-weight:bold;"><%=strf%>


<%=strResult%>


8pt;"> 8pt;" HREF="http:'openlab.biti.edu.cn/xml/" target="_blank">BITI XML UNION -

Mailto:xiaoleilong@mail.biti.edu.cn">stan


来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10752019/viewspace-981936/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论
  • 博文量
    3984
  • 访问量
    7363345