Visualizzazione delle immagini poste in una cartella server

[d_felloni]

Ho la necessità di visualizzare in una finestra esclusivamente le immagini precedentemente caricate tramite uno script asp. I files che permettono l'upload sono presenti insieme alle immagini e vengono riepilogati visivamente creando confusione, insieme alle anteprime delle immagini. Come posso evitare che i tre files upload.asp, Upload_LimitSizeAndImages.asp, image.asp e Thumbs.db non si vedano nell'elenco?

Il file che crea l'elenco è image.asp

Grazie sin da ora per l'aiuto concessomi al forum...

[Roby_72]

Cicla i file che NON hanno estensione.asp

Roby

[d_felloni]

una manina?

[Roby_72]

if right(file,3) <> "asp" then
visualizzi
end if

Roby

[d_felloni]

mmm sto guardando nel codice dove cacciarlo....

<%
Dim fs,f,name,x,pagesize,currentpage,currentpos,folder ,ScriptName,filecount

pagesize=5

currentPage = Request("page")
if currentPage = vbNullString then
currentPage=0
else
currentPage=CLng(currentPage)
end if

currentPos=0


ScriptName = Request.ServerVariables("SCRIPT_NAME")

folder = server.mappath("/gallery")
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folder)
set name = f.files
filecount = name.Count
%>
<table width="80%" bgcolor="#c0c0c0" cellspacing="0" cellpadding="0" border="0" align="center">
<TR><TD><font size="2" face="verdana">Inserisci una immagine nel tuo archivio!</font>
<FORM METHOD="Post" enctype="multipart/form-data" ACTION="Upload_LimitSizeAndImages.asp">
<INPUT TYPE="file" NAME="Campo1"><INPUT TYPE="submit" NAME="Invia" value="Carica"></FORM>
<table width="100%" border="1" cellspacing="1" cellpadding="3" align="center" bgcolor="#FFFFFF">
<TR><TD bgcolor="#FFFFFF" align=left>
<%
For Each x in name
if currentPos>=currentPage*Pagesize then
%>
<tr><td>
[img]/gallery/<%=x.Name%>[/img]')" border="0" alt="<%=x.Name %>" height="50">
</td>
<td align="left" widht="20"><font size="1" face="verdana">percorso immagine:</font>
<input type="text" size=30 value="gallery/<%=x.Name%>"></td>

</tr>

<%
end if
currentPos=currentPos+1
if currentPos>=currentPage*Pagesize+PageSize then
Exit for
End If
Next
%>

[wallrider]

x ... name
che nomi brutti per delle variabili!
in ogni caso ti basta fare

...
for each x in name
   if right(x,3) <> "asp" then
...

[Roby_72]

Originariamente inviato da Roby_72
Cicla i file che NON hanno estensione.asp

Roby

Dai su, che vuol dire secondo te?

Roby

[d_felloni]

hai ragione ma ho trovato questo file qui sul server dove lavoro e non avevo voglia di rifarlo,
adesso nella lista compaiono solo i file di immagini e il solito Trumbs.db ma adesso vedo di togliere anche questo.
Grazie tante dell'aiuto preziosissimo