📄 admin_adminvod.aspx

📁 用C#,VB和SQLSERVER编写的远程教学程序
💻 ASPX
字号:
<%@Import NameSpace="System.IO"%>
<%@Import NameSpace="System.Data"%>
<HTML>
	<HEAD>
		<Script Language="VB" Runat="Server">
Sub page_load(Sender As Object,E As EventArgs)
   Dim pdir As String="d:\film"
   Dim cdir As String=Request("dir")
   '判断是否有Request值或者当前目录已经到达根目录则
   If cdir="" or cdir=pdir then
   '显示最顶层目录
    up_Dir.InnerHtml="根目录"
   '设置当前目录
    cur_dir.text=pdir
   Else
     Dim subdir As String
     cur_dir.text=cdir
     '取出上一层目录
     subdir=cdir.subString(0,cdir.lastIndexOf("\"))
     '允许向上一层目录浏览
     up_Dir.InnerHtml="<a href=admin_adminvod.aspx?dir=" & subdir & ">向上</a>"
   End If
   '设置添加新目录链接
   new_dir.InnerHtml="<a href=new_file.aspx?dir=" & cur_dir.text & ">添加目录</a>"
   '设置上传文件链接
   upload_file.InnerHtml="<a href=upload_file.aspx?dir=" & cur_dir.text & ">上传文件</a>"
   Dim dir As Directory
   '为DataGrid创建数据源
   Dim dt As New DataTable()
   Dim dr As DataRow
   '创建数据列
   dt.Columns.Add(new DataColumn("name", System.Type.GetType("System.String")))
   dt.Columns.Add(new DataColumn("type", System.Type.GetType("System.String")))
   dt.Columns.Add(new DataColumn("Action", System.Type.GetType("System.String")))
   dt.Columns.Add(new DataColumn("delete", System.Type.GetType("System.String")))
   Dim d As string
   Dim Filesplit(),fd,ee(),rr,ff,ww,gg,ss As String
   '遍历当前目录下的所有文件和目录
   For each d in dir.GetFileSystemEntries(cur_dir.text)
     dr=dt.NewRow()
     If File.Exists(d) then
        '取出文件名
        Filesplit=split(d,"\")
        fd=Filesplit(Filesplit.Length-1)
        ee=split(fd,".")
        rr=ee(0)
        ff=".asx"
        ww="asx/"+rr+ff
        gg=".htm"
        ss="asx/"+rr+gg
        dr(0)=fd
        dr(1)="文件"
        '建立点播文件链接
        dr(2)="<a href=" & ww & " target=_blank  runat=server> 点播 </a>"
        '建立删除文件链接
        dr(3)="<a href=delete_file.aspx?dir=" & d & ">删除</a>"
     Else
        '取出目录名
        Filesplit=split(d,"\")
        fd=Filesplit(Filesplit.Length-1)
        dr(0)=fd
        dr(1)="目录"
        '允许向下浏览
        dr(2)="<a href=admin_adminvod.aspx?dir=" & d & ">查看</a>"
        '建立删除文件链接
        dr(3)="<a href=delete_file.aspx?dir=" & d & ">删除</a>"       
     End If
    dt.Rows.Add(dr)
   Next
   MyDir.DataSource=dt.defaultview
   MyDir.DataBind()
End Sub
		</Script>
	</HEAD>
	<Body>
		当前目录:<asp:label id="cur_dir" borderstyle="Groove" runat="Server" />
		<Table border="1">
			<tr>
				<td>
					<span id="new_dir" runat="Server" />
				</td>
				<td>
					<span id="upload_file" runat="Server" />
				</td>
				<td>
					<span id="up_dir" runat="Server" />
				</td>
			</tr>
		</Table>
		<asp:DataGrid id="MyDir" Runat="Server" headerstyle-backcolor="#666699" headerstyle-forecolor="#FFFFFF"
			itemstyle-backcolor="#EEEEEE" alternatingitemstyle-backcolor="#FFFFFF" alternatingitemstyle-forecolor="#000000"
			AutoGenerateColumns="False" Width="736px" HorizontalAlign="Center" Height="182px">
			<HeaderStyle Font-Names="新宋体" HorizontalAlign="Center" ForeColor="White" BackColor="#FF3399"></HeaderStyle>
			<AlternatingItemStyle ForeColor="Black" BackColor="White"></AlternatingItemStyle>
			<ItemStyle BackColor="#EEEEEE"></ItemStyle>
			<Columns>
				<asp:BoundColumn DataField="type" HeaderText="目录/文件">
					<HeaderStyle Font-Names="新宋体"></HeaderStyle>
					<ItemStyle Width="50px"></ItemStyle>
					<FooterStyle Font-Names="新宋体"></FooterStyle>
				</asp:BoundColumn>
				<asp:BoundColumn DataField="name" HeaderText="名称">
					<ItemStyle Width="200px"></ItemStyle>
				</asp:BoundColumn>
				<asp:BoundColumn DataField="action" HeaderText="内容">
					<ItemStyle Width="100px"></ItemStyle>
				</asp:BoundColumn>
				<asp:BoundColumn DataField="delete" HeaderText="删除">
					<ItemStyle Width="50px"></ItemStyle>
				</asp:BoundColumn>
			</Columns>
		</asp:DataGrid>
	</Body>
</HTML>
⌨️ 快捷键说明

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