ASP目录遍历

最新推荐文章于 2018-01-05 14:50:14 发布

7禧

最新推荐文章于 2018-01-05 14:50:14 发布

阅读量544

点赞数

分类专栏：编程开发文章标签： asp each html

本文链接：https://blog.csdn.net/god_7z1/article/details/6774584

版权

编程开发专栏收录该内容

84 篇文章 0 订阅

订阅专栏

<%
set fso = CreateObject("Scripting.FileSystemObject")
targetPath=".. ext"
uploadPath = server.mappath(targetPath)
Set uploadfolder = fso.GetFolder(uploadPath)
set allfiles = uploadfolder.Files
for each fileitem in allfiles
sFileName = fileitem.Name
''判断文件类型
if right(sfilename,3)="png" _
or right(sfilename,3)="bmp" _
or right(sfilename,4)="aspx" _
or right(sfilename,3)="mid" _
or right(sfilename,3)="amr" _
or right(sfilename,3)="txt" _
or right(sfilename,4)="html" _
or right(sfilename,3)="htm" _
or right(sfilename,3)="jpg" _
or right(sfilename,3)="gif" _
or right(sfilename,3)="asp" _
then
response.write "<a href='"&targetPath&sFileName&"' target=_blank>"&sFileName&"</a><br>"
end if
next
%>