Paginação de arquivos em uma pasta

[Frango 0]

Galera seguiinte,Eu preciso fazer um sistema de galeria de fts. Ja fiz um for each para listar a imgs e esta funcionando na boa so que agora eu preciso paginar esses resultados pq sao muitas imgs. Como eu posso fazer isso?

[cabral51 0]

frango, da um procurada nos tutoriais e scripts tem muitos exemplos de paginação la

[Frango 0]

Fala Cabral,Já vi achei alguns sim mas nenhum dessas forma específca q estou querendo. Todas as paginações sao feitas atraves de recordsets ... essa eu teria q paginas os arkivos da pasta sakou

[cabral51 0]

puts manu so iniciante ainda qq coisa eu posto no meu tópico pra dar uma passadinha aki

[smith 0]

iiiii... eu precisei disso e fiz uma bagunça q funcionou, tenho até vergonha de postar aqui mas azar... olha aee....

ahh.. dei uma enxugada no html que tava na pagina, e os links estão aee são os que eu usei, pode ser que alguém aqui do forum resolva dar uma melhorada, mas eu digo ! fuciona !

se quiserem ver procurem no menu fotos aqui:Meu Website

 

o código:

Dim objFSO		'file system object

Dim objFolder 'Aramazena a pasta corrente

Dim objFile 'Armazena o arquivo

Dim Pasta 'Armazena a pasta principal

Dim Series 'Armazena a subpasta

Dim ImageCount 'Armazena o total de imagens .jpg

Dim ImageNumber 'Armazena o numero da imagem

Dim FileExtention 'Verifica a extensão (".jpg")

Dim ErrorPage 'Seta a página de erro

Dim Coluna 'Seta acoluna que receberá a imagem

Dim PaginaCount 'Controla o numero máximo de imagens por página

Dim Anterior 'Controla o número de imagens mostradas

 

ImageCount = 0

ErrorPage = "erro"

pasta="imagens"

 

Set Series = Request.QueryString("album")

If Series = "" Then

Response.Redirect(ErrorPage)

End If

 

If ImageCount = 0 Then

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFolder = objFSO.GetFolder(Server.MapPath(pasta & "/" & Series))

For Each objFile In objFolder.Files

FileExtention = LCase(Right((objFile.Name), 4))

If FileExtention = ".jpg" Then

ImageCount = Cint(ImageCount) + 1

End If

Next

'destroi os objetos

Set objFSO = Nothing

Set objFolder = Nothing

Set objFile = Nothing

End If

 

 

ImageNumber = cint(Request.QueryString("imagem"))

If ImageNumber = 0 Then

ImageNumber = 1

End If

 

 

PaginaCount=10

Anterior = 0

 

while ( PaginaCount > 0 )

if imagenumber <= imagecount then

response.Write("<IMG SRC='resize.asp?path=" & Server.MapPath("imagens") & "\" & Series & "\" & "imagem" & ImageNumber & ".jpg' border='0'></a>")

ImageNumber=ImageNumber+1

PaginaCount=PaginaCount-1

Anterior=Anterior + 1

else

PaginaCount=0

end if

wend

 

 

'inicio dos botoes

 

'botao ANTERIOR

If Request.QueryString("imagem") <> "" then

if cint(Request.QueryString("imagem")) > 1 Then

response.Write("<input type=""button"" name=""btnAnterior"" value=""<< Anterior"" class=""input"" onClick=""window.location='thumbnail.asp?album=" & series & "&imagem=" & imagenumber - 10 - anterior & "'"">")

End if

End If

 

 

'botao PROXIMO

If imagenumber <= imagecount Then

response.Write("<input type=""button"" name=""btnProximo"" value=""Próximo >>"" class=""input"" onClick=""window.location='thumbnail.asp?album=" & series & "&imagem=" & imagenumber & "'"">")

End if

 

%>[code=auto:0]