显示目录下所有的文件（含文件夹）- ASP

当前位置: 首页 > 图文教程 > 网络编程 > ASP > 显示目录下所有的文件（含文件夹）

技术文章搜索

关键字

ASP 中的显示目录下所有的文件（含文件夹）

出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 239 ::

收藏到网摘: n/a

1小时ASP入门 [漏洞]利用Activer server explorer可对文件进行读写访问

<%
 set A=server.createobject("scripting.filesystemobject")
 path="G:\count\0"
 i=0
 response.write "主目录： "&path&"<ul>"
 re
 response.write "</li></ul>" '-----------------主目录
 sub re()
 B=B&i
 C=C&i
 D=D&i
 E=E&i
 set B=A.getfolder(path) '----------------------主目录下文件
 if i>=2 then response.write "<ul>"
 for each E in B.files
 response.write "<li>"&E.name&"</li>"
 next
 if i>=2 then response.write "</ul>"
 '----------------------End '---------------------------主目录下文件夹 set C=B.SubFolders
 if i>=2 then response.write "<ul>"
 for each D in C
 response.write "<li>"&D.name&"(DIR)"
 i=i+1
 path=D
 re2 '显示子目录
 next
 if i>=2 then response.write "</ul>"
 '---------------------------End
 end sub '-----------------次目录
 sub re2()
 B=B&i
 C=C&i
 D=D&i
 set B=A.getfolder(path) '-----------------------------次目录下文件
 response.write "<ul>"
 for each E in B.files
 response.write "<li>"&E.name&"</li>"
 next
 response.write "</ul>"
 '-----------------------------End '-----------------------------次目录下文件夹
 set C=B.SubFolders
 response.write "<ul>"
 for each D in C
 response.write "<li>"&D.name&"(DIR)</li>"
 i=i+1
 path=D
 re '显示子目录
 next
 response.write "</ul>" '-----------------------------End
 end sub
 %>

1小时ASP入门 [漏洞]利用Activer server explorer可对文件进行读写访问

ASP 中的 显示目录下所有的文件（含文件夹）

评论 (0) All

ASP 中的显示目录下所有的文件（含文件夹）