📄 index.aspx
字号:
<%@ Import Namespace="System.IO"%>
<%@ Import Namespace="System.Data"%>
<script language="VB" runat="server">
Sub Page_Load(Sender As Object, E As EventArgs)
If Not Page.IsPostBack Then
Call BindData()
End If
End Sub
'单击删除时执行该事件过程
Sub MyDataGrid_Delete(Sender As Object, E As DataGridCommandEventArgs)
'执行删除操作
Dim myfile As String
myfile=Server.Mappath("upload\" & MyDataGrid.DataKeys(CInt(E.Item.ItemIndex)))
File.Delete(myfile)
'重新绑定
MyDataGrid.EditItemIndex = -1
Call BindData()
End Sub
'绑定数据子程序
Sub BindData()
Dim mydir As New Directoryinfo(Server.Mappath("upload"))
MyDataGrid.DataSource=mydir.GetFiles("*.*")
MyDataGrid.DataBind()
End Sub
</script>
<html>
<body>
<h4 align="center">我的文件管理器</h4>
<a href="upload.aspx">上传文件</a>
<form runat="server">
<ASP:DataGrid id="MyDataGrid" HeaderStyle-BackColor="#BCBCBC" Width="100%" AutoGenerateColumns="false" OnDeleteCommand="MyDataGrid_Delete" DataKeyField="Name" runat="server">
<Columns>
<asp:HyperLinkColumn HeaderText="名称" DataTextField="Name" DataNavigateUrlField="Name" DataNavigateUrlFormatString="upload/{0}" Target="_blank"/>
<asp:BoundColumn HeaderText="大小" DataField="Length"/>
<asp:BoundColumn HeaderText="类型" DataField="Extension" />
<asp:BoundColumn HeaderText="修改时间" DataField="LastWriteTime" />
<asp:ButtonColumn Text="删除" CommandName="Delete"/>
</Columns>
</asp:DataGrid>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -