⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 xmldataset.aspx

📁 asp入门到精通的源代码
💻 ASPX
字号:
🔍 
<%@ 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>

⌨️ 快捷键说明

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