'**************************************
' Name: File / Directory Viewer
' Description:This Will Display All The
' Files, File Size and file date of every
' file in the directory you specify.
To make this work, paste the code into your favorite html editor, save it and Then view it.
' By: Thomas Michael
'
'
' Inputs:None
'
' Returns:None
'
'Assumes:File System Object Be Needed :)
' and it is setup to look for you my docum
' ents folder at "c:\mydocu~1" but you can
' change the line of code to look in any d
' irectory.
'
'Side Effects:None
'
'Warranty:
'code provided by Planet Source Code(tm)
' (http://www.Planet-Source-Code.com) 'as
' is', without warranties as to performanc
' e, fitness, merchantability,and any othe
' r warranty (whether expressed or implied
' ).
'Terms of Agreement:
'By using this source code, you agree to
' the following terms...
' 1) You may use this source code in per
' sonal projects and may compile it into a
' n .exe/.dll/.ocx and distribute it in bi
' nary format freely and with no charge.
' 2) You MAY NOT redistribute this sourc
' e code (for example to a web site) witho
' ut written permission from the original
' author.Failure to do so is a violation o
' f copyright laws.
' 3) You may link to this code from anot
' her website, provided it is not wrapped
' in a frame.
' 4) The author of this code may have re
' tained certain additional copyright righ
' ts.If so, this is indicated in the autho
' r's description.
'**************************************
<%@ LANGUAGE="VBSCRIPT" %>
<% Option Explicit %>
<HTML>
<HEAD> <TITLE>File Viewer</TITLE> </HEAD>
<BODY>
<TABLE width="100%" border=1 bordercolor="#000000" align="left" cellpadding="2" cellspacing="0">
<TR align="left" valign="top" bgcolor="#000000">
<TD width="65%"><FONT color="#FFFFFF"><B><FONT size="2" face="Verdana, Arial, Helvetica, sans-
serif">Title</FONT></B></FONT></TD>
<TD width="10%"><FONT color="#FFFFFF"><B><FONT size="2" face="Verdana, Arial, Helvetica, sans-
serif">Size</FONT></B></FONT></TD>
<TD width="25%"><FONT color="#FFFFFF"><B><FONT size="2" face="Verdana, Arial, Helvetica, sans-
serif">Date</FONT></B></FONT></TD>
</TR>
<%
'File System Object
Dim objFSO
'File Object
Dim objFile
'Folder Object
Dim objFolder
'String To Store The Real Path
Dim sMapPath
'Create File System Object To Get list of files
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Get The path For the web page and its dir.
'change this setting To view different directories
sMapPath = "C:\Mydocu~1"
'Set the object folder To the mapped path
Set objFolder = objFSO.GetFolder(sMapPath)
'For Each file In the folder
For Each objFile In objFolder.Files
%>
<TR align="left" valign="top" bordercolor="#999999" bgcolor="#FFFFFF">
<TD> <FONT size="2" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"><A href="<% =
sMapPath & "/" & objFile.Name %>">
<%
'write the files name
Response.Write objFile.Name
%>
</A>
</FONT>
</TD>
<TD>
<FONT size="2" face="Verdana, Arial, Helvetica, sans-serif" color="#000000">
<%
'We will format the file size so it looks pretty
If objFile.Size <1024 Then
Response.Write objFile.Size & " Bytes"
ElseIf objFile.Size < 1048576 Then
Response.Write Round(objFile.Size / 1024.1) & " KB"
Else
Response.Write Round((objFile.Size/1024)/1024.1) & " MB"
End If
%>
</FONT>
</TD>
<TD>
<FONT size="2" face="Verdana, Arial, Helvetica, sans-serif" color="#000000">
<% 'the files Date
Response.Write objFile.DateLastModified
%>
</FONT>
</TD>
</FONT>
</TD>
</TR>
<%
Next
%>
</TABLE>
</BODY>
</HTML>
简单的文件目录浏览源程序
时间: 2024-10-30 20:04:05
简单的文件目录浏览源程序的相关文章
“闪播”网络,无需注册、操作简单,视频浏览更流畅
近日,途经北京首都国际机场.广州白云机场和重庆江北机场的旅客可利用手机.电脑及机场多媒体亭触摸屏搜索并登录闪播网,体验丰富且免费的新闻咨询.奥运视频在线观看.电子书浏览.音乐试听等应用,充分享受"忙里偷闲"的乐趣. 无需注册.操作简单,视频浏览更流畅 基于户外空间网络信号不稳定.大流量应用不流畅,以及越来越多的都市人在公共出行过程有使用无线网络的习惯,我们了解到,途径机场的旅客只需通过随身携带的智能手机.平板电脑或笔记本电脑搜索并连接机场无线网络(AIRPORT_WIFI_FREE)后
一个简单的PHP入门源程序如留言板(中文)--新手入门
程序|中文 引用"星空浪子"php中文文档的例子: 聊天室,是 Web 站上打发无聊人士的秘密武器.同时,站长或其它人员也可以在这儿杀时间.甚至发生一段轰轰烈烈的网路恋情呢,就算没有,起码可以增加打字的速度.聊天室,其实就是多人共同使用的 CGI 程式.程式将每个人输入的字串,依系统接收完成的时间整理过后,再送给各个使用者.而 Web 聊天室和 BBS 的聊天室不同的地方是 BBS 聊天室可以每收到一句话,就马上分送给每位在聊天室的网路使用者:Web 由于 CGI 程式不能像 BBS
一个简单的PHP入门源程序
程序 引用"星空浪子"php中文文档的例子: 聊天室,是 Web 站上打发无聊人士的秘密武器.同时,站长或其它人员也可以在这儿杀时间.甚至发生一段轰轰烈烈的网路恋情呢,就算没有,起码可以增加打字的速度. 聊天室,其实就是多人共同使用的 CGI 程式.程式将每个人输入的字串,依系统接收完成的时间整理过后,再送给各个使用者.而 Web 聊天室和 BBS 的聊天室不同的地方是 BBS 聊天室可以每收到一句话,就马上分送给每位在聊天室的网路使用者:Web 由于 CGI 程式不能像 BBS 的
一个简单的PHP入门源程序_php基础
引用"星空浪子"php中文文档的例子: 聊天室,是 Web 站上打发无聊人士的秘密武器.同时,站长或其它人员也可以在这儿杀时间.甚至发生一段轰轰烈烈的网路恋情呢,就算没有,起码可以增加打字的速度. 聊天室,其实就是多人共同使用的 CGI 程式.程式将每个人输入的字串,依系统接收完成的时间整理过后,再送给各个使用者.而 Web 聊天室和 BBS 的聊天室不同的地方是 BBS 聊天室可以每收到一句话,就马上分送给每位在聊天室的网路使用者:Web 由于 CGI 程式不能像 BBS 的 tel
LINE9的目录浏览源程序
程序 <%' make sure you have the 6 dir_*.gif files!' yes, you can copy ours if ya want too.. :)' dir_dir.gif .. etc.Function ShowImageForType(strName)strTemp = strNameIf strTemp <> "dir" ThenstrTemp = LCase(Right(strTemp, Len(strTemp) - In
Haneng.com的简单留言板制作源程序例子
程序 default.asp-------------------------------<HTML><BODY BGCOLOR="#FFFFFF" TEXT="#000000"><B>This is my guestbook. Use this form to submit your greeting:</B><BR> <FORM METHOD="POST" ACTION=&qu
uc浏览器无痕浏览设置在哪里?
UC浏览器是一款由阿里巴巴在移动端发布的手机浏览器,该浏览器占据国内数亿手机用户,并且在该浏览器包含有多种功能及网址导航,并集下载与网页查看功能于一身,受到了许多用户的青睐,不过在UC浏览器中还隐藏着诸多的功能,如"无痕浏览"就是一大特色,那么UC浏览器如何开启"无痕浏览"呢?下面我们学习下吧! 操作方法 手机虽然是一个很隐私的设备,但是注意保护自己的隐私也是很必要的.浏览一些网页的时候,想及时清理掉"浏览记录",只需要在推出UC浏览器的
uc浏览器无痕浏览设置在哪里
UC浏览器在移动端的用户非常多,跟UC浏览器良好的用户体验和完善的功能是分不开的,UC浏览器中还隐藏一些实用的小功能.下面就介绍UC浏览器开启"无痕浏览"的方法. 设置教程 手机虽然是一个很隐私的设备,但是注意保护自己的隐私也是很必要的.浏览一些网页的时候,想及时清理掉"浏览记录",只需要在推出UC浏览器的时候,勾选"清除浏览记录"即可.或者在"书签/收藏->历史"里面点击"清空". 这就要每次都
linux中Nginx打开文件目录列表功能
示例配置文件 这里给出示例的配置文件,只需要修改hostname即可. server { listen 80; charset utf-8; server_name localhost; root /www/web/default; location / { autoindex on; autoindex_exact_size off; autoindex_localtime on; } } 其中server name localhost中的localhost改为实际的主机名,而root /