ITPub博客

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

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

原创 IT综合 作者:amyz 时间:2007-11-12 16:22:53 0 删除 编辑
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/10752019/viewspace-981932/,如需转载,请注明出处,否则将追究法律责任。

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