<%@ Page Language="VB" %>
<%@ Import Namespace="System.Xml" %>
sub Page_Load(Sender as Object, e as EventArgs)
dim xmldoc as new XMLDocument()
xmldoc.Load(Server.MapPath("Data.xml"))
ShowTree(xmldoc.DocumentElement)
end sub
sub ShowTree(node as XMLNode)
Dim attrnode As XmlNode
Dim map As XmlNamedNodeMap
If Not(node.HasChildNodes)
output.Text += "" & node.Name & " <" & _
node.Value & ">
" & vbcrlf
Else
output.Text += "" & node.Name & ""
If node.NodeType = XmlNodeType.Element Then
map = node.Attributes
For Each attrnode In map
output.Text += " " & attrnode.Name & " <" & _
attrnode.Value & "> " & vbcrlf
Next
End If
output.Text += "
"
End If
If node.HasChildNodes then
node = node.FirstChild
While not IsNothing(node)
ShowTree(node)
node = node.NextSibling
end while
end if
end sub
File: Data.xml
asdf
asdf
asdf
asdf
asdf
asdf
asdf
asdf
asdf
asdf
asdf
asdf