Como posso fazer uma páginação

[<asp:Robson/> 0]

:( Olá pessoa logo abaixo tem um código que montei para listar todas as imagens de um diretório...

O que gostaria de saber é como faço para criar uma páginação neste código se alguem puder me ajudar vou ficar muito agradecido.....

 

 

<%

Set FSO = Server.CreateObject("Scripting.FileSystemObject")

Set PASTA = FSO.Getfolder("c:\meus documentos\images")

 

Set Arquivos = Pasta.Files

' criamos o objeto FSO, feita referência a pasta TESTE, e o objeto arquivos, é definido como os arquivos que existirem na pasta

 

nume = 0

Response.write "<table width=""700"" border=""0"" align=""center"" cellspacing=""20"">"

Response.write "<tr>"

FOR EACH arquivo IN arquivos

if nume <> 3 then

if nume = 3 then

Response.write "</tr>"

end if

response.write "<td><div align=" & chr(34) & "center" & chr(34) & ">" & "<a href=" & chr(34) & "images\" & arquivo.name & chr(34) &">" & "<img src=" & chr(34) & "images\" & arquivo.name & chr(34) & "border=" & chr(34) & "0" & chr(34) & "></a></div></td>"

nume = nume + 1

elseif nume = 3 then

if nume = 3 then

Response.Write "<tr>"

end if

response.write "<td><div align=" & chr(34) & "center" & chr(34) & ">" & "<a href=" & chr(34) & "images\" & arquivo.name & chr(34) &">" & "<img src=" & chr(34) & "images\" & arquivo.name & chr(34) & "border=" & chr(34) & "0" & chr(34) & "></a></div></td>"

nume = 0

nume = nume + 1

end if

Next

 

 

 

' aqui é usado um for each, que pegara absolutamente quaisquer arquivos no objeto arquivos (que é PASTA.files), e os exibirá enquanto houver.

%>

[mebkocznski 0]

Cara eu tenho uma idéia muito boa....

 

Faça o seguinte: antes de enviar ao cliente quais os arquivos estão no diretorio, catalgue todas as informações num Recordset desconectado..mais ou menos assim

 

Set ORs = Server.CreateObject("adodb.recordset")

ORs.CursorLocation = adUseClient

Ors.CursorType = AdOpenKeySet

 

Ors.Fields.Append "nome_do_arquivo",adVarChar,255,adFldIsNullable

Ors.Fields.Append "tamanho_do_arquivo",advarchar,255,adFldIsNullable

 

Ors.Open

 

 

For Each arquivo in arquivo

 

Ors.Addnew

Ors("nome_do_arquivo") = nome_do_arquivo

Ors("tamanho_do_arquivo") = tamanho_do_arquivo

Ors.Update

 

Next

 

 

////Movemos o cursor para o primeiro registro ////

Ors.MoveFirst

 

////Agora utilizamos a paginação do recordset ////

 

ORs.AbsolutePage = 1

ORs.PageCount = 10

 

 

////O resto você deve saber.....se não souber da um toque que gente posta como paginar um recordset////