📄 vip_vod.aspx

📁 用C#,VB和SQLSERVER编写的远程教学程序
💻 ASPX
字号:
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.IO" %>
<%@ import Namespace="System" %>
<HTML>
	<HEAD>
		<script runat="server" language="vb">

   
       
     sub BindList()
    Dim pdir As String="f:\TOOLS"
   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=vip_vod.aspx?dir=" & subdir & ">返回</a>"
   End If
   
   
   
   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")))
   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>Media Play 点播 </a>   <br> <a href=" & ss & " target=_blank >IE 点播 </a>"
        
     Else
        '取出目录名
        Filesplit=split(d,"\")
        fd=Filesplit(Filesplit.Length-1)
        dr(0)=fd
        dr(1)="目录"
        '允许向下浏览
        dr(2)="<a href=vip_vod.aspx?dir=" & d & ">查看</a>"
           
     End If
    dt.Rows.Add(dr)
   Next
   fileDatagrid.DataSource=dt.defaultview
   fileDatagrid.DataBind()
End Sub

    
     sub page_load(sender as object ,e as eventargs)
     if pagemode2.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
 
		</script>
	</HEAD>
	<body>
		<h1 align="center">会员点播</h1>
		<font style="FONT-FAMILY: ?, Fantasy" face="" color="#ff66cc" size="20"></font>
		<form runat="server" ID="Form1">
			当前目录:<asp:label id="cur_dir" borderstyle="Groove" runat="Server" />
			<Table border="1">
				<tr>
					<td>
						<span id="up_dir" runat="Server" />
					</td>
				</tr>
			</Table>
			<asp:DataGrid Runat="server" ID="fileDataGrid" AutoGenerateColumns="False" HorizontalAlign="Center"
				Width="776px" Height="8px" AllowPaging="True" PageSize="10" OnPageIndexChanged="DataGrid_PageIndexChanged">
				<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="type" HeaderText="目录/文件" Itemstyle-width="100" />
					<asp:boundcolumn DataField="name" HeaderText="名称" Itemstyle-width="100" />
					<asp:boundcolumn DataField="action" HeaderText="内容" Itemstyle-width="100" />
				</Columns>
			</asp:DataGrid>
			<center>
				页码模式：
				<asp:RadioButton Runat="server" ID="pagemode1" AutoPostBack="True" Checked="True" GroupName="页码模式"
					Text="数字模式" />
				<asp:RadioButton Runat="server" ID="pagemode2" AutoPostBack="True" Checked="True" GroupName="页码模式"
					Text="上下页模式" />
			</center>
		</form>
		</FONT>
	</body>
</HTML>
⌨️ 快捷键说明

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