9-3.aspx

来自「asp做的新闻系统」· ASPX 代码 · 共 48 行

ASPX

48 行

<%@ Import Namespace="System.IO" %>
<%@ Import Namespace="System.Data" %>

<html>
<script language="VB" runat="server">
    Sub Page_Load(Sender As Object, E As EventArgs)
        Dim DS As New DataSet
        Dim FS As FileStream
        Dim Schema, Reader As StreamReader

        FS = New FileStream(Server.MapPath("schema.xml"),FileMode.Open,FileAccess.Read)
        Schema = new StreamReader(FS)
        DS.ReadXmlSchema(Schema)
        FS.Close()

        FS = New FileStream(Server.MapPath("data.xml"),FileMode.Open,FileAccess.Read)
        Reader = New StreamReader(FS)
        DS.ReadXml(Reader)
        FS.Close()

        Dim Source As DataView
        Source = new DataView(ds.Tables(0))

        MyLiteral.Text = Source.Table.TableName
        MyDataGrid.DataSource = Source
        MyDataGrid.DataBind()
    End Sub
</script>

<body>
  <h3><font face="Verdana">XML Data for Table: <asp:Literal id="MyLiteral" runat="server" /></font></h3>

  <ASP:DataGrid id="MyDataGrid" runat="server"
    Width="900"
    BackColor="#ccccff"
    BorderColor="black"
    ShowFooter="false"
    CellPadding=3
    CellSpacing="0"
    Font-Name="Verdana"
    Font-Size="8pt"
    HeaderStyle-BackColor="#aaaadd"
    EnableViewState="false"
  />

</body>
</html>

9-3.aspx - 源码说明

本页面展示了「asp做的新闻系统」中的 9-3.aspx 源码文件，采用 ASPX 编程语言编写，共 48 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?