<%@ Page Language="VB" %>
<%@ Import Namespace="System.Xml" %>
<%@ Import Namespace="System.Xml.XPath" %>
sub SelectData(Sender as Object, e as EventArgs)
Dim objReader as New XmlTextReader(Server.MapPath("Data.xml"))
Dim objDoc as XPathDocument = new XPathDocument(objReader)
Dim objNav as XPathNavigator = objDoc.CreateNavigator()
try
Dim expr as XPathExpression = objNav.Compile(tbQuery.Text)
Dim mngr as XmlNamespaceManager = new XmlNamespaceManager(objReader.NameTable)
mngr.AddNamespace("","x-schema:books.xdr")
expr.SetContext(mngr)
dim objIterator as XPathNodeIterator = objNav.Select(expr)
While objIterator.MoveNext()
Format(objIterator.Current)
end while
catch ex As Exception
Response.Write(ex.Message)
end try
objReader.Close()
end sub
Private Sub Format(objNav As XPathNavigator)
Dim strValue As String
Dim strName As String
If objNav.HasChildren then
strName = objNav.Name
objNav.MoveToFirstChild()
strValue = objNav.Value
Else
strValue = objNav.Value
strName = objNav.Name
End If
Response.Write("<" & strName & _
">" & strValue & "
")
End Sub
File: Data.xml
asdf
asdf
asdf
asdf
asdf
asdf
asdf
asdf
asdf
asdf
asdf
asdf