ASP文件操作--列出目录及文件  (1)

把以下文件建在同一目录，IIS中确定文件操作组件可用，即可用ASP列出文件和目录了，呵呵欢迎光临我的主页 http://skypavilion.yeah.net

----文件folder.inc-----
%26lt;%
folderini=%26quot;c:\%26quot;
%%26gt;


----文件index.asp-----
%26lt;!--#Include file=%26quot;folder.inc%26quot;--%26gt;
%26lt;html%26gt;
%26lt;head%26gt;
%26lt;title%26gt;FileSearch%26lt;/title%26gt;
%26lt;meta http-equiv=%26quot;Content-Type%26quot; content=%26quot;text/html; charset=gb2312%26quot;%26gt;
%26lt;/head%26gt;

%26lt;frameset rows=%26quot;80,*%26quot; frameborder=%26quot;1%26quot; border=%26quot;1%26quot; framespacing=%26quot;1%26quot; cols=%26quot;*%26quot;%26gt;
%26lt;frame name=%26quot;topFrame%26quot; scrolling=%26quot;NO%26quot; src=%26quot;up.asp%26quot; %26gt;
%26lt;frame name=%26quot;mainFrame%26quot; src=%26quot;getinfo.asp?foldinfo=%26lt;%=folderini%%26gt;%26quot;%26gt;
%26lt;/frameset%26gt;
%26lt;noframes%26gt;%26lt;body bgcolor=%26quot;#FFFFFF%26quot;%26gt;

%26lt;/body%26gt;%26lt;/noframes%26gt;
%26lt;/html%26gt;



----文件up.asp-----
%26lt;!--#Include file=%26quot;folder.inc%26quot;--%26gt;
%26lt;html%26gt;%26lt;title%26gt;Up%26lt;/title%26gt;
%26lt;head%26gt;
%26lt;style type=%26quot;text/css%26quot;%26gt;
%26lt;!--
.ttl1_txt {font-family: %26quot;Verdana%26quot;, %26quot;Arial%26quot;, %26quot;Helvetica%26quot;, %26quot;sans-serif%26quot;; font-size: 9pt}
.cnt_txt {font-family: %26quot;Verdana%26quot;, %26quot;Arial%26quot;, %26quot;Helvetica%26quot;, %26quot;sans-serif%26quot;; font-size: 9pt}
A:link{color:#0000ff;text-decoration: none}
A:visited {color:#0000ff;text-decoration: none}
A:active {color:#33ccff;text-decoration: underline}
A:hover {color:#33ccff;text-decoration: underline}
body{font-family: %26quot;Verdana%26quot;, %26quot;Arial%26quot;, %26quot;Helvetica%26quot;, %26quot;sans-serif%26quot;; font-size: 9pt}
Tr{font-family: %26quot;Verdana%26quot;, %26quot;Arial%26quot;, %26quot;Helvetica%26quot;, %26quot;sans-serif%26quot;; font-size: 9pt}
TD{font-family: %26quot;Verdana%26quot;, %26quot;Arial%26quot;, %26quot;Helvetica%26quot;, %26quot;sans-serif%26quot;; font-size: 9pt
--%26gt;
%26lt;/style%26gt;

%26lt;/head%26gt;
%26lt;table width=%26quot;780%26quot; border=%26quot;0%26quot; cellspacing=%26quot;1%26quot; cellpadding=%26quot;1%26quot;%26gt;
%26lt;tr align=%26quot;center%26quot;%26gt;
%26lt;td align=%26quot;center%26quot;%26gt;%26lt;a href=%26quot;getinfo.asp?foldinfo=%26lt;%=folderini%%26gt;%26quot; target=%26quot;mainFrame%26quot;%26gt;List All Folder/File Info%26lt;/a%26gt;
%26lt;/td%26gt;
%26lt;/tr%26gt;
%26lt;/table%26gt;
%26lt;/html%26gt;



----文件getinfo.asp-----
%26lt;!--#Include file=%26quot;folder.inc%26quot;--%26gt;
%26lt;%foldinfo=trim(Request.Querystring(%26quot;foldinfo%26quot;))%%26gt;
%26lt;html%26gt;
%26lt;head%26gt;
%26lt;title%26gt;GetInfo%26lt;/title%26gt;
%26lt;meta http-equiv=%26quot;Content-Type%26quot; content=%26quot;text/html; charset=gb2312%26quot;%26gt;
%26lt;style type=%26quot;text/css%26quot;%26gt;
%26lt;!--
.ttl1_txt {font-family: %26quot;Verdana%26quot;, %26quot;Arial%26quot;, %26quot;Helvetica%26quot;, %26quot;sans-serif%26quot;; font-size: 9pt}
.cnt_txt {font-family: %26quot;Verdana%26quot;, %26quot;Arial%26quot;, %26quot;Helvetica%26quot;, %26quot;sans-serif%26quot;; font-size: 9pt}
A:link{color:#0000ff;text-decoration: none}
A:visited {color:#0000ff;text-decoration: none}
A:active {color:#33ccff;text-decoration: underline}
A:hover {color:#33ccff;text-decoration: underline}
body{font-family: %26quot;Verdana%26quot;, %26quot;Arial%26quot;, %26quot;Helvetica%26quot;, %26quot;sans-serif%26quot;; font-size: 9pt}
Tr{font-family: %26quot;Verdana%26quot;, %26quot;Arial%26quot;, %26quot;Helvetica%26quot;, %26quot;sans-serif%26quot;; font-size: 9pt}
TD{font-family: %26quot;Verdana%26quot;, %26quot;Arial%26quot;, %26quot;Helvetica%26quot;, %26quot;sans-serif%26quot;; font-size: 9pt
--%26gt;
%26lt;/style%26gt;
%26lt;Script Language=%26quot;JavaScript%26quot;%26gt;
function fileinfo(filenamecode,filesize,lastmodify){
//document.write(filenamecode);
window.open(%26quot;fileinfo.asp?filename=%26quot;+filenamecode+%26quot;%26amp;filesize=%26quot;+filesize+%26quot;%26amp;lastmodify=%26quot;+lastmodify,%26quot;%26quot;,%26quot;height=200,width=450,resizable=yes,scrollbars=yes,status=yes,toolbar=no,menubar=no,location=no%26quot;);
}
%26lt;/Script%26gt;
%26lt;/head%26gt;

%26lt;body bgcolor=%26quot;#FFFFFF%26quot; text=%26quot;#000000%26quot;%26gt;
%26lt;table width=%26quot;780%26quot; border=%26quot;0%26quot; cellspacing=%26quot;0%26quot; cellpadding=%26quot;0%26quot;%26gt;
%26lt;tr%26gt;
%26lt;td class=%26quot;cnt_txt%26quot;%26gt; %26lt;font color=%26quot;#000000%26quot;%26gt;Current Folder:--%26lt;/font%26gt;%26lt;font color=%26quot;#FF7120%26quot;%26gt;%26lt;%=foldinfo%%26gt;%26lt;/font%26gt;%26lt;/td%26gt;
%26lt;/tr%26gt;
%26lt;tr%26gt;
%26lt;td%26gt;
%26lt;hr size=%26quot;1%26quot;%26gt;
%26lt;/td%26gt;
%26lt;/tr%26gt;
%26lt;tr%26gt;
%26lt;td%26gt;
%26lt;table width=%26quot;780%26quot; border=%26quot;0%26quot; cellspacing=%26quot;1%26quot; cellpadding=%26quot;1%26quot;%26gt;
%26lt;tr bgcolor=%26quot;#00CC00%26quot;%26gt;
%26lt;td width=%26quot;300%26quot; class=%26quot;cnt_txt%26quot;%26gt;Folder Name:%26lt;/td%26gt;
%26lt;td width=%26quot;180%26quot; class=%26quot;cnt_txt%26quot;%26gt;Size:%26lt;/td%26gt;
%26lt;td width=%26quot;300%26quot; class=%26quot;cnt_txt%26quot;%26gt;LastModify:%26lt;/td%26gt;
%26lt;/tr%26gt;
%26lt;/table%26gt;
%26lt;/td%26gt;
%26lt;/tr%26gt;
%26lt;tr%26gt;
%26lt;td align=%26quot;right%26quot; class=%26quot;cnt_txt%26quot;%26gt;
%26lt;%
upfolder=left(foldinfo,len(foldinfo)-1)
upfolder=left(upfolder,InstrRev(upfolder, %26quot;\%26quot;))
if foldinfo%26lt;%26gt;folderini then
response.write(%26quot;%26lt;a href='getinfo.asp?foldinfo=%26quot;%26amp;upfolder%26amp;%26quot;'%26gt;Parent Folder%26lt;/a%26gt;%26quot;)
else
response.write(%26quot;Parent Folder%26quot;)
end if%%26gt;
%26lt;/td%26gt;
%26lt;/tr%26gt;
%26lt;tr%26gt;
%26lt;td class=%26quot;cnt_txt%26quot;%26gt;
%26lt;% ShowFolderList(foldinfo) %%26gt;
%26lt;/td%26gt;
%26lt;/tr%26gt;
%26lt;tr%26gt;
%26lt;td class=%26quot;cnt_txt%26quot;%26gt;
%26lt;table width=%26quot;780%26quot; border=%26quot;0%26quot; cellspacing=%26quot;1%26quot; cellpadding=%26quot;1%26quot;%26gt;
%26lt;tr bgcolor=%26quot;#009999%26quot;%26gt;
%26lt;td width=%26quot;300%26quot;%26gt;File Name:%26lt;/td%26gt;
%26lt;td width=%26quot;180%26quot;%26gt;Size:%26lt;/td%26gt;
%26lt;td width=%26quot;300%26quot;%26gt;LastModify:%26lt;/td%26gt;
%26lt;/tr%26gt;
%26lt;/table%26gt;
%26lt;/td%26gt;
%26lt;/tr%26gt;
%26lt;tr%26gt;
%26lt;td class=%26quot;cnt_txt%26quot;%26gt;
%26lt;% showfolderinfo(foldinfo)%%26gt;
%26lt;/td%26gt;
%26lt;/tr%26gt;
%26lt;tr%26gt;
%26lt;td%26gt; %26lt;/td%26gt;
%26lt;/tr%26gt;
%26lt;/table%26gt;

%26lt;%
Sub ShowFolderList(folderspec)
Dim fs, f, f1, fc, s, schild,p,fsize
Set fs = CreateObject(%26quot;Scripting.FileSystemObject%26quot;)
Set f = fs.GetFolder(folderspec)
Set fc = f.SubFolders
For Each f1 in fc
s = f1.name
's = s %26amp;vbCrLf
p = f1.DateLastModified
fsize = f1.Size
schild=folderspec%26amp;s%26amp;%26quot;\%26quot;

Response.write(%26quot;%26lt;table width='780' border='0' cellspacing='1' cellpadding='1'%26gt;%26quot;)
Response.write(%26quot;%26lt;tr%26gt;%26quot;)
Response.write(%26quot;%26lt;td width='300' bgcolor='#ECFFD9'%26gt;%26lt;font face='Wingdings' font size='3pt'%26gt;0%26lt;/font%26gt;%26lt;a href='getinfo.asp?foldinfo=%26quot;%26amp;schild%26amp;%26quot;'%26gt;%26quot;%26amp;s%26amp;%26quot;%26lt;/a%26gt;%26lt;/td%26gt;%26quot;)
Response.write(%26quot;%26lt;td width='180' bgcolor='#ECFFD9'%26gt;%26quot;%26amp;fsize%26amp;%26quot;%26lt;/td%26gt;%26quot;)
Response.write(%26quot;%26lt;td width='300' bgcolor='#ECFFD9'%26gt;%26quot;%26amp;p%26amp;%26quot;%26lt;/td%26gt;%26quot;)
Response.write(%26quot;%26lt;/tr%26gt;%26quot;)
Response.write(%26quot;%26lt;/table%26gt;%26quot;)

Next
End Sub

Sub showfolderinfo(folderspc)
set MyFileObject=Server.CreateObject(%26quot;Scripting.FileSystemObject%26quot;)


Set MyFolder=MyFileObject.GetFolder(folderspc)

for each thing in MyFolder.Files
'Response.write(%26quot;%26lt;br%26gt;%26quot;%26amp;thing)
'===============Get file information
Set afile=MyFileObject.GetFile(thing)

'==========filename correct code
filenamecode=afile.name
filedetail=folderspc+filenamecode
filedetail=replace(filedetail,%26quot;\%26quot;,%26quot;*s_p_l_i_t*%26quot;)
filesize=afile.size
lastmodify=afile.DateLastModified

Response.write(%26quot;%26lt;table width='780' border='0' cellspacing='1' cellpadding='1'%26gt;%26quot;)
Response.write(%26quot;%26lt;tr%26gt;%26quot;)
Response.write(%26quot;%26lt;td width='300' bgcolor='#f4f4ff'%26gt;%26lt;font face='Wingdings' font size='3pt'%26gt;%26lt;%26lt;/font%26gt;%26lt;a href=%26quot;%26amp;chr(34)%26amp;%26quot;javascript:fileinfo('%26quot;%26amp;filedetail%26amp;%26quot;','%26quot;%26amp;filesize%26amp;%26quot;','%26quot;%26amp;lastmodify%26amp;%26quot;')%26quot;%26amp;chr(34)%26amp;%26quot;%26gt;%26quot;%26amp;filenamecode%26amp;%26quot;%26lt;/a%26gt;%26lt;/td%26gt;%26quot;)
Response.write(%26quot;%26lt;td width='180' bgcolor='#f4f4ff'%26gt;%26quot;%26amp;filesize%26amp;%26quot;%26lt;/td%26gt;%26quot;)
Response.write(%26quot;%26lt;td width='300' bgcolor='#f4f4ff'%26gt;%26quot;%26amp;lastmodify%26amp;%26quot;%26lt;/td%26gt;%26quot;)
Response.write(%26quot;%26lt;/tr%26gt;%26quot;)
Response.write(%26quot;%26lt;/table%26gt;%26quot;)
Next
End sub
%%26gt;
%26lt;/body%26gt;
%26lt;/html%26gt;


----文件fileinfo.asp-----
%26lt;%
filename=Request.QueryString(%26quot;filename%26quot;)
filename=replace(filename,%26quot;*s_p_l_i_t*%26quot;,%26quot;\%26quot;)
filesize=Request.QueryString(%26quot;filesize%26quot;)
lastmodify=Request.QueryString(%26quot;lastmodify%26quot;)
%%26gt;
%26lt;html%26gt;
%26lt;head%26gt;
%26lt;style type=%26quot;text/css%26quot;%26gt;
%26lt;!--
.ttl1_txt {font-family: %26quot;Verdana%26quot;, %26quot;Arial%26quot;, %26quot;Helvetica%26quot;, %26quot;sans-serif%26quot;; font-size: 9pt}
.cnt_txt {font-family: %26quot;Verdana%26quot;, %26quot;Arial%26quot;, %26quot;Helvetica%26quot;, %26quot;sans-serif%26quot;; font-size: 9pt}
A:link{color:#0000ff;text-decoration: none}
A:visited {color:#0000ff;text-decoration: none}
A:active {color:#33ccff;text-decoration: underline}
A:hover {color:#33ccff;text-decoration: underline}
body{font-family: %26quot;Verdana%26quot;, %26quot;Arial%26quot;, %26quot;Helvetica%26quot;, %26quot;sans-serif%26quot;; font-size: 9pt}
Tr{font-family: %26quot;Verdana%26quot;, %26quot;Arial%26quot;, %26quot;Helvetica%26quot;, %26quot;sans-serif%26quot;; font-size: 9pt}
TD{font-family: %26quot;Verdana%26quot;, %26quot;Arial%26quot;, %26quot;Helvetica%26quot;, %26quot;sans-serif%26quot;; font-size: 9pt
--%26gt;
%26lt;/style%26gt;
%26lt;/head%26gt;
%26lt;body%26gt;
%26lt;%
'Response.write filename%26amp;%26quot;%26lt;br%26gt;%26quot;%26amp;filesize%26amp;%26quot;%26lt;br%26gt;%26quot;%26amp;lastmodify
%%26gt;
%26lt;table width=%26quot;400%26quot; border=%26quot;0%26quot; cellspacing=%26quot;0%26quot; cellpadding=%26quot;0%26quot;%26gt;
%26lt;tr%26gt;
%26lt;td bgcolor=%26quot;#00CC00%26quot; colspan=%26quot;2%26quot;%26gt;Current File Info:%26lt;/td%26gt;
%26lt;/tr%26gt;
%26lt;tr valign=%26quot;top%26quot;%26gt;
%26lt;td width=%26quot;110%26quot;%26gt;File Location:%26lt;/td%26gt;
%26lt;td width=%26quot;290%26quot;%26gt;%26lt;font color=%26quot;#990000%26quot;%26gt;%26lt;font face='Wingdings' font size='3pt'%26gt;%26lt;%26lt;/font%26gt;%26lt;b%26gt; %26lt;%=filename%%26gt;%26lt;/b%26gt;%26lt;/font%26gt;%26lt;/td%26gt;
%26lt;/tr%26gt;
%26lt;tr%26gt;
%26lt;td colspan=%26quot;2%26quot;%26gt;
%26lt;hr size=%26quot;1%26quot;%26gt;
%26lt;/td%26gt;
%26lt;/tr%26gt;
%26lt;tr valign=%26quot;top%26quot;%26gt;
%26lt;td height=%26quot;11%26quot;%26gt;File Size: %26lt;/td%26gt;
%26lt;td height=%26quot;11%26quot;%26gt;%26lt;%=filesize%%26gt; bytes%26lt;/td%26gt;
%26lt;/tr%26gt;
%26lt;tr%26gt;
%26lt;td colspan=%26quot;2%26quot;%26gt;
%26lt;hr size=%26quot;1%26quot;%26gt;
%26lt;/td%26gt;
%26lt;/tr%26gt;
%26lt;tr valign=%26quot;top%26quot;%26gt;
%26lt;td%26gt;LastModify: %26lt;/td%26gt;
%26lt;td%26gt;%26lt;%=lastmodify%%26gt;%26lt;/td%26gt;
%26lt;/tr%26gt;
%26lt;tr%26gt;
%26lt;td colspan=%26quot;2%26quot;%26gt;
%26lt;hr size=%26quot;1%26quot;%26gt;
%26lt;/td%26gt;
%26lt;/tr%26gt;
%26lt;tr%26gt;
%26lt;td height=%26quot;18%26quot; colspan=%26quot;2%26quot;%26gt;
%26lt;p%26gt;Please Use appropriate Application to Open this File.%26lt;/p%26gt;
%26lt;/td%26gt;
%26lt;/tr%26gt;
%26lt;tr%26gt;
%26lt;td height=%26quot;13%26quot; align=%26quot;right%26quot; colspan=%26quot;2%26quot;%26gt;%26lt;a href=%26quot;javascript:this.window.close()%26quot;%26gt;Close
Window%26lt;/a%26gt;%26lt;/td%26gt;
%26lt;/tr%26gt;
%26lt;/table%26gt;
%26lt;/body%26gt;
%26lt;/html%26gt;