101 messaggi dal 03 gennaio 2002
www.f1grandprix.it
ciao a tutti,
utilizzo questo script per visualizzare tutte le immagini presenti in una cartella. Come posso fare per visualizzare 10 foto per pagina e i link "Pagina Successiva", "Pagina Precedente"???

ecco lo script attuale:




code:-------------------------------------------------------------------------------- <%
dir=request.querystring("dir")
sessione=request.querystring("sessione")
Set file1 = CreateObject("Scripting.FileSystemObject")
Set file2 = file1.GetFolder(server.mappath(dir&"/"&sessione&"/mini"))
Set file3 = file2.Files
Response.Write("<table border=0 cellspacing=0 cellspacing=0 width=100% cellpadding=4 height=106>" & vbCrLf)
Response.Write("<tr>" & vbCrLf)
Set FSO = CreateObject("Scripting.FileSystemObject")
CountFiles = fso.GetFolder(server.mappath(dir&"/"&sessione&"/mini")).Files.Count
if countfiles<=0 then
response.write ("<p class=testo><font color=#000000> <center><b>Foto attualmente non disponibili</b>")
end if
For each file in file3
ntd=ntd+1
if ntd=10 then exitfor
Response.Write("<td>" & vbCrLf)
%>


<%
response.write "<IMG SRC='"
response.write dir
response.write "/"
response.write sessione
response.write "/mini/"
response.write file.name
response.write "' border=0 alt=ferrari>"
Response.Write("</td>" & vbCrLf)

if ntd=2 then
Response.Write("</tr>" & vbCrLf)
Response.Write("<tr>" & vbCrLf)
ntd=0
end if
Next
%>

--------------------------------------------------------------------------------


ciao!

Maurizio Manna
http://www.f1grandprix.it

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.