需要用图像创建一个目录视图吗？这个脚本会生成所有目录内容（文件和子目录）的图像视图。仅仅改变server.mappath（目录）到server.mappath（你的目录）。注意：一个过滤器会被应用到删除所有的MSFrontPage 2000目录，在输出的.cnf结束，然后被限制来显示文件图像，为了在.pdf, .asp, .txt,
列举出在目录中能找到的文件
For each directoryfile in allFiles.subfolders
%>
<% ' Removes certain MSFrontPage was directories
if right(directoryfile.Name,3) <> "cnf" then %>
<a href="directories/<% =directoryfile.Name %>" target="_blank">
<% =directoryfile.Name %></a>
<br>
<% end if %>
<% Next %>
<br>
Files
<br>
<% ' Lists all the files found in the directory
For each directoryfile in allFiles.files %>
<a href="directories/<% =directoryfile.Name %>">
<%
ext=right(directoryfile.Name,3)
select case ext
case "pdf","asp","htm","mdb","xls","ppt","doc","txt" %>
<img src="directories/images/<%= ext %>.jpg" border="0">
<% case else %>
<img src="data:image/svg+xml,%3Csvg%20xmlns='http://www.w3.org/2000/svg'%20viewBox='0%200%20480%20640'%3E%3C/svg%3E" loading='lazy' data-lazy-src="directories/images/unk.jpg" border="0">
<% end select %>
<% =directoryfile.Name %></a>
<br>
<% Next %>