Mi che fatica iscriversi non riuscivo a trovare un nome utente valido!!
VVoVe:
be questa la dice lunga su come sono combinato perciò abbiate pietà di me!
aiutatemi
ho questo script
codice:<% @Language = "VBscript" %> <% ' SETTINGS ' --> dim PageTitle, ImageDirectory, ThumbnailHeight, ThumbnailWidth, ItemsPerPage, ItemsHorizontal PageTitle = "Stadio Radio " ImageDirectory = "Taurianovese/" 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:2px groove #000000;" &_ "}" & vbnewline &_ "a.link_image:hover" &_ "{" &_ "border:2px groove #000000;" &_ "}" & 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 &_ "</body>" & vbnewline &_ "</html>" %><body bgcolor="#28457F">
funziona alla grande però non mi da la possibilità di visualizzare quantomeno il nome del file sotto la foto, giusto per identificarla, vi prego aiutatemi
ciao e grazie anticipatamente
Rispondi quotando
