'sera a tutti spero che qui qualcuno possa darmi una mano
è tutto il giorno che mi spatto con questo codice...praticamente riesco a far visualizzare le immagini iserite all'interno di una specifica cartella....solo che vorrei far comparire sotto la foto anche il nome...ma non ci riescoqualcuno ci capisce qualcosa?
grazie mille...
codice:<% '******************************************************************* ' Darkroom Gallery v.1.0 '******************************************************************* ' Copyright (C) 2004 bjawnie.com ' ' This script is freeware specified as follows: ' ' You may modify the script to fit your needs in anyway you like. ' If you wish to redistribute it, non-commercial or commercial, however ' you are obligated to contact the author to get his permission. ' ' All copyright notices regarding bjawnie.com or links to bjawnie.com ' must remain intact in the scripts and in the outputted HTML. ' ' Support can be obtained through our site at bjawnie.com '******************************************************************* '********* ' SETTINGS ' --> dim PageTitle, ImageDirectory, ThumbnailHeight, ThumbnailWidth, ItemsPerPage, ItemsHorizontal PageTitle = "PhotoGallery" ImageDirectory = "\public\gallery\" ThumbnailHeight = 80 ThumbnailWidth = 100 ItemsPerPage = 2 ItemsHorizontal = 2 ' <-- 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:2px groove #cccccc;" &_ "}" & vbnewline &_ "a.link_image:hover" &_ "{" &_ "border:2px groove #cccccc;" &_ "}" & 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"">" &_ "" &_ "</div>" & vbnewline &_ "</body>" & vbnewline &_ "</html>" %>
Rispondi quotando
