<%
       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 %>