Tra la mia immane confusione ho trovato questo script
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 = 95
ThumbnailWidth = 100
ItemsPerPage = 1
ItemsHorizontal = 1 ' <--
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>" &"
<font size=1 color=#000080>"& ItemArray(i) &" "&_
"</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: 8pt;" &_
"color: #000000;" &_
"text-align:center;" &_
"}" & vbnewline &_
".table" &_
"{" &_
"margin:auto;" &_
"font-size: 8pt;" &_
"color: #000000;" &_
"text-align:center;" &_
"}" & 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>"
%>
le immagini vanno nella directory
public/gallery.
Come puoi ben vedere nella parte segnata in azzurro puoi fare tutti i settaggi riguardanti la directory, il numero di immg per pg, il num di immg per riga e le dimensioni delle Thumbnail.
Con poche modifiche penso tu possa adattarlo alle tue esigenze.
Rispondi quotando
