fso e paginazione

[cavicchiandrea]

con questo script conto sia le cartelle che le foto nelle subcartelle.
Esempio:
utente A a tre cartelle che contegono ogniuna 2 foto.
Il mio problema e visualizzare 5 cartelle per pagina qualora vi siano per un utente 10 cartelle.
<%
page = Request("page")
if len(page) > 0 and isNumeric(page) then
page =clng(page)
else
page =1
end if
filesPerPage=2

Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
strPath = server.mappath("../public/foto/"&user)
Set f = FileObject.getfolder(strPath)
set fc = f.subfolders
contafolder=0
For Each f1 in fc

contafolder = (contafolder+1)
response.write (""&f1.name&"")
response.write ("
")
strFile = server.mappath("../public/foto/"&user&"/"&f1.name)
Set fileget = FileObject.getfolder(strFile)
set getfile = fileget.files
conta= 0
For Each file in getfile
conta = (conta+1)

Next

response.write (" Nella cartelle ci sono : "&conta&" foto ")
response.write ("<hr>")
Next

response.write ("

<center>Viaggi per quasto socio : "&contafolder&"</center></p>")
Pagine = contafolder / filesPerPage

If pagine > 0 then
Response.Write("<center>Pagine:")
For p=1 to pagine

If p <> CInt(Page) then
Response.Write("<A target='_self' href='link.asp?page=" & p)
Response.write("'>")
Else
' pagina attuale
Response.Write ("")
End if
Response.Write p
If p <> CInt(Page) then
Response.Write (" </A> ")
Else
Response.Write (" ")
End if
Next
End if

Set getfile = Nothing
Set fileget = Nothing
Set fc = Nothing
Set f = Nothing
%>
questo e il codice che sto utilizzando ma non limita i record per pagina attendo vosri consigli.
ciao
P.S. ho provato a ricercare nel forum ma non trovato nulla che faccia a mio caso

[optime]

caricati i dati in un array, poi lo pagini

[cavicchiandrea]

Originariamente inviato da optime
caricati i dati in un array, poi lo pagini

poteesti farmi un esempio non cosco le array grazie

[cavicchiandrea]

Originariamente inviato da cavicchiandrea
poteesti farmi un esempio non cosco le array grazie

[Roby_72]

Cerca nel forum, se ne è parlato.

Roby

[cavicchiandrea]

Dopo un giorno di tentativi, e di recerche sono risucito a realizzare questo script che funziona perfettamente, inserico il codice eventulamente servisse a qualcunaltro:
<%
RecordsPerPagina = 5
page = Request("page")
if len(page) > 0 and isNumeric(page) then
page =clng(page)
else
page =1
end if
' definizione del recordset
set custRs = Server.CreateObject("ADODB.Recordset")
custRs.Fields.Append "nome", 200, 300 ' adVarChar
custRs.Fields.Append "dimensione", 2, 4 ' smallint
custRs.Fields.Append "data", 7 ' Date
custRs.Open

' popolamento
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
StrPath = Server.MapPath("../public/foto/"&user)

Set f = FileObject.GetFolder(strPath)
Set fc = f.SubFolders
contafolder=0
For Each f1 in fc
custRs.AddNew
custRs("nome") = f1.name
custRs("data") = f1.DateCreated
custRs("dimensione") = f1.size / 1024
contafolder = (contafolder+1)
Next

Set fc = Nothing
Set f = Nothing

IF custrs.EOF and custrs.BOF Then
Else
custrs.PageSize = RecordsPerPagina
custrs.AbsolutePage = page
END IF
TotalRecords = custrs.RecordCount

' Ordino in base al campo data

Response.write ("<center><table border=""0""style=""border-width:1; border-color:rgb(51,51,51); border-style:solid;"" width=""500"">")
Response.write ("<tr bgcolor=""#99CCFF""><th>Nome<th>Dimensione<th>Data di creazione<th>foto")

' Mostro il recordset appena ordinato
For i=1 to RecordsPerPagina
if Not custRs.EOF then
' Conto le foto nelle singole cartelle
strFile = server.mappath("../public/foto/"&user&"/"&custRs("nome"))
Set fileget = FileObject.getfolder(strFile)
set getfile = fileget.files
conta= 0

For Each file in getfile
conta = (conta+1)
next

Response.Write ("<tr><td width=""125"">"& custRs("nome")&"")
Response.Write ("<td width=""105"">"& custRs("dimensione") & " KB" )
Response.Write ("<td width=""185"">" & custRs("data") )
Response.Write ("<td width=""85""><center>" &conta )
custRs.movenext
end if
Next

Response.write ("</table>")
response.write ("

<center>Viaggi per quasto socio : "&contafolder&"</center></p>")
%>
<%
' impaginazione record
If TotalRecords > 0 then
Response.Write("<center>Pagine:")
For p=1 to custrs.PageCount
If p <> CInt(Page) then
Response.Write("<A target='_self' href='personale.asp?user="&user&"&page="&p)
Response.write("'>")
Else
' pagina attuale
Response.Write ("")
End if
Response.Write p
If p <> CInt(Page) then
Response.Write ("</A> ")
Else
Response.Write (" ")
End if
Next
End if
' libero risorse
custRs.Close
set custRs = Nothing
Set getfile = Nothing
Set fileget = Nothing
Set FileObject = Nothing
%>
ciao
P.S.
Roby_72 avevo gia ricercato nel forum ma non ho trovato nulla che funzionasse.