Aiuto per paginazione

**klinik** · 23-03-2005, 18:12

Salve, ho creato una foto Gallery con questo scipt che pesca le foto da una cartella.

<%
strImageFolder="fotogallery/"
path= "D:\Inetpub\webs\sitocom\"
folder1 = strImageFolder
folder2 = Server.MapPath(folder1)
Set files = Server.CreateObject("Scripting.FileSystemObject")
If Not files.FolderExists(folder2) Then
files.CreateFolder(folder2)
End If
Set objfolder = files.getFolder(folder2)
%>

qui mostra le foto e le ridimensiona con una dll:

<%
For Each strfile In objfolder.files
%>

<a href="<%Response.Write folder1 & strfile.Name %>" target=new>
[img]resize.asp?image=<%=path%><%Response.Write folder1 & strfile.Name %>[/img]</a>

<%Next%>

Come posso fare ad impaginare in modo che mi mostri 15 foto e poi esca la freccia Avanti ed indietro??

Grazie
Gab

**Gp85** · 23-03-2005, 18:58

Prova a usare questo script per la creazione di un guestbook; apporta delle modifiche e vedi se funziona!
ok!

<%@LANGUAGE="VBSCRIPT"%>
<html>
<head>
<title></title>

</head>
<body>
Archivio News

<%
'NUMERO DI notizie PER PAGINA
iPageSize = 15

if request.QueryString("page") = "" then
iPageCurrent = 1 'IMPOSTA LA PAGINA CORRENTE A 1
else
iPageCurrent = CInt(Request.QueryString("page"))
end if
if request.QueryString("order") = "" then
StrOrderBy = "id"
else
strOrderBy = CInt(request.QueryString("id"))
end if

'IMPOSTA LA CONNESSIONE E IL PERCORSO DEL DATABASE
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("mdb-database/database.mdb")
Set RS = Server.CreateObject("ADODB.Recordset")
strSQL="select * from nome_tabella order by id desc"
RS.Open strSQL,Conn, adOpenKeyset
RS.pagesize = iPageSize
RS.cachesize = iPageSize

iPageCount = RS.PageCount
if iPageCurrent > iPageCount then iPageCurrent = iPageCount
if iPageCurrent < 1 then iPageCurrent = 1
'SE L'ARCHIVIO GUESTBOOK è VUOTO VISUALIZZA UN MESSAGIO
if iPageCount = 0 then
%>
<hr>
Nessuna Notizia presente!
<hr>
<%
else
RS.absolutePage = iPageCurrent
iRecordShown = 0

'SE INVECE SONO PRESENTI NEWS
%>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<%
do while iRecordShown < iPageSize and not RS.eof
%>
<tr>
<td width="2%">></td>
<td width="98%">"><%=RS("titolo")%> di <%=RS("autore")%>-<%=RS("data")%></td>
</tr>
<%
'COMPLETA LA VISUALIZZAZIONE DEI TITOLI DELLE NEWS E CHIUDE LA CONNESSIONE AL DATABASE
iRecordShown = iRecordShown + 1
RS.movenext
loop
%>
</table>
<%
end if
RS.close
Set RS = nothing
Conn.close
%><center>
<%
'MOSTRA IL NUMERO DELLE PAGINE
for x = 1 to iPageCount
%>
[ <%=x%>]
</center>
<%
next
%>
</body>
</html>

Discussione: Aiuto per paginazione

Strumenti discussione

Ricerca discussione

Visualizza

Aiuto per paginazione

Permessi di invio