Fotogallery e thumbnail

[lapiadina]

Ciao a tutti, dovrei realizzare una fotogallery in cui le immagini sono contenute in diverse directory divise per argomento, e vorrei fare apparire come miniatura solo 1 immagine per cartella alla quale poi associo un link per visualizzare tutte le altre foto.
I problemi che ho sono:
1- creare delle thumbnail-> forse riadattando qualche script già fatto ci riesco
2- non so come fare per visualizzare solo 1 immagine per cartella..
un autino?
Thanks

[santino83]

allora, salvo l'utilizzo di componenti appositi installati sul server(in genere, se non sono preinstallati, sono a pagamento aggiuntivo), devi usare asp.net per creare la thumbnail

LINK SCRIPT THUMB

per la seconda, che vuol dire visualizzare una sola immagine per cartella? basta che ne prendi una sola col filesystemobject

cmq parti dalla thumb, crea il progetto e poi la visualizzazione di una sola img la puoi vedere + avanti

[lapiadina]

ok, intanto grazie creo le thumb.

[lapiadina]

ciao Santino, scusa la mia ignoranza in materia.. ma se volessi creare delle thumb non con dimensioni predefinite ma ridurle in %?
..
ThumbnailHeight = 50
ThumbnailWidth = 50
..
come diventa?

[santino83]

devi calcolarti te l'altezza e larghezza usando le proporzioni

altezza : 100 = nuova_altezza : X

dove x è la percentuale


chiedi a quelli di asp.net come si ricavano le dimensioni di una immagine che non so se c'è scritto li nello script

[lapiadina]

non ho utilizzato quello in asp.net che mi hai indicato..non ci capivo molto..
ho utilizzato Asp Vb e gira bene, ma adesso ho un altro problemino. Quando alla gallery gli passo la variabile del nome della directory tutto ok, ma poi se aggiorno la pagina o scorro all'immagine succesiva mi perde il path dandomi un bel errore " Missing Path ".
Penso che sia un problema di Session ma non so bene. Mi potresti aiutare? ti posto il codice: (il path è "ImageDirectory")

dim idImg, percorso, NomeInclude, PageTitle, ImageDirectory, ThumbnailHeight, ThumbnailWidth, ItemsPerPage, ItemsHorizontal
idImg = Request.QueryString("idImg")
ImageDirectory = Request.QueryString("folder")
NomeInclude = percorso & ".asp"
PageTitle = "Foto Gallery"
ThumbnailHeight = 320
ThumbnailWidth = 430
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(ImageDir ectory))
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....

[lapiadina]

ho provato ad inserire l'oggetto Session.
...
Session("ImageDirectory") = Request.QueryString("folder")
...
ImageDirectory = Session("ImageDirectory")
...
set FileSystemObjectFiles = FileSystemObject.getfolder(server.mappath(ImageDir ectory))

ma su quest'ultima riga mi da l'errore " Missing Path " quando link su altra immagine..

[lapiadina]

ho risolto un pò alla buona.. al link di ogni immagine reinvio "bovinamente" nuovamente tutte le variabili..
Thanks!

[santino83]

era un semplice

ImageDirectory=request.querystring("folder")
if len(trim(ImageDirectory))=0 then
if len(trim(session("folder")))=0 then
response.write "errore nessuna path inizializzata"
response.end
else
imageDirectory=session("folder")
end if
end if
session("folder")=imagedirectory

[lapiadina]

Santino, grazie per le tue indicazioni, adesso dovrei passare alla fase 2, cioè fare una pagina asp che mi crea solo 1 una thumb per ogni cartella. Mi spiego meglio, ho diverse cartelle che contengono varie img e vorrei che venisse visualizzata solo una thumb per cartella e poi vorrei associare ad opgni thumb creata un link inviando la variabile con il nome della cartella (folder).
Utilizzando il FileSystemObject..
dim FileSystemObject, FileSystemObjectFiles
set FileSystemObject= server.createobject("scripting.filesystemobject")
set FileSystemObjectFiles= FileSystemObject.getfolder(server.mappath(ImageDir ectory))
... un aiutino?
intanto continuo a provare