listing1404.aspx

来自「asp入门到精通的源代码」· ASPX 代码 · 共 64 行

ASPX

64 行

<%@ Page Language="VB" %>
<%@ Import Namespace="System.Xml" %>

<script runat="server">
   sub Page_Load(obj as object, e as eventargs)
      ' Create a DocumentNavigator
      Dim objDocument as New XmlDocument
      objDocument.Load(Server.MapPath("../day11/books.xml"))
      
      Dim objNav as DocumentNavigator = new _
         DocumentNavigator(objDocument)
         
      objNav.MoveToDocument
      DisplayNode(objNav)

   end sub   

   sub DisplayNode(objNav as DocumentNavigator)
      If objNav.HasChildren then
         objNav.MoveToChild(0)
         Format(objNav)
         DisplayNode(objNav) 
         objNav.MoveToParent()
      End If
        
      While objNav.MoveToNext()
         Format(objNav)
         DisplayNode(objNav)
      end While
   end sub
   
   Private Sub Format(objNav As DocumentNavigator)
      If Not objNav.HasChildren then
         if objNav.NodeType <> XmlNodeType.Text then
            lblMessage.Text += "&lt;<b>" & _
               objNav.Name & "</b>&gt;" 
         end if
         lblMessage.Text += "&nbsp;- " & objNav.Value & _
               "<br>" & vbCrLf
      Else
         Dim i As Integer
         lblMessage.Text += "&lt;<b>" & objNav.Name & _
            "</b>&gt;" & vbCrLf

         If objNav.HasAttributes then
            lblMessage.Text += "<br>Attributes of &lt;" & _
               objNav.Name & "&gt;<br>" & vbCrLf
         End If
    
         For i = 0 to objNav.AttributeCount-1
            objNav.PushPosition()
            objNav.MoveToAttribute(i)
            lblMessage.Text += "&lt;<b>" & objNav.Name & _
               "</b>&gt; " & objNav.Value & " "
            objNav.PopPosition()
         Next
         lblMessage.Text += "<br>" & vbCrLf
      End If
   End Sub
</script>

<html><body>
   <asp:Label id="lblMessage" runat="server"/>
</body></html>

listing1404.aspx - 源码说明

本页面展示了「asp入门到精通的源代码」中的 listing1404.aspx 源码文件，采用 ASPX 编程语言编写，共 64 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与asp相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?