当前位置: 首页 > 图文教程 > 网络编程 > ASP > 简单的文件目录浏览源程序

ASP
资料验证的asp.net程序
用ASP、VB和XML建立互联网应用程序(1)
用ASP、VB和XML建立互联网应用程序(2)
用ASP、VB和XML建立互联网应用程序(3)
用ASP、VB和XML建立互联网应用程序(4)
用XSL.ASP编辑XML文档
一个ASP.NET+XML留言本例子
股票报价的WebService之一
股票报价的WebService之二
股票报价的WebService之三
股票报价的WebService之四
股票报价的WebService之五
ASP.NET发送ICQ信息DIY(1)
ASP.NET发送ICQ信息DIY(2)
无组件图文混合上传示例
使用AspImage制作图形(一)
使用AspImage制作图形(二)
一个漂亮的点击计数器
取得服务器上用户组列表脚本之VBS版
取得服务器上用户组列表的脚本之asp版

ASP 中的 简单的文件目录浏览源程序


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-11-03   浏览: 61 ::
收藏到网摘: n/a

 
    '**************************************
    ' 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