You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
72 lines
2.9 KiB
Plaintext
72 lines
2.9 KiB
Plaintext
<%
|
|
Option Explicit
|
|
Dim DOM
|
|
' create instance of MS XML object
|
|
Set DOM = CreateObject("microsoft.xmldom")
|
|
DOM.async = False ' we want the whole file In one go
|
|
' open file.
|
|
Dim loadBool
|
|
Dim StrURI
|
|
StrURI="C:yourxmlfilehere.xml"
|
|
If request("xml") > "" Then
|
|
StrURI=request("xml")
|
|
End If
|
|
loadBool = DOM.load (StrURI)
|
|
If loadBool=False Then
|
|
Response.Write("Failed To load XML data source<P>" & StrURI)
|
|
Response.End
|
|
End If
|
|
Response.Write("<B>XML WALKER</B><P>")
|
|
Dim objNodeList
|
|
Set objNodeList = DOM.getElementsByTagName("*")
|
|
Response.Write("<PRE>")
|
|
xmlwalk objNodeList.item(0),"","" ' start With root node
|
|
Response.Write("</PRE>")
|
|
Function xmlwalk (node,disdepth,path)
|
|
Dim blue,red,endcolor
|
|
red="<FONT COLOR=""#FF0000"">"
|
|
blue="<FONT COLOR=""#0000FF"">"
|
|
endcolor="</FONT>"
|
|
Dim outStr,tstAttrib,c,tstchild
|
|
outStr = ""
|
|
If node.nodeName <> "#text" Then
|
|
outStr =disdepth & outStr & blue & "<" & endcolor & red & node.nodeName & endcolor & blue & ">" & endcolor
|
|
path=path & "/" & node.nodeName
|
|
End If
|
|
If node.nodeValue>"" Then
|
|
outStr=outStr & "" & node.nodeValue & "<!-- #######" & path & "######-->" ' i want this To be part of the href i create later.
|
|
Else
|
|
outStr=outStr & "<!--NULL-->"
|
|
End If
|
|
outStr=outStr & "<!--[" & node.nodeTypeString & "]-->"
|
|
Set tstAttrib = node.attributes
|
|
If node.nodeTypeString="element" Then
|
|
If Not IsNull(tstAttrib) Then
|
|
If (tstAttrib.length) >0 Then outStr= disdepth & blue & "<" & endcolor & red & node.nodeName & endcolor & " "
|
|
For c=0 To (tstAttrib.length -1)
|
|
outStr= outStr & " " & red & tstAttrib.item(c).nodeName & endcolor & blue & "=""" & endcolor & "<B>" & tstAttrib.item(c).text & "</B>" & blue & """ " & endcolor
|
|
Next
|
|
If (tstAttrib.length) >0 Then outStr= outStr & blue & ">" & endcolor
|
|
End If
|
|
Set tstChild = (node.childNodes)
|
|
disdepth=disdepth & " "
|
|
Response.Write "<BR>" & outStr
|
|
For c=0 To tstChild.length -1
|
|
disdepth = xmlwalk(tstChild.item(c),disdepth,path)
|
|
Next
|
|
If Len(disdepth)>0 Then
|
|
disdepth=Left(disdepth,Len(disdepth)-2)
|
|
End If
|
|
If Len(path)>0 Then
|
|
path=Left(path,InStrRev(path,"/")-1)
|
|
End If
|
|
|
|
Response.Write (disdepth & blue & "</" & endcolor & red & node.nodeName & endcolor & blue & "><BR>" & endcolor)
|
|
Else
|
|
Response.Write ("<B>" & LTrim(outStr) & "</B>")
|
|
End If
|
|
xmlwalk = disdepth
|
|
End Function
|
|
Response.Write ("<P>EOP")
|
|
%>
|