XML文件源码察看器（五） (转)

XML文件源码察看器（五） (转)[@more@]

三、ASP版源代码XML:namespace prefix = o ns = "urn:schemas-microsoft-com:Office:office" />

dim strf

strf = request("file")

dim strResult

strFilePath = Server.MapPath(strf)

'dim domXMLData As New Msxml2.FreeThreadedDOMDocument

dim domXMLData

set domXMLData = Server.Createobject("Microsoft.XMLDOM")'As New Msxml2.DOMDocument

if strFilePath="" then 

 txtData.innerHTML=strFilePath+"

请浏览选择需要察看的xml文件. ：）

"

else

 domXMLData.load(strFilePath)

 if (domXMLData.parseError.errorCode <> 0) then

 strResult ="

Invalid XML file: " & domXMLData.parseError.reason & "

"

 else

 '递归遍历不同类型子节点，加上高亮标记 （ ）

 strResult = renderChildNodes(domXMLData, 0)

 end if

end if

'函数名：renderChildNodes

'参数：nodNode -- xml 节点

' intLevel -- 层数，用于缩进

function renderChildNodes(nodNode, intLevel)

 dim strNodes,intCount,intNode

 strNodes = "" '用于显示的 html 字符串，处理的结果

 intCount = 0 '循环遍历用的临时变量

 intNode = 0 '循环遍历用的临时变量

 dim nodAttrList '属性集

 dim intNodeType

 intNodeType = nodNode.nodeType

 select case intnodeType

 

 case 3: '文本节点， 黑色 粗体显示

 strNodes=strNodes & getIndent(intLevel) & ""& nodNode.text & "
"

 

 case 7: '指令节点 ， 调用子函数

 strNodes=strNodes & renderInstruction(nodNode,intLevel)

 

 case 8: '注释节点 ， 调用子节点

 strNodes=strNodes & renderComment(nodNode,intLevel)

 

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

转载于:http://blog.itpub.net/10752043/viewspace-959468/