Ho una gallery che mostra le immagini contenute in una cartella.
E' possibile, in qualche modo, far leggere le immagini da una cartella zippata? Grazie!![]()
Questo è il codice che sto usando.
codice:<% Dim subfolder(50) Dim files(200) Dim picture(200) percorso = "images/gallery" wwwpercorso = percorso ifolder=1 ifiles=1 iImage=1 estensione="jpg" numerothumb=4 Set fs = CreateObject("Scripting.FileSystemObject") filepath = "./" & percorso dbfile = Server.MapPath(filepath) wwwpath = URL Set f = fs.GetFolder(dbfile) Set sf = f.SubFolders For Each f in sf subfolder(ifolder) = subfolder(ifolder) & f.name ifolder=ifolder+1 Next do while ifolder>1 link=wwwpath & "?PATH=" &percorso&"/"&(subfolder(ifolder-1))&">" & subfolder(ifolder-1) Response.Write "<A HREF=" & link & "</A> " ifolder=ifolder-1 loop Set fl = fs.GetFolder(dbfile) Set file = fl.Files For Each fl in file files(ifiles) = files(ifiles) & fl.name ifiles=ifiles+1 Next totalefiles = ifiles for x =0 to totalefiles if Right (files(x),3) = estensione then picture(iImage)=files(x) iImage=iImage+1 end if next record = iImage-1 indice=0 Response.Write("<table width=100% border=0>") do while record > indice Response.Write("<tr>") i=1 do while ((i<numerothumb+1) and(record > indice)) Response.Write("<td valign=bottom> ") Response.Write("<div align=center><a href=" & wwwpercorso & "/" & picture(indice+1) & " rel=lightbox[roadtrip]>") Response.write("[img] & wwwpercorso & [/img]</a></div>") Response.Write("<div align=center>" & picture(indice+1) & "</font>") Response.Write(" </td>") indice = indice+1 i=i+1 loop Response.Write("</tr>") loop Response.Write("</table>") Set fl = Nothing Set sf = Nothing set f = Nothing Set fs = Nothing %>

Rispondi quotando