月光软件站 - 编程文档 - ASP - 利用DataGrid显示某目录下的所有文件

ASP

本类阅读TOP10

·asp常用数据库连接方法和技巧
·VisualStudio.NET_2003及其 MSDN 下载地址
·session的用法具体解说
·MD5加密算法 ASP版
·JavaScript实现的数据表格：冻结列、调整列宽和客户端排序
·无组件生成BMP验证码
·一些常用的辅助代码 (网络收藏)
·ASP.net中md5加密码的方法
·ASP模拟MVC模式编程
·ASP.NET编程中的十大技巧

→ 分类导航

VC语言	Delphi
VB语言	ASP
Perl	Java
Script	数据库
其他语言	游戏开发
文件格式	网站制作
软件工程	.NET开发

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

作者：未知来源：月光软件站 加入时间：2005-2-28　月光软件站

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

相关文章：

相关软件：