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

2016-01-29 17:12 4 1 收藏

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

【 tulaoshi.com - ASP 】

 
    '**************************************
    ' 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 <TITLEFile Viewer</TITLE </HEAD
    <BODY
    <TABLE width="100%" border=1 bordercolor="#000000" align="left" cellpadding="2" cellspacing="0"
    <TR align="left" valign="top

来源:https://www.tulaoshi.com/n/20160129/1500654.html

延伸阅读
标签: ASP
<%@ Language=VBScript % <%Server.ScriptTimeout=50000% <HTML <HEAD <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0" <meta http-equiv="Content-Type" content="text/html; charset=gb2312" </HEAD <BODY <% function JudgeParaRegular(intID) if intID<"" and isnumeric(intID) then JudgePar...
void __fastcall TForm1::FormCreate(TObject *Sender) { CurrentDir=GetCurrentDir(); UpdateTreeView(); UpdateListView(); } //--------------------------------------------------------------------------- void __fastcall TForm1::UpdateTreeView() { TTreeNode *rNode,*mNode; TreeView1-Items-Clear(); rNode=TreeView1-Items-A...
标签: ASP
  使用了imagelib组件!      <%      site_id=Request.QueryString("site_id")      if isempty(site_id) then      Response.End      end if        &nb...
#includegraphics.h #includemath.h #includedos.h #define pi 3.1415926 #define X(a,b,c) x=a*cos(b*c*pi/180-pi/2)+300; #define Y(a,b,c) y=a*sin(b*c*pi/180-pi/2)+240; #define d(a,b,c) X(a,b,c);Y(a,b,c);line(300,240,x,y) void init() {int i,l,x1,x2,y1,y2; setbkcolor(1); c...
标签: ASP
  if bh="" then    sql="select * from sl where bh like '%"&ss&"%'"   else bh=clng(bh) sql="select * from sl where bh=" & bh & " " end if   if nam<"" then   sql=sql&" and nam like '...

经验教程

544

收藏

72
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部