Bem pessoal, com muito esforço eu consegui fazer várias adaptações a alguns códigos que eu encontrei em alguns bancos de Scripts, para poder executar um Script de Album de Fotos. Acontece que tenho tentado de qualquer forma trabalhar com o objeto FSO, mais realmente está me queimando a cabeça. Estou pensando em estudar uma forma de fazer isso através de Um banco de Dados... mas eu vou tentar mais uma vez.
O código:
O Código carrega os arquivos de imagens dentro das pastas; Cria um RecordSet virtual para armazenar esses arquivos; Define a quantidade de arquivos que será mostrada por Registro do RecordSet; Cria Os Campos para o RecordSet Virtual; Faz a coleta de todos os arquivos presentes no objeto FSO e joga nos campos criados pelo RecordSet Virtual; Faz as restrições da Paginação; Faz a impressão dos registros na tela; e por último Cria os links para navegação dos registros (Paginação).
O Problema:
A paginação está errando: A impressão está colocando os links antes da última foto. Uma possível explicação para isso seria a manipulação do ponteiro do RecordSet (Que por sinal ainda não o entendo perfeitamente...)
As páginas não estão sendo mostradas corretamente: Em todas as páginas do RecordSet que são acessadas pelo link estão aparecendo apenas com os 5 Primeiros Itens do RecordSet, ou seja, a paginação não está acontecendo de fato com as imagens, e sim com as páginas do RecordSet.
Perdoem-me o detalhismo, mas é que realmente estou quebrando a cabeça com tudo isso e estou meio que desanimado. Desde já agradeço toda a ajuda. :lol:
Aqui está todo o Código desta página:
<form name="tumb">
<%
Set FSO = Server.CreateObject ( "Scripting.FileSystemObject" )
Set Pasta = FSO.GetFolder ( Server.Mappath("imagens\") )
Set Rs = Server.CreateObject ( "ADODB.RecordSet" )
Rs.PageSize = 5
Rs.Fields.Append "nome", 200, 255
Rs.Open
For Each Arquivo In Pasta.Files
naoimagem = LCase(Right((Arquivo.Name), 4))
If naoimagem = ".jpg" Then
Rs.AddNew
Rs.Fields("nome").Value = Arquivo.Name
End If
Next
IF RS.EOF then
Response.Write "nenhum registro encontrado"
Response.End
ELSE
IF Request.QueryString("pagina")="" then
intpagina=1
ELSE
IF cint(Request.QueryString("pagina"))<1 then
intpagina=1
ELSE
IF cint(Request.QueryString("pagina"))> RS.PageCount then
intpagina=RS.PageCount
ELSE
intpagina=Request.QueryString("pagina")
END IF
END IF
END IF
END IF
RS.AbsolutePage=intpagina
intrec=0
Rs.Movefirst
While intrec < RS.PageSize and not RS.EOF
Response.Write "<table width=""96"" height=""71"" border=""0"" align=""center""><td width=""96""><a href=""imagens/" & rs.fields("nome").value & """ target=""fotos""><img src=""imagens/" & rs.fields("nome").value & """ width=""96"" height=""71""></a></td>"
Rs.MoveNext
intrec=intrec+1
IF RS.EOF then
response.write " "
END IF
Wend
IF intpagina > 1 then
%>
<a href="tumb.asp?pagina=<%=intpagina-1%>">Anterior</a>
<%
END IF
IF strcomp(intpagina,RS.PageCount) <> 0 then
%>
<a href="tumb.asp?pagina=<%=intpagina + 1%>">Próxima</a>
<%
END IF
Rs.Close
Set Rs = Nothing
Set Pasta = Nothing
Set FSO = Nothing
%>
</form>
Pergunta
Holyspear
Bem pessoal, com muito esforço eu consegui fazer várias adaptações a alguns códigos que eu encontrei em alguns bancos de Scripts, para poder executar um Script de Album de Fotos. Acontece que tenho tentado de qualquer forma trabalhar com o objeto FSO, mais realmente está me queimando a cabeça. Estou pensando em estudar uma forma de fazer isso através de Um banco de Dados... mas eu vou tentar mais uma vez.
O código:
O Código carrega os arquivos de imagens dentro das pastas; Cria um RecordSet virtual para armazenar esses arquivos; Define a quantidade de arquivos que será mostrada por Registro do RecordSet; Cria Os Campos para o RecordSet Virtual; Faz a coleta de todos os arquivos presentes no objeto FSO e joga nos campos criados pelo RecordSet Virtual; Faz as restrições da Paginação; Faz a impressão dos registros na tela; e por último Cria os links para navegação dos registros (Paginação).
O Problema:
A paginação está errando: A impressão está colocando os links antes da última foto. Uma possível explicação para isso seria a manipulação do ponteiro do RecordSet (Que por sinal ainda não o entendo perfeitamente...)
<< Clique aqui para mais detalhes deste erro >>
As páginas não estão sendo mostradas corretamente: Em todas as páginas do RecordSet que são acessadas pelo link estão aparecendo apenas com os 5 Primeiros Itens do RecordSet, ou seja, a paginação não está acontecendo de fato com as imagens, e sim com as páginas do RecordSet.
<< Clique aqui para mais detalhes do Erro. >>
Perdoem-me o detalhismo, mas é que realmente estou quebrando a cabeça com tudo isso e estou meio que desanimado. Desde já agradeço toda a ajuda. :lol:
Aqui está todo o Código desta página:
<form name="tumb"> <% Set FSO = Server.CreateObject ( "Scripting.FileSystemObject" ) Set Pasta = FSO.GetFolder ( Server.Mappath("imagens\") ) Set Rs = Server.CreateObject ( "ADODB.RecordSet" ) Rs.PageSize = 5 Rs.Fields.Append "nome", 200, 255 Rs.Open For Each Arquivo In Pasta.Files naoimagem = LCase(Right((Arquivo.Name), 4)) If naoimagem = ".jpg" Then Rs.AddNew Rs.Fields("nome").Value = Arquivo.Name End If Next IF RS.EOF then Response.Write "nenhum registro encontrado" Response.End ELSE IF Request.QueryString("pagina")="" then intpagina=1 ELSE IF cint(Request.QueryString("pagina"))<1 then intpagina=1 ELSE IF cint(Request.QueryString("pagina"))> RS.PageCount then intpagina=RS.PageCount ELSE intpagina=Request.QueryString("pagina") END IF END IF END IF END IF RS.AbsolutePage=intpagina intrec=0 Rs.Movefirst While intrec < RS.PageSize and not RS.EOF Response.Write "<table width=""96"" height=""71"" border=""0"" align=""center""><td width=""96""><a href=""imagens/" & rs.fields("nome").value & """ target=""fotos""><img src=""imagens/" & rs.fields("nome").value & """ width=""96"" height=""71""></a></td>" Rs.MoveNext intrec=intrec+1 IF RS.EOF then response.write " " END IF Wend IF intpagina > 1 then %> <a href="tumb.asp?pagina=<%=intpagina-1%>">Anterior</a> <% END IF IF strcomp(intpagina,RS.PageCount) <> 0 then %> <a href="tumb.asp?pagina=<%=intpagina + 1%>">Próxima</a> <% END IF Rs.Close Set Rs = Nothing Set Pasta = Nothing Set FSO = Nothing %> </form>Link para o comentário
Compartilhar em outros sites
4 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.