📄 listfolder.asp
字号:
<%@ LANGUAGE="JavaScript"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE>CooSel 1.0005 List Folders and Files </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="V37">
<META NAME="Keywords" CONTENT="Nokeyword">
<META NAME="Description" CONTENT="Create by 2003/1/10">
<!--#include file="inc/coosel.css" -->
<%
Server.Execute("CheckList.asp"); //通过server.Execute("CheckList.asp") 执行中断
var action=Request.QueryString("action");
var GetPath;
var sStr,delselInfo
var maxdir=parseInt(Request.Form("maxdir"));
var maxfile=parseInt(Request.Form("maxfile"));
var GetPath=Request("path");
var infos="";
var infos1="";
var infos2="";
var infos3="";
var c = 0;
var tsiz=0;
var tsiz1=0;
Response.write ("</HEAD><BODY topmargin=0 bottommargin=20 leftmargin=0 rightmargin=0 bgcolor=#E1DDD4>");
Server.Execute("TopNav1.asp");
Response.write ("<table border=0 cellspacing=1 bgcolor=#E1DDD4 ");
Response.write ("<tr><td colspan=2><b> "+Server.MapPath(GetPath)+"</b></td></tr>")
if (action=='list')
{
Response.write (ShowSubFolderList(Server.MapPath(GetPath)));
Response.write ("<tr><td colspan=2 align=right height=40 valign=bottom>共"+c+"个目录,总"+parseInt(tsiz/1024)+" KB,子目录共"+parseInt(tsiz1/1024)+" KB<br>JavaScript ASP Create By V37 / 2003-1-10");
Response.write ('<hr size=1><input type="button" name="submit2" value="返回" onClick="window.history.back();"class="btx"></td></tr>');
}
else if (action=='listfile')
{
Response.write (ShowSubFolderListFiles(Server.MapPath(GetPath)));
Response.write ("<tr><td colspan=2 align=right height=40 valign=bottom>共"+c+"个文件,总"+parseInt(tsiz/1024)+" KB<br>JavaScript ASP Create By V37 / 2003-1-10");
Response.write ('<hr size=1><input type="button" name="submit2" value="返回" onClick="window.history.back();"class="btx"></td></tr>');
}
else
{
Response.write ("请指定参数")
}
Response.write ("</talbe></BODY></HTML>");
function ShowSubFolderList(folderspec) //递归函数显示所有子文件夹
{
var fso, f, fc,s,siz ;
var f1,fa1,fc1,ls
//fso = new ActiveXObject("Scripting.FileSystemObject");
fso = Server.CreateObject("Scripting.FileSystemObject");
f = fso.GetFolder(folderspec);
fc = new Enumerator(f.SubFolders);
s = "";
if (f.SubFolders.Count>0)
{
// for(i=1;i<=f.SubFolders.Count;i++)
for (;!fc.atEnd(); fc.moveNext())
{
ls=fc.item();
siz=fc.item().size
tsiz1+=siz
if (siz>1024)
{siz=parseInt(siz/1024);}
else
{if(siz>0){siz=1;}else{siz=0;}}
c += 1;
s +="<tr><td>";
s += " "+c+" "+fc.item()+"\\"+"</td><td align=right>"+siz+" KB"
s += " </td><td> "+fc.item().DateLastModified+"</td></tr>";
f1 = fso.GetFolder(folderspec);
if (f1.SubFolders.Count>0)
{
s += ShowSubFolderList(ls);
}
//fc.moveNext();
}
}
tsiz=f.size;
//fso=nothing;
return(s);
}
function ShowSubFolderListFiles(folderspec) //递归函数显示所有子文件夹的文件
{
var fso, f, fc,s,t,siz,ds;
var f1,fa1,fc1,ls,ffc,ff1;
var g,gc
//fso = new ActiveXObject("Scripting.FileSystemObject");
fso = Server.CreateObject("Scripting.FileSystemObject");
f = fso.GetFolder(folderspec);
fc = new Enumerator(f.SubFolders);
ffc = new Enumerator(f.files);
s = "";
t = "";
//----------
if (f.files.Count>0)
{
for (;!ffc.atEnd(); ffc.moveNext())
{
gs=fc.item();
ds=ffc.item().DateLastModified
//t += "<input type=file name=file"+c+" value="+"'"+ffc.item()+"'"+">";
siz=ffc.item().size
tsiz+=siz
if (siz>1024)
{siz=parseInt(siz/1024);}
else{if(siz>0){siz=1;}else{siz=0;}}
c += 1
t +="<tr><td>";
t += " "+c+" "+ffc.item()+"</td><td align=right>"+siz+" KB "
t += "</td><td> "+ds+"</td></tr>";
}
}
//--------------
if (f.SubFolders.Count>0)
{
// for(i=1;i<=f.SubFolders.Count;i++)
for (;!fc.atEnd(); fc.moveNext())
{
ls=fc.item();
s += fc.item();
s += "<br>";
f1 = fso.GetFolder(folderspec);
if (f1.SubFolders.Count>0)
{
t += ShowSubFolderListFiles(ls);
}
}
}
tsiz=f.size;
//fso=nothing;
return(t);
}
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -