foto

[angus 0]

diretório da imgagem:baladas/subdiretórios:001002003 assim por diante...dentro de cada subdiretório tem 14 imagens.Como eu faço para paginar todas essas imagens do diretorio sendo que as iganes também seguem uma ondem assim:001.jpg002.jpgassim por diantetenho um arquivo index.aspe outro fotos.aspno arquivo fotos quero pagina atravez do comando for todos os arquivos jpg do diretório... como fazer isso? A pergunta continua despois dessa resposta. Valew !

[angus 0]

Como eu faço esta paginação em imagens dentro de um diretório sem banco de dados?

Obrigado!

 

Tô tentando fazer uma paginação igual a este link: Clique aqui para ver o site com o sistema funcionando, só que em php

 

<%

 

dim Conn

dim RS

Const intPageSize=3 'Tamanho da página - você pode alterar se quiser

dim intCurrPage

dim a

set Conn=Server.CreateObject("adodb.connection")

set rs=server.CreateObject("adodb.recordset")

 

Conn.CursorLocation=3 'AdUseClient

 

'Na linha acima, definimos que o cursor do banco de dados

'Deve estar no cliente. Com isso, podemos usar as propriedades

'de paginação.

 

Conn.Open "provider=microsoft.jet.oledb.4.0;data source=" & server.MapPath("paginacao.mdb")

RS.Open "select * from pessoas",conn

 

 

intCurrPage=cint(Request.QueryString("CurrPage"))

'Pega a próxima página (que foi chamada através dos links definidos mais abaixo)

 

if intCurrPage=0 then intCurrPage=1

'Se chamamos essa página na primeira vez

'definimos que a página atual será a página 1

'Caso contrário, é usado o valor que foi retornado

'pela QueryString

RS.PageSize=intPageSize

 

RS.AbsolutePage=intCurrPage

 

'No Loop abaixo, contamos de 1 até o Tamanho da página

'(no nosso caso, 3).

'O registro 1 é o primeiro registro da página atual,

'e não o do recordset

 

a=0

while a < intPageSize and not RS.EOF

a=a+1

Response.Write RS.Fields("Nome").Value & "<BR>"

RS.MoveNext

wend

 

Response.Write "<BR>"

for a = 1 to RS.PageCount

if a <> intCurrPage then

'Se "a" for diferente da página atual,

'Mostramos um link para a página(com o valor de a)

Response.Write "<a href=""paginacao.asp?Currpage=" & a & """>" & a & "</a> "

else

Response.Write a & " "

end if

next

Response.Write "<BR>"

if intCurrPage > 1 then

'Caso exista uma próxima página...

Response.Write "<a href=""paginacao.asp?Currpage=" & intCurrPage-1 & """>Página Anterior</a>"

end if

Response.Write " "

if intCurrPage < RS.PageCount then

'Caso exista uma página anterior...

Response.Write "<a href=""paginacao.asp?Currpage=" & intCurrPage+1 & """>Próxima Página</a>"

end if

RS.Close

Conn.Close

set rs=nothing

set conn=nothing

 

%>

[CooLeR 0]

Bom, eu não entendi direito a sua pergunta. O que você quer fazer é listar TODAS as imagens de todos os subdiretorios ?? E aplicar uma paginação sobre elas?No link que você passou alem da foto tinha um titulo e uma data, provavelmente isso provem de um banco de dados.Uma opção que você pode optar é criar um script recursivo de FileSystemObject que pegue as imagens, mas nesse caso eu não se como ficaria sua paginação.De qualquer forma, se as pastas forem fixas fica mais facil, porem se você for adicionando sempre novas fotos e novas pastas, você tera que fazer ou com banco de dados ou com o FSO mesmo.Tente explicar exatamente o que você quer, assim eu poderia te ajudar a desenvolver um script que le as pastas e as imagens usando o FSO.Espero ter ajudado.