asp 显示目录所有文件

option   explicit
dim   infopath                     '当前路径  
dim   serverpath                 '服务器路径  
dim   objfso                         '文件组件  
dim   objfile                       '文件  
dim   objfolder                   '目录  
dim   objfoldercontents   '所有文件  
dim   objfoldercount         '临时数组变量-文件夹  
dim   objfileitem               '临时数组变量-文件

infopath=request.servervariables("path_info")       '得到文件相对路径  
serverpath=server.mappath(infopath)                                   '得到文件绝对路径  

set   objfso=createobject("scripting.filesystemobject")       '实例文件组件  
set   objfile=objfso.getfile(serverpath)                                     '读取文件所在路径  
set   objfolder=objfile.parentfolder                                             '根据文件所在路径得到上级目录  

set   objfoldercontents=objfolder.files                                       '所有文件付给数组    

for   each   objfileitem   in   objfoldercontents                               '循环  
response.write("http://www.jiaochengji.com/" & objfileitem.name&"<br />")             '文件名  
next  

'代码二

set fso = server.createobject("scripting.filesystemobject")
if fso.folderexists(request("filepath")) then
set objfolder = fso.getfolder(request("filepath"))
 for each objfile in objfolder.files
             response.write objfile.name
         next
         set objfolder = nothing
set fso = nothing

'这样可以显示所有文件,但不包括文件夹
%>

您可能感兴趣的文章：
ASP Application对象教程
人文的ASP开发基础入门之简介
ASP教程之ASP基础简介
ASP基础
asp简单文本计数器
从ASP迁移至ASP --最初的考虑（一）
怎么运行asp文件
asp HTTP 500 内部服务器错误
asp获得虚拟主机的相对地址
ASP 3.0高级编程（三十四）