XML檔案原始碼察看器（五） (轉)

XML檔案原始碼察看器（五） (轉)[@more@]

三、版:namespace prefix = o ns = "urn:schemas--com::office" />

dim strf

strf = request("file")

dim strResult

strFilePath = Server.MapPath(strf)

'dim XMLData As New Msxml2.FreeThreadedDOMDocument

dim domXMLData

set domXMLData = Server.Create("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

  case intnodeType

 

 case 3: '文字節點， 黑色 粗體顯示

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

 

 case 7: '指令節點 ， 子函式

 strNodes=strNodes & renderInstruction(nodNode,intLevel)

 

 case 8: '註釋節點 ， 呼叫子節點

 strNodes=strNodes & renderComment(nodNode,intLevel)