Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Alex Passos

Páginação sem banco de dados

Por , em ASP Clássico

Recommended Posts

Alex Passos    0

Alex Passos
Postado

Estou querendo fazer uma paginação sem banco de dados, não conseguindo encontrar nenhum exemplo de como fazer isso: olha o meu código<html><head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><script language="Javascript" type="text/javascript" src="func.js"></script><script language="JavaScript" type="text/JavaScript"><!--function MM_reloadPage(init) { //reloads the window if Nav4 resized if (init==true) with (navigator) { if ((appName=="Netscape") && (parseInt(appVersion)==4)) { document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }} else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();}MM_reloadPage(true);//--></script><style>.INPUT { BORDER-TOP-WIDTH: 1px; BORDER-LEFT-WIDTH: 1px; FONT-SIZE: 12px; BORDER-BOTTOM-WIDTH: 1px; COLOR: #000000; FONT-FAMILY: Verdana; BACKGROUND-COLOR: #f5f5f5; BORDER-RIGHT-WIDTH: 1px; background-color:#000000; border:0;}</style></head><body bgcolor="#000000" text="#FFFFFF" link="#FFFFFF" vlink="#FFFFFF" alink="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" align="center"><form name="miniaturas"><table cellspacing="1" align="center"> <tr> <td colspan="2" bgcolor="#8080C0"></td> </tr> <tr> <td colspan="2" bordercolor="#000066" bgcolor="#000000"> <font face="Verdana, Arial, Helvetica, sans-serif"> <font size="-2"> <p align='center'>  Galeria nº 1 <br>01/09/05</font></td> </tr> <tr> <td colspan="2" bgcolor="#8080C0"></td> </tr> <% response.Buffer = true response.write "<tr>" Dim Fso, arq, pasta Set Fso = CreateObject("scripting.filesystemobject") 'Set pasta = Fso.getfolder(server.mapPath("\imagens")) Set pasta = Fso.getfolder(server.mapPath(pastagaleria)) contador = 0 For each arq in pasta.Files if (contador mod 2) = 0 then response.write "</tr>" response.write "<tr>" end if %> <td width="52"> <div align="center"> <font size="-2"> <% nomeArquivo = arq.name %> <a name="<%=contador%>" href="imagens/<%=nomeArquivo%>" target="fotos" onclick="contador.nome.value='<%=nomeArquivo%>';"> <img src="imagens/<%=nomeArquivo%>" width="60" height="60"> </a> </font> </div> </td> <% contador = contador + 1 if contador=48 then exit for end if next %> </tr> </table> <br></form><form name="contador" method=get><table align="right"> <input type="hidden" name="nome"> <input name="visitas" size="10" class="input" maxlength="10" type="text" disabled></table></form></body></html>Como faço para incrementar uma paginação nesse código, sendo que ele não puxa dados do banco de dados.Obrigado

Compartilhar este post

Link para o post
Compartilhar em outros sites

Alex Passos    0

Alex Passos
Postado

Eu consegui esse código, ele esta carregando as imagens conta as fotos e total de páginas certinho... só que quando clico pra ir pra página 2 ou 3 ou 4 assim por diante não funciona, ou seja, não carrega as imagens. Só esta carregando na primeira página.Olhe o código e veja o que esta errado, por favor<% pasta="imagens"on error resume next Set fs = Server.CreateObject("Scripting.FileSystemObject") Set vlocal = fs.getfolder(Server.MapPath(pasta)) 'duas matrizes para armazenar ate 200 imagens dim fotoa(200), fotog(200) i=0 For Each parquivo In vlocal.Files tipoarq= fs.GetExtensionName(parquivo.name)'right(parquivo.name,4) if lcase(tipoarq)="jpg" then tama=len(parquivo.name) posm=tama-4 'supondo que o nome da imagem miniatura seja XXm.jpg if (mid(parquivo.name,posa,1))="m" then 'armazena a miniatura fotoa(ia)=parquivo.name ia=ia+1 else 'armazena a imagem tamanho normal fotog(ig)=parquivo.name ig=ig+1 end if else end if next 'guardando total das imagens total=ia i=0 'paginando em 20 por pagina iPageSize = 5response.Write(total) if (total mod iPageSize) then ipagecount = (total/iPageSize)-((total mod iPageSize)/iPageSize)+1 else ipagecount = cint(total/iPageSize) end if if request("iPageCurrent")="" then iPageCurrent=1 ifm=0 else iPageCurrent=request("iPageCurrent") select case iPageCurrent case 1 ifm = 0 case 2 ifm = 20 case 3 ifm = 40 case 4 ifm = 60 case 5 ifm = 80 case 6 ifm = 100 case 7 ifm = 120 case 8 ifm = 140 case 9 ifm = 160 end select end if i=0 %> <table width="95%" border="0" align="center" cellpadding="0" cellspacing="0" > <tr> <td colspan="3" align="left"><font face="Verdana" size="1"> <%=total%> fotos</font></td> <td colspan="2" align="right"><font face="Verdana" size="1">Página <B><%= iPageCurrent %></B> de <%= iPageCount %></font> </td> </tr> <% while i<iPageSize %> <tr> <% n = 0 while n < 5 if ifm<total then%><td><center> <a href="teste.asp?ifm=<%=ifm%>&pasta=<%=pasta%>"> <img src='<%=pasta%>/<%=fotoa(ifm)%>' width="100" height="75" border="1"></a> </center></td><%ifm=ifm+1 end if response.flush i=i+1 n = n + 1 wend %> </tr> <%wend%> <tr> <td colspan="5" align="center"><font face=Verdana size=1>Páginas: <% for i=1 to ipagecount if i = cint(iPageCurrent) then response.write "<b>" & i & "</b> " else response.write "<a href='teste.asp?iPageCurrent="& i &"&pasta="&pasta&"'>" & i & "</a> " end if next %> </font> </td> </tr> </table> <% Set vlocal = Nothing Set fs = Nothing 'divirta -se %> obrigado

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Olha, você pode fazer a paginação como se fosse com BD, é só criar um RecordSet desconectado (EXEMPLOS, Dê uma pesquisada que tem uma aula de como usar), alimentá-lo em seu For Each e usar o código de paginação de RecordSet que temos na área de códigos (veja o link no tópico Duvidas Frequentes").

Compartilhar este post

Link para o post
Compartilhar em outros sites

Alex Passos    0

Alex Passos
Postado

Eu consegui um exemplo e fiz esta funcionando, assim puxando as imagens sem a paginação ainda... mais agora pra fazer a paginação acho que ficou mais fácil.Mais estou tendo outro problema a imagem não quer ficar em miniatura... olha o código:<% "Primeiro vamos abrir um objeto FSOSet objFSO = Server.CreateObject ( "Scripting.FileSystemObject" )"Agora pegamos a pasta com as imagens!Set objPasta = objFSO.GetFolder ( Server.Mappath("images\") )"Vamos criar um recordset agora!"Ele que vai ter o trabalho de ordenar os arquivos!Set Rs = Server.CreateObject ( "ADODB.RecordSet" )"Vamos adicionar 2 campos nesse recordset!"O método Append recebe 3 parâmetros:"Nome do campo, Tipo, Tamanho (opcional)"O tipo pertence à um DataTypeEnum, e você pode conferir os tipos em"http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ado270/htm/mdcstdatatypeenum.asp"200 -> VarChar (String), 7 -> DataRs.Fields.Append "nome", 200, 255Rs.Fields.Append "data", 7"Vamos abrir o Recordset!Rs.Open"Temos que percorrer agora todos os arquivos e jogar na nossa tabela virtual!For Each Arquivo In ObjPasta.FilesRs.AddNew Rs.Fields("nome").Value = Arquivo.NameNext"Todos os arquivos no recordset, agora vamos ordená-lo!"Da maior data para a menor!"Pronto! Agora temos os arquivos todos em ordem em nosso recordset! Vamos exibi-los!Rs.MoveFirstWhile Not Rs.EoFResponse.Write "<img src=""images/" & rs.fields("nome").value & """><br>"Response.Write "<p>"Rs.MoveNext Wend"Fechando os objetos!Rs.CloseSet Rs = NothingSet objPasta = NothingSet objFSO = Nothing%> quando coloco na tag img width="60" height="60" ele não abre as fotoso que tenho que mudar?

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito