hellp mesmo

[angus 0]

Gente como eu faço para usar essa paginação para páginar fotos de um diretório sem usar banco de dados, por favor!<% dim Conndim RSConst intPageSize=3 'Tamanho da página - você pode alterar se quiserdim intCurrPagedim 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",connintCurrPage=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 QueryStringRS.PageSize=intPageSizeRS.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 recordseta=0 while a < intPageSize and not RS.EOFa=a+1Response.Write RS.Fields("Nome").Value & "<BR>"RS.MoveNext wendResponse.Write "<BR>"for a = 1 to RS.PageCountif 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> "elseResponse.Write a & " "end ifnextResponse.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 ifResponse.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 ifRS.CloseConn.Close set rs=nothingset conn=nothing%>

[ska_ska 0]

as fotos tem alguma sequencia lógica???

se tiver mais fácil... vou postar a lógica, achoq dai você tenta fazer o código e se tiver dúvida, pergunta já com seu código ASP pro povo te ajudar, ok...

 

1. fotos na sequencia numerica ... 1.jpg, 2.jpg, 3.jpg.... 300.jpg.. naum pode faltar nenhum número na sequencia...

total_pagina = 30erro = FALSEcontador_imagem = 1 '---a partir de qual imagem ele vai mostrar, vai ser usado para a paginação... na primeir pagina eh 1.. na segunda.. eh 31, depois 61, etc... contador_imagem_valida = 0faça enquanto contador_imagem_valida < total_pagina AND erro = FALSE{   pega a primeira imagem.. ex. 1.jpg   caso ela exista (você testa usando o FSO)   {       -> acrescenta um valor em um contador_imagem_valida   }   caso naum exista   {       -> define erro = TRUE para q pare de testar as imagens...   }}

[angus 0]

Gente dá uma olhadinha mais ou menos o que tô tentando fazer , tá correto o que quero fazer? ALguém tem uma idéia?Banco de DadosIDDirFotosTituloDataComentario<% dim conexaodim RSConst intPageSize=3 'Tamanho da página - você pode alterar se quiserdim paginadim a set Conexao=Server.CreateObject("adodb.connection")set rs=server.CreateObject("adodb.recordset")Conexao.CursorLocation=3 'AdUseClientconexao.Open "provider=microsoft.jet.oledb.4.0;data source=" & server.MapPath("paginacao.mdb")RS.Open "select * from fotos oder by id desc",conexaodir_string = pasta & Request.QueryString("pasta")set pasta = Server.CreateObject("Scripting.FileSystemObject")set album_list = pasta.GetFolder(Server.MapPath(dir_string))...........