Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Olá pessoal estou adaptando uma galeria de fotos, mas quero colocar 16 fotos por pagina e consequentemente terei que usar paginação. Essa paginação terei que fazer sem conexao com banco de dados mas não sei como desenvolver esse sitema, preciso de ajuda!!! o codigo eh esse abaixO!!!OPS: se possivel encaixe o script da paginação no script abaixo!!!
<% response.Buffer = true response.write "<tr>" Dim Fso,arq,pasta Set Fso = CreateObject("scripting.filesystemobject") Set pasta = Fso.getfolder(server.mapPath("imagens/")) contador = 0 For each arq in pasta.Files if (contador mod 8) = 4 then response.write "</tr>" response.write "<tr>" end if %> <td width="52"><div align="center"> <font size="-2"> </font> <table width="106" border="1" cellpadding="0" cellspacing="0"> <tr> <td width="96"><font size="-2"> <% nomeArquivo = arq.name %> <a name="<%=contador%>" href="imagens/<%=nomeArquivo%>" target="fotos" onclick="contador.nome.value='<%=nomeArquivo%>'; salvaCookie();"> <img src="imagens/<%=nomeArquivo%>" width="96" height="72" border="0"> </a></font></td> </tr> </table> <font size="-2"> </font> </div></td> <% contador = contador + 1 if contador=16 then exit for end if next %>
Carregando comentários...