灰儿 发表于 2008-2-28 21:15:21

显示本机硬盘文件asp源码（本地硬盘文件浏览器）

&lt;%@ LANGUAGE="VBSCRIPT" %&gt;<br />&lt;% Option Explicit %&gt;<br />&lt;HTML&gt;<br />&lt;HEAD&gt; &lt;TITLE&gt;文件浏览器&lt;/TITLE&gt; &lt;/HEAD&gt;<br />&lt;BODY&gt;<br />&lt;TABLE width="100%" border=1 bordercolor="#000000" align="left" cellpadding="2" cellspacing="0"&gt;<br />&lt;TR align="left" valign="top"&nbsp; bgcolor="#800000" &gt; <br />&lt;TD width="60%"&gt;&lt;FONT color="#ffffff"&gt;&lt;B&gt;&lt;FONT size="2" face="宋体"&gt;文件名&lt;/FONT&gt;&lt;/B&gt;&lt;/FONT&gt;&lt;/TD&gt;<br />&lt;TD width="15%"&gt;&lt;FONT color="#ffffff"&gt;&lt;B&gt;&lt;FONT size="2" face="宋体"&gt;大小&lt;/FONT&gt;&lt;/B&gt;&lt;/FONT&gt;&lt;/TD&gt;<br />&lt;TD width="25%"&gt;&lt;FONT color="#ffffff"&gt;&lt;B&gt;&lt;FONT size="2" face="宋体"&gt;修改日期&lt;/FONT&gt;&lt;/B&gt;&lt;/FONT&gt;&lt;/TD&gt;<br />&lt;/TR&gt;<br />&lt;%<br />Dim objFSO<br />Dim objFile<br />Dim objFolder<br />Dim sMapPath<br />Set objFSO = CreateObject("Scripting.FileSystemObject")<br />sMapPath ="c:&#92;windows"<br />Set objFolder = objFSO.GetFolder(sMapPath)<br />For Each objFile In objFolder.Files<br />%&gt; <br />&lt;TR align="left" valign="top" bordercolor="#999999" bgcolor=&#39;f7efde&#39;&gt; <br />&lt;TD&gt; &lt;FONT size="2" face="宋体" color="#000000"&gt;&lt;A href="&lt;% = sMapPath &amp; "/" &amp; objFile.Name %&gt;"&gt; <br />&lt;%<br />Response.Write objFile.Name<br />%&gt;<br />&lt;/A&gt;<br />&lt;/FONT&gt;<br />&lt;/TD&gt;<br />&lt;TD&gt;<br />&lt;FONT size="2" face="宋体" color="#000000"&gt;<br />&lt;%<br />If objFile.Size &lt;1024 Then<br />Response.Write objFile.Size &amp; " Bytes"<br />ElseIf objFile.Size &lt; 1048576 Then<br />Response.Write Round(objFile.Size / 1024.1) &amp; " KB"<br />Else<br />Response.Write Round((objFile.Size/1024)/1024.1) &amp; " MB"<br />End If<br />%&gt;<br />&lt;/FONT&gt;<br />&lt;/TD&gt;<br />&lt;TD&gt;<br />&lt;FONT size="2" face="宋体" color="#000000"&gt;<br />&lt;% <br />Response.Write objFile.DateLastModified<br />%&gt;<br />&lt;/FONT&gt;<br />&lt;/TD&gt;<br />&lt;/FONT&gt;<br />&lt;/TD&gt;<br />&lt;/TR&gt;<br />&lt;%<br />Next<br />%&gt; <br />&lt;/TABLE&gt;<br />&lt;/BODY&gt;<br />&lt;/HTML&gt;
页: [1]
查看完整版本: 显示本机硬盘文件asp源码（本地硬盘文件浏览器）