xmldataset.aspx

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

ASPX
81 行
字号 
<%@ Page Language="VB" %>
<%@ Import Namespace="System.Xml" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>

<script runat=server>
   private i, j as integer
   private strOutput as string = ""
   
   sub Page_Load(obj as object, e as eventargs)
      dim xmldoc as new XMLDataDocument()
         
      try
         xmldoc.DataSet.ReadXml(Server.MapPath("books3.xml"))
         
         'select data view and bind to server control
         DataGrid1.DataSource = xmldoc.DataSet
         DataGrid1.DataMember = xmldoc.DataSet.Tables(0). _
            TableName
         DataGrid2.DataSource = xmldoc.DataSet
         DataGrid2.DataMember = xmldoc.DataSet.Tables(1). _
            TableName
         
         DataGrid1.DataBind()
         DataGrid2.DataBind()
         
         For i = 0 To xmldoc.DataSet.Tables.Count - 1
            strOutput += "TableName = """ & _
               xmldoc.DataSet.Tables(i).TableName & """<br>"
            strOutput += "&nbsp;&nbsp;" & "Columns count " & _
               "= " & xmldoc.DataSet.Tables(i).Columns.Count. _
                  ToString() & "<br>"

            For j = 0 To xmldoc.DataSet.Tables(i).Columns.Count-1
               strOutput += "&nbsp;&nbsp;&nbsp;&nbsp;" & _
   		          "ColumnName = """ & xmldoc.DataSet. _
   		          Tables(i).Columns(j).ColumnName & """, _
   		          type = " & xmldoc.DataSet.Tables(i). _
   		          Columns(j).DataType.ToString() & "<br>"
            Next
         Next
         
         strOutput += "<p>"
         
         catch ex as Exception
            strOutput = "Error accessing XML file"
      end try
      
      output.Text = strOutput
   end sub
</script>

<html><body>
   <asp:Label id="output" runat="server" />
   
   <asp:DataGrid id="DataGrid1" runat="server" 
         BorderColor="black" 
         GridLines="Vertical" 
         cellpadding="4" 
         cellspacing="0" 
         width="450"
         Font-Name="Arial" 
         Font-Size="8pt" 
         HeaderStyle-BackColor="#cccc99"
         FooterStyle-BackColor="#cccc99"
         ItemStyle-BackColor="#ffffff"
         AlternatingItemStyle-Backcolor="#cccccc" />
   <p>
   <asp:DataGrid id="DataGrid2" runat="server" 
         BorderColor="black" 
         GridLines="Vertical" 
         cellpadding="4" 
         cellspacing="0" 
         width="450"
         Font-Name="Arial" 
         Font-Size="8pt" 
         HeaderStyle-BackColor="#cccc99"
         FooterStyle-BackColor="#cccc99"
         ItemStyle-BackColor="#ffffff"
         AlternatingItemStyle-Backcolor="#cccccc" />
</body></html>

xmldataset.aspx - 源码说明

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

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

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?