【www.gdgbn.com--J2EE/EJB/服务器】
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.111cn.net/" & objfileitem.name&"
") "文件名
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
"这样可以显示所有文件,但不包括文件夹
%>