📄 admin_adminupload.aspx

📁 用C#,VB和SQLSERVER编写的远程教学程序
💻 ASPX
字号:
<%@ Page Language="vb" %>
<%@ import Namespace="System" %>
<%@ import Namespace="System.IO" %>
<%@ import Namespace="System.Data" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<HTML>
	<HEAD>
		<META http-equiv="Content-Type" content="text/html; charset=gb2312">
		<script runat="server">       
    sub BindList()
    dim dt as datatable
    dim dr as datarow
    dt=new datatable
    dt.columns.add(new datacolumn("number",gettype(integer)))
    dt.columns.add(new datacolumn("name",gettype(string)))
    dt.columns.add(new datacolumn("date",gettype(date)))
    dim fileName() as string=directory.getfiles("d:\film")
    dim fileNum as integer=ubound(filename)+1
    dim i as integer
    for i=1 to fileNum
    dr=dt.newrow()
    dr(0)=i
    dr(1)=mid(fileName(i-1),11)
    dr(2)=directory.getcreationtime(filename(i-1)）
    dt.rows.add(dr)
    next
   fileDataGrid.datasource= new dataview(dt)
    fileDataGrid.databind()
    end sub
    
     sub page_load(sender as object ,e as eventargs)
      if pagemode1.checked then
      fileDataGrid.pagerstyle.mode=pagermode.numericpages
     else
     fileDataGrid.pagerstyle.mode=pagermode.nextprev
     fileDataGrid.pagerstyle.prevpagetext="上一页"
     fileDataGrid.pagerstyle.nextpagetext="下一页"
     end if
     if not ispostback then BindList()
     end sub
     
    sub DataGrid_PageIndexChanged(sender as object ,e as datagridpagechangedeventargs)
    fileDataGrid.currentpageindex=e.newpageindex
    BindList()
    end sub
    
    sub DataGrid_Delete( sender As Object, E As DataGridCommandEventArgs)
    dim filename as string=ctype(fileDataGrid.datakeys(e.item.itemindex),string)
    
   dim filefullname as string
   filefullname="e:\upload"+"\"+filename
   file.delete(filefullname)
   
 end sub
    
		</script>
	</HEAD>
	<body>
		<h1 align="center">管理功能</h1>
		<font style="FONT-FAMILY: ?, Fantasy" face="" color="#ff66cc" size="20"></font>
		<form id="Form1" runat="server">
			<asp:datagrid id="fileDataGrid" DataKeyField="name" OnPageIndexChanged="DataGrid_PageIndexChanged"
				AllowPaging="True" Height="8px" Width="650px" HorizontalAlign="Center" AutoGenerateColumns="False"
				Runat="server" OnDeleteCommand="DataGrid_Delete">
				<HeaderStyle Font-Size="Small" Font-Bold="True" HorizontalAlign="Center" ForeColor="#FF00CC"
					BackColor="#990000"></HeaderStyle>
				<ItemStyle Font-Size="X-Small" ForeColor="#330999"></ItemStyle>
				<Columns>
					<asp:BoundColumn DataField="number" HeaderText="编号"></asp:BoundColumn>
					<asp:BoundColumn DataField="name" HeaderText="文件名"></asp:BoundColumn>
					<asp:BoundColumn DataField="date" HeaderText="创建日期"></asp:BoundColumn>
					<asp:TemplateColumn>
						<HeaderTemplate>
							删除
						</HeaderTemplate>
						<ItemTemplate>
							<asp:Button Runat="server" CommandName="Delete" Text="删除"></asp:Button>
						</ItemTemplate>
					</asp:TemplateColumn>
				</Columns>
			</asp:datagrid>
			<center>页码模式：
				<asp:radiobutton id="pagemode1" Runat="server" Text="数字模式" GroupName="页码模式" Checked="True" AutoPostBack="True"></asp:radiobutton><asp:radiobutton id="pagemode2" Runat="server" Text="上下页模式" GroupName="页码模式" Checked="True" AutoPostBack="True"></asp:radiobutton></center>
		</form>
		</FONT>
	</body>
</HTML>
⌨️ 快捷键说明

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