Errore visualizzazione anteprime in script photogalelry

[the-bit]

Buon pomeriggio,

sono alla ricerca di un semplice script asp che imppagini auutomaticamente tutte le immagini presenti in deteterminate cartelle e sub cartelle. Per ora ho trovato solo uno script chiamato imageThumbs v3.5 , ma ho enormi problemi a visualizzare le anteprime.
Vi sarei enormemente grati se mi deste una mano a risolvere questo problema, a mio avviso banale e/o dovuto a piccole disattenzioni.

[yro]

io di solito prelevo i file dalle cartelle e le impagino come mi va...

http://www.weppos.com/asp/script/cat...e_cartelle.asp

qua trovi il metodo per lavorare sulle cartelle

poi le impagini come ti pare...

[the-bit]

Grazie per avermi risposto, proverò a studiare un po queste guide.
Anche se sarei più propenso all'utilizzo di script un po' più professionali.

[the-bit]

Niente da fare. Purtroppo non riesco a far funzionare il tutto.
Mi servirebbe uno script già pronto da usare per questo scopo. Rinnovo, quindi, la mia richiesta di aiuto. Grazie in anticipo a quanti lo faranno.

[-AA-]

Dunque....per quello che tu chiedi ci sono moltissime risorse in rete ...solo che spesso sono "pezzi" di tutto quello che chiedi...esempio....

Il modo per avere dei Thumbs è IMAGER.DLL (con asp)
Il modo per fare una galleria immagini vai di CSS e lightbox etcc....

per leggere in cartelle etc....in ASP c'è l'oggetto FSO.

[the-bit]

Ciao e grazie per avermi risposto.
Preciso, però, che non programmo in asp, bensì installo, configuro e personalizzo applicazioni asp già esistenti. Fortunatamente e stranamente, sono riuscito a capire di cosa parlavi perhè mi ero già imbattuto in questi componenti.
Mi è stato consigliato hotscripts.com, ma ho trovato ben poco di realmente funzionante e soprattutto free. :-).
Ho provato imageThumbs v3.5 e sembra essere davvero ottimo, se non fosse per il fatto che non mi visualizza le anteprime (forse non le trova),. Potrei darti il link del sito sul quale ho installato questa applicazione, così magari puoi vedere in che consiste l'errore.
Grazie mille.

[8matt5]

Ciao, avendo la stessa necessità ho scritto questo script ad hoc per l'occasione

per rendere la pagina più leggera devi inserire le copie a bassa risoluzione delle foto nella cartella "mini" all'interno di ogni cartella

<% 		
	Dim intFotoxRiga
	Dim strAlbum
	Dim strPath
	Dim objFSO, objFolder, objSottoCart, objCont
	Dim Cartella, Foto
	Dim strASPPage, intCont
	
	strASPPage = "index.asp" 'questa pagina asp
	
	intFotoxRiga = 5 ' numero di foto in una riga
	
 %>
    <h1>Fotogallery</h1>
<%	
	If Request.QueryString("album") > "" then
		strAlbum = Request.QueryString("album")
		elencoFoto()
	Else 
		elencoAlbum()
	End If
	
Sub elencoAlbum
	strPath = Server.MapPath("./")
	Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
	Set objFolder = objFSO.GetFolder(strPath)
	Set objSottoCart = objFolder.Subfolders
	
	intCont = 0
	For each Cartella in objSottoCart
%>
	<div style="float:left; width:<%= int(100/intFotoxRiga) %>%">
		<%= Cartella.Name  %>
	</div>
<%
	intCont = intCont+1
	If intCont = intFotoxRiga then
%>
<div style="clear:left"><hr /></div>
<%
	End If
	Next

	If intCont <> 0 then
%>
<div style="clear:left"><hr /></div>
<%
	intCont=0
	End If

End Sub


Sub elencoFoto
%>
	<h3 align="center"><%= strAlbum %></h3>
	<p align="center">Torna indietro</p>
<%
	strPath = Server.MapPath("./" & strAlbum)
	Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
	Set objFolder = objFSO.GetFolder(strPath)
	Set objCont = objFolder.Files
	
	intCont = 0
	For each Foto in objCont
	If Ucase(Right(Foto.Name,3)) = "JPG" then
%>
	<div align="center" style="float:left; width:<%= int(100/intFotoxRiga) %>%">
		<a href="<%= strAlbum & "/" & Foto.Name %>">
		[img]<%= strAlbum & [/img]" alt="<%= Left(Foto.Name , Len(Foto.Name)-4) %>" />
		<%= Left(Foto.Name , Len(Foto.Name)-4) %></a>
	</div>
<%
	intCont = intCont+1
	End If
	
	If intCont = intFotoxRiga then
%>
<div style="clear:left"><hr /></div>
<%
	intCont=0
	End If
	Next
	
	If intCont <> 0 then
%>
<div style="clear:left"><hr /></div>
<%
	intCont=0
	End If
%>		
	<p align="center">Torna indietro</p>
<% 
End Sub
 %>

spero che ti sia utile.
nella sub elenco album, per ogni album ho messo semplicemente in nome della cartella non formattato, ma puoi formattarlo a piacere, magari inserendo un'immagine presa dalla cartella. se hai bisogno di aiuto chiedi.

ciao