Asp：利用DataGrid显示某目录下的所有文件

热点排行

利用DataGrid显示某目录下的所有文件

类别：Asp 点击：0 评论：0 推荐：

1.*.ASPX
<%@ Page Language="vb" AutoEventWireup="false" Codebehind="WebForm3.aspx.vb" Inherits="WebApplication1.WebForm3"%>
<HTML>
<script language="VB" runat="server">

</script>
<body>
  <form runat="server">
   <div align="center">
    <asp:DataGrid runat="server" id="articleList" AutoGenerateColumns="False" BorderColor="#E7E7FF"
     BorderStyle="None" BorderWidth="1px" BackColor="White" CellPadding="3" GridLines="Horizontal"
     Height="176px" Width="549px">
     <SelectedItemStyle Font-Bold="True" ForeColor="#F7F7F7" BackColor="#738A9C"></SelectedItemStyle>
     <AlternatingItemStyle BackColor="#F7F7F7"></AlternatingItemStyle>
     <ItemStyle ForeColor="#4A3C8C" BackColor="#E7E7FF"></ItemStyle>
     <HeaderStyle Font-Bold="True" ForeColor="#F7F7F7" BackColor="#4A3C8C"></HeaderStyle>
     <FooterStyle ForeColor="#4A3C8C" BackColor="#B5C7DE"></FooterStyle>
     <Columns>
      <asp:BoundColumn DataField="Name" HeaderText="文件名"></asp:BoundColumn>
      <asp:BoundColumn DataField="LastWriteTime" HeaderText="最后修改時間" DataFormatString="{0:d}">
       <ItemStyle HorizontalAlign="Center"></ItemStyle>
      </asp:BoundColumn>
      <asp:BoundColumn DataField="Length" HeaderText="文件大小" DataFormatString="{0:#,### 字節}">
       <ItemStyle HorizontalAlign="Right"></ItemStyle>
      </asp:BoundColumn>
     </Columns>
     <PagerStyle HorizontalAlign="Right" ForeColor="#4A3C8C" BackColor="#E7E7FF" Mode="NumericPages"></PagerStyle>
    </asp:DataGrid>
   </div>
  </form>
</body>
</HTML>

2.*.aspx.vb

Imports System.IO

Public Class WebForm3

Inherits System.Web.UI.Page

#Region " Web Form 設計工具產生的程式碼 "

'此為 Web Form 設計工具所需的呼叫。

<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

End Sub

Protected WithEvents articleList As System.Web.UI.WebControls.DataGrid

'注意: 下列預留位置宣告是 Web Form 設計工具需要的項目。

'請勿刪除或移動它。

Private designerPlaceholderDeclaration As System.Object

Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init

'CODEGEN: 此為 Web Form 設計工具所需的方法呼叫

'請勿使用程式碼編輯器進行修改。

InitializeComponent()

End Sub

#End Region

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'在這裡放置使用者程式碼以初始化網頁

Dim dirInfo As New DirectoryInfo(Server.MapPath("/WebApplication1/images"))

articleList.DataSource = dirInfo.GetFiles("*.*")

articleList.DataBind()

End Sub

End Class

本文地址：http://com.8s8s.com/it/it8040.htm