三、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/10752019/viewspace-981932/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/10752019/viewspace-981932/