FSO列出目录下的所有文件名最简单的方法:
<%
Set FSO=Server.CreateObject("Scripting.FileSystemObject")
Set ServerFolder=FSO.GetFolder(Server.MapPath("photo\"))
Set ServerFolderList=ServerFolder.Files
For Each ServerFileEvery IN ServerFolderList
%>
<% =ServerFileEvery.Name %>
<% Next %>