asp教程 显示目录所有文件
optionexplicit
diminfopath'当前路径
dimserverpath'服务器路径
dimobjfso'文件组件
dimobjfile'文件
dimobjfolder'目录
dimobjfoldercontents'所有文件
dimobjfoldercount'临时数组变量-文件夹
dimobjfileitem'临时数组变量-文件
infopath=request.servervariables("path_info")'得到文件相对路径
serverpath=server.mappath(infopath)'得到文件绝对路径
setobjfso=createobject("scripting.filesystemobject")'实例文件组件
setobjfile=objfso.getfile(serverpath)'读取文件所在路径
setobjfolder=objfile.parentfolder'根据文件所在路径得到上级目录
setobjfoldercontents=objfolder.files'所有文件付给数组
foreachobjfileiteminobjfoldercontents'循环
response.write("http://www.111cn.net/" & 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
'这样可以显示所有文件,但不包括文件夹
%>
