Envie um trecho de código para ASP exibir todas as imagens da pasta em uma única página, o que é útil para ler as imagens da pasta atual, lê-las e controlá-las. Copie o código do código da seguinte forma:
<%
dim fso,objFolder,objArquivos
escurecer lista de arquivos
Definir fso=Server.CreateObject(scripting.FileSystemObject)
Definir objFolder=fso.GetFolder(server.MapPath(thumbs))
Definir objFiles=objFolder.Files
'Loop para gerar os nomes dos arquivos no caminho da pasta
Para cada objFile em objFiles
Se getExt(objFile.name)=gif ou getExt(objFile.name)=jpg ou getExt(objFile.name)=jpeg Então
lista de arquivos = lista de arquivos<img src=&objArquivo.name>
Terminar se
Próximo
'Liberar objeto
Definir objFolder = nada
Defina fso = nada
'Obtém o tipo de arquivo
Função getExt(str)
getExt = Lcase(Right(str,Len(str)-InstrRev(str,.)))
Função final
%>
<%=lista de arquivos%>
Com base no código acima, o desenvolvimento secundário pode ser feito para causar confusão.