ho trovato una script fantastico per generare gallerie di immagini automaticamente e funziona alla grande:
praticametne il file legge le immagini da una cartella e crea una pagina con la preview; cliccando sopra la preview si apre un'altra finestra con la foto.
Ecco il mio problema:
il file crea preview con dimenzioni definite (come si vede dal codice)e molte immaggini risultano deformate.....
Come posso risolvere questo problema??
ecco il codice:
codice:<% dim PageTitle, ImageDirectory, ThumbnailHeight, ThumbnailWidth, ItemsPerPage, ItemsHorizontal PageTitle = "Darkroom Gallery" ImageDirectory = "/public/flair_gallery/gallery" ThumbnailHeight = 75 ThumbnailWidth = 75 ItemsPerPage = 10 ItemsHorizontal = 5 dim TotalItems, CurrentPage sub PrintGallery() CurrentPage = request.querystring("page") if CurrentPage = "" OR int(CurrentPage) = 0 then CurrentPage = 1 end if dim StartItem StartItem = ((CurrentPage - 1) * ItemsPerPage) + 1 if int(StartItem) = 0 then StartItem = 1 end if dim FileSystemObject, FileSystemObjectFiles set FileSystemObject = server.createobject("scripting.filesystemobject") set FileSystemObjectFiles = FileSystemObject.getfolder(server.mappath(ImageDirectory)) dim item, ItemArray for each item in FileSystemObjectFiles.files TotalItems = TotalItems + 1 if int(StartItem) <= int(TotalItems) AND int(StartItem + ItemsPerPage) > int(TotalItems) then if ItemArray = "" then ItemArray = ItemArray & item.name else ItemArray = ItemArray & "," & item.name end if end if next ItemArray = split(ItemArray, ",") response.write "<table class=""table"">" & vbnewline dim i, ItemPrints for i = 0 to ubound(ItemArray) ItemPrints = ItemPrints + 1 if int(ItemPrints) = 1 then response.write "<tr>" & vbnewline end if response.write "<td class=""td"">" &_ "<a href="""& ImageDirectory & "/" & ItemArray(i) & """ target=""_blank"" class=""link_image"">" &_ "[img][/img]" &_ "</a>" &_ "</td>" & vbnewline if int(ItemPrints) = int(ItemsHorizontal) OR i = ubound(ItemArray) then ItemPrints = 0 response.write "</tr>" & vbnewline end if next response.write "</table>" & vbnewline end sub private sub PrintPaging() dim TotalPages TotalItems = TotalItems TotalPages = TotalItems/ItemsPerPage if int(TotalPages) < TotalPages then TotalPages = int(TotalPages) + 1 end if dim PageName PageName = request.servervariables("script_name") if 1 < TotalPages then response.write "<div class=""div_paging"">" &_ "Page: " dim i for i = 1 to TotalPages if int(CurrentPage) = int(i) then response.write " ("& i &")" else response.write " <a href="""& PageName &"?page="& i &""" class=""link_paging"">" &_ i &_ "</a>" end if if NOT i = TotalPages then response.write ", " end if next response.write "</div>" end if end sub response.write "<html>" & vbnewline &_ "<head>" & vbnewline &_ "<title>" & PageTitle & "</title>" & vbnewline &_ "<style>" & vbnewline &_ "body" &_ "{" &_ "font-family: tahoma, verdana, arial;" &_ "font-size: 10pt;" &_ "color: #000000;" &_ "text-align:center;" &_ "}" & vbnewline &_ ".table" &_ "{" &_ "margin:auto;" &_ "}" & vbnewline &_ ".td" &_ "{" &_ "padding:20px;" &_ "}" & vbnewline &_ "a.link_image" &_ "{" &_ "border:5px groove #006600;" &_ "}" & vbnewline &_ "a.link_image:hover" &_ "{" &_ "border:5px groove #009900;" &_ "}" & vbnewline &_ "a.link_paging" &_ "{" &_ "text-decoration:underline;" &_ "color: #000000;" &_ "}" & vbnewline &_ "a.link_paging:hover" &_ "{" &_ "text-decoration:none;" &_ "color: #000000;" &_ "}" & vbnewline &_ "a.link_credits" &_ "{" &_ "font-size: 8pt;" &_ "color: #000000;" &_ "}" & vbnewline &_ ".div_credits" &_ "{" &_ "font-size: 8pt;" &_ "color: #000000;" &_ "}" & vbnewline &_ ".image" &_ "{" &_ "border:0px;" &_ "}" & vbnewline &_ "</style>" & vbnewline &_ "</head>" & vbnewline &_ "<body>" & vbnewline call PrintGallery() call PrintPaging() response.write " " & vbnewline &_ " " & vbnewline &_ "<div class=""div_credits"">" &_ "Darkroom Gallery" &_ "</div>" & vbnewline &_ "</body>" & vbnewline &_ "</html>" %>
Rispondi quotando
