Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Bom dia galera eu tenho uma paginação q está mq exibindo assim ::
****
produto1 produto2 produto3
[1][2][3]
eu preciso exibir assim ::
****
produto1 produto2 produto3
produto1 produto2 produto3
[1][2]
ou seja além de eu poder editar o número de colunas gostaria tbm de editar o número de linhas, a serem exibidas na mesma página ...
minha paginação ::
<body background="img/fundo.jpg" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" scroll="no">
<table width="100%" height="100%" cellpadding="6" cellspacing="0">
<tr>
<td height="135" valign="top" background="img/fundo_int.jpg" bgcolor="#f2f2f2">
<table width="100%" height="100%" cellpadding="0" cellspacing="4" background="img/fundo_int.jpg" bgcolor="#f2f2f2">
<tr>
<td valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="4">
<tr>
<!--#include file="admin/config/conexao.asp" -->
<% id1=request.QueryString("detalhe")
call abre_conectar
cnn.CursorLocation = 3
Set tab = Server.CreateObject("Adodb.RecordSet")
tab.Pagesize = 3
tab.Open "Select * From produtos WHERE id_categoria = '" & id1 & "' ",cnn
'sql = "SELECT * FROM produtos WHERE id_categoria = '" & id1 & "'"
'set tab = cnn.execute(sql)%>
<td><div align="left" class="titulo1"><%=tab("id_categoria")%></div></td>
</tr>
<tr>
<td colspan="3" class="texto1"></td>
</tr>
<tr>
<% If tab.Eof Then
Response.Write("")
Else
PaginaAtual = Request.Querystring("Pages")
If PaginaAtual = "" Then
PaginaAtual = 1
Else
PaginaAtual = CINT(PaginaAtual)
End If
tab.AbsolutePage = PaginaAtual
Mostrou = 0
While Not tab.Eof And Mostrou < tab.Pagesize
Mostrou = Mostrou + 1
%>
<td height="22" class="classFonte01"><div align="center"><a href="admin/<%=tab("foto")%>" title="<%=tab("cod_produto")%>" rel="lightbox"><img src="admin/<%=tab("foto")%>" width="100" height="80" border="0" alt="" /></a></div></td>
<td width="635" height="30"><div align="left"><span class="titulo2"><%=tab("cod_produto")%></span></div></td>
<%
tab.MoveNext : Wend
Anterior = PaginaAtual - 1
Proximo = PaginaAtual + 1
If Anterior <= 0 Then
Anterior = 1
End If
If Proximo > tab.PageCount Then
Proximo = tab.PageCount
End If %>
<table>
<tr>
<td height="30" colspan="2" align="right"><strong></strong> <br><br><br>
<%
Jo = 1
While Jo <= tab.PageCount
If PaginaAtual = Jo Then
Response.Write("["&Jo&"] ")
Else
Response.Write ("<a href=""detalhe_catalago.asp?Pages="& Jo &"&Detalhe="& ID1 &""" align=""right"" title=""Página "& Jo &""">"& Jo &"</a> ")
End If
Jo = Jo + 1
Wend
End If%><%call fecha_conectar
set tab = nothing%>
</td>
</table>
</body>Cara eu já consigo exibir a paginação corretamente ... mas tá exibindo em linhas
eu gostaria q exibisse em linhas e em colunas ...
ou seja a foto 1 na coluna 1 da linha 1 ,a foto 2 na linha 1 coluna 2 , a foto 3 na linha 1 coluna 3 , a foto 4 na linha 1 coluna 4 , a FOTO 5 na linha 2 coluna 1...e assim por diante entendeu ?
Precisa criar uma especie de controle
um exemplo aqui com 15 registros sendo 5 colunas e 3 linhas
Controle = 0
Mostrou = 0
WHILE NOT RS.EOF AND Mostrou < RS.PageSize
IF Controle mod 5 = 0 THEN
%>
<div id="organiza">
<%
END IF
Controle = Controle + 1
Mostrou = Mostrou + 1
Foto = RS("Foto")
%>
<div align="center" id="quadro5">
<img src="imagem/<%= Foto%>">
</div><%
IF Controle mod 5 = 0 THEN
%>
</div>
<%
END IF
RS.MOVENEXT
WEND
IF Controle mod 5 <> 0 THEN
%>
</div>
<%
END IF
No caso aqui usei divs mas pode usar tabelas
O importante sao os controles que inciam novas linhas
Cara eu fiz assim e ñ deu certo ::
<!--#include file="admin/config/conexao.asp" -->
<% id1=request.QueryString("detalhe")
call abre_conectar
cnn.CursorLocation = 3
Set tab = Server.CreateObject("Adodb.RecordSet")
tab.Pagesize = 4
tab.Open "Select * From produtos",cnn
'sql = "SELECT * FROM produtos WHERE id_categoria = '" & id1 & "'"
'set tab = cnn.execute(sql)%>
<td><div align="left" class="titulo1"><%=tab("id_categoria")%></div></td>
</tr>
<tr>
<td colspan="3" class="texto1"></td>
</tr>
<tr>
<% If tab.Eof Then
Response.Write("")
Else
PaginaAtual = Request.Querystring("Pages")
If PaginaAtual = "" Then
PaginaAtual = 1
Else
PaginaAtual = CINT(PaginaAtual)
End If
tab.AbsolutePage = PaginaAtual
Mostrou = 0
While Not tab.Eof And Mostrou < tab.Pagesize
Mostrou = Mostrou + 1Controle = 0
Mostrou = 0
WHILE NOT tab.EOF AND Mostrou < tab.PageSize
IF Controle mod 5 = 0 THEN
%>
<%
END IF
Controle = Controle + 1
Mostrou = Mostrou + 1
%>
<td height="22" class="classFonte01"><div align="center"><a href="admin/<%=tab("foto")%>" title="<%=tab("cod_produto")%>" rel="lightbox"><img src="admin/<%=tab("foto")%>" width="100" height="80" border="0" alt="" /></a></div></td>
<td width="635" height="30"><div align="left"><span class="titulo2"><%=tab("cod_produto")%></span></div></td><%
IF Controle mod 5 = 0 THEN
%>
<%
END IF
tab.MOVENEXT
WEND
IF Controle mod 5 <> 0 THEN
%>
<%
END IF
tab.MoveNext : Wend
Anterior = PaginaAtual - 1
Proximo = PaginaAtual + 1
If Anterior <= 0 Then
Anterior = 1
End If
If Proximo > tab.PageCount Then
Proximo = tab.PageCount
End If %>
<table>
<tr>
<td height="30" colspan="2" align="right"><strong></strong> <br><br><br>
<%
Jo = 1
While Jo <= tab.PageCount
If PaginaAtual = Jo Then
Response.Write("["&Jo&"] ")
Else
Response.Write("<a href=""pagina.asp?Pages="&Jo&""" class=""classFonte01"" title=""Página "&Jo&""">"&Jo&"</a> ")
End If
Jo = Jo + 1
Wend
End If%>voce tirou a div mas nao acrescentou as tags de linhas e colunas equivalentes
seria a **<tr></tr>**
<tr>
<td height="22" class="classFonte01"><div align="center"><a href="admin/<%=tab("foto")%>" title="<%=tab("cod_produto")%>" rel="lightbox"><img src="admin/<%=tab("foto")%>" width="100" height="80" border="0" alt="" /></a></div></td>
<td width="635" height="30"><div align="left"><span class="titulo2"><%=tab("cod_produto")%></span></div></td>
</tr> ... Mas eu preciso fazer exibir as linhas e as colunas ... O q tá errado ??as colunas voce exibe normalmente
ali nos espaços voce poe as tagas de abertura e fechamento de linhas no inicio as de abertura e nos outros dois locais de copntrole sendo um dentro e outro fora do loop o de fechamento
seria isso ::
<td height="22" class="classFonte01"><div align="center"><a href="admin/<%=tab("foto")%>" title="<%=tab("cod_produto")%>" rel="lightbox"><img src="admin/<%=tab("foto")%>" width="100" height="80" border="0" alt="" /></a></div></td>
<td width="635" height="30"><div align="left"><span class="titulo2"><%=tab("cod_produto")%></span></div></td>tab.MOVENEXT
WEND%>
</tr>
<%IF Controle mod 5 <> 0 THEN
%>
<tr>
<%
END IF
tab.MoveNext : Wend %>
</tr>
<%Anterior = PaginaAtual - 1
Proximo = PaginaAtual + 1
If Anterior <= 0 Then
Anterior = 1
End If
If Proximo > tab.PageCount Then
Proximo = tab.PageCount
End If %>
<table>
<tr>
<td height="30" colspan="2" align="right"><strong></strong> <br><br><br>
<%
Jo = 1
While Jo <= tab.PageCount
If PaginaAtual = Jo Then
Response.Write("["&Jo&"] ")
Else
Response.Write("<a href=""pagina.asp?Pages="&Jo&""" class=""classFonte01"" title=""Página "&Jo&""">"&Jo&"</a> ")
End If
Jo = Jo + 1
Wend
End If%>estou nde saida agora
devo retornar em 4 horas ou pouco mais
se quando chegar ainda nao estiver resolvido faço uns testes aaqui
Ok vou tentar aki abraçosss e valeuuuu
Cara eu tentei de várias formas e ñ consegui você ou alguém ai pode me ajudar com isso, já estou kebrando a cabeça e ñ consigo resolver !!!
Alguém consegue me ajudar a fazer uma paginação exibir assim ::
****
produto1 produto2 produto3 produto4
produto5 produto6 produto4 produto8
[1][2][3]
só consigo assim ..
****
produto1 produto2 produto3 produto4
[1][2][3]
Estou precisando muito resolver isso ... Valeu
:blink: Jow, é só seguir a dica do Mário... segue novamente com alguns ajustes para ver se fica mais claro para você:
<table>
<%
Controle = 0
Mostrou = 0
While Not tab.Eof And Mostrou < tab.PageSize
If Controle mod 5 = 0 Then
Response.Write "<tr>"
End If
Controle = Controle + 1
Mostrou = Mostrou + 1
%>
<td>
<div align="center">
<a href="admin/<%=tab("foto")%>" title="<%=tab("cod_produto")%>" rel="lightbox"><img src="admin/<%=tab("foto")%>" width="100" height="80" border="0" alt="" /></a>
<span class="titulo2"><%=tab("cod_produto")%></span>
</div>
</td>tab.MoveNext
Wend
If Controle mod 5 <> 0 Then
Response.Write "</tr>"
End If
%>
</table>
[http://forum.imasters.com.br/public/style_emoticons/](http://forum.imasters.com.br/public/style_emoticons/)default/thumbsup.gif Abs.Boas galera eu consegui resolver o grande mistério ... Como tá meio complicado de alguém me ajudar, resolvi tentar criar alguma coisa, com a ajuda de um amigo, e eis o resultado ...
Boas galera eu consegui resolver o grande mistério ... Como tá meio complicado de alguém me ajudar, resolvi tentar criar alguma coisa, com a ajuda de um amigo, e eis o resultado ...
http://www.visaopedestais.com.br/novo/lojista/teste.asp
Parabéns por ter conseguido realizar o que queria.
Só um comentário, ajudando diversas pessoas estavam, o que ninguém aqui vai fazer é o código por você. Simplesmente vor aqui e dizer "Não funcionou" não ajuda muito, você deve informar o Erro apresentado ou o que está sendo exibido de forma errada.
>
Parabéns por ter conseguido realizar o que queria.
Só um comentário, ajudando diversas pessoas estavam, o que ninguém aqui vai fazer é o código por você. Simplesmente vor aqui e dizer "Não funcionou" não ajuda muito, você deve informar o Erro apresentado ou o que está sendo exibido de forma errada.
Concordo plenamente com o q você disse ... em relação ao comentário q eu fiz acima eu kis dizer q tava meio complicado de achar a solução, fico muito grato pela dedicação da galera q me ajudou, e sempre vem me ajudando muito sou muito agradecido por isso ...
Mas antes de eu postar aki eu procuro uma solução para as minhas dificuldades, em último caso eu posto aki, e com a ajuda da galera sempre encontro uma solução ... Quando eu me cadastrei aki eu li as regras do forúm, sei q ninguém vai me dar o código pronto e sim vai me ajudar a encontrar a solução, por isso me cadestrei aki. Tenho 949 post's até o momento muitas dúvidas e algumas contribuições ... Nada mais justo né de ajudar qd posso, em relação a isso nesse meu post eu vi q um usuário entrou e viu a minha dúvida e ñ respondeu, tranquilo talves o cara ñ tinha conhecimento para me apontar uma solução. Mas eu pesquisando na internet alguma coisa para me ajudar eu achei q o mesmo usuário estava com o mesmo problema e conseguiu resolver ... Acho q ele pensou assim eu ñ vou ajudar ninguém, deixe q os outros o ajudem, pois talves ele esteja aki no forúm só para sanar as sua dúvidas com a ajuda da galera e ñ ajudar ningém ....
Mas tranquilo cada um pensa de uma forma ... Eu ñ penso assim ... Como encontrei uma dificuldade e consegui resolver, e ñ achei nenhum script de paginação parecido vou postar a minha solução lá nos scripts, assim q eu tiver um tempo aki ... Abraçossss a todos e valeuuuuu mais uma vez
olha este código
<%
' Definindo o caminho do banco de dados
caminho = "bds/cadastro.mdb"
' Fazendo a conexão com o banco de dados (paginacao.mdb)
set objconn = Server.CreateObject("ADODB.Connection")
DSN = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(caminho)
objconn.Open DSN
' String SQL para consulta
SQL = "select * from cadastro order by cliente"
' Abrindo o registro
SET objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open SQL,objconn,3
' Se não encontrar nada escreve a mensagem
' Senão lista os registros
If objRS.EOF Then
Response.Write("Nenhum registro foi encontrado")
Else
' Definindo o número de registros por página
objRS.PageSize = 10
' Recupera o valor da variável pagina
pagina = Request.QueryString("pagina")
' Se a variável pagina for vazio, indica que a página sera a primeira
' Senão a variável pagina recebe o valor da página corrente, definida acima
If pagina = "" Then
objRS.AbsolutePage = 1
pagina = 1
Else
objRS.AbsolutePage = pagina
End If
%>
<%
' Imprime o número de registros, o total de páginas e a página atual
%>
<%
' Criando a barra de navegação
' Se a variável pagina for maior que 1 então imprime o botão Anterior com link
' Senão imprime sem link
If CInt(pagina) > 1 Then
Response.Write("<center><FONT FACE=Verdana SIZE=1 COLOR=#000000><B><a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & pagina-1 & "'>Anterior</a> ")
Else
Response.Write("<center><FONT FACE=Verdana SIZE=1 COLOR=#000000><B>Anterior")
End If
' Lista todas as páginas encontradas
if objRs.PageCount < 11 then
For i = 1 To objRS.PageCount
response.write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & i & "'>" & i & "</a> ")
Next
end if
if objRs.PageCount > 10 then
inicio=pagina
fim=pagina + 9
tot = pagina + 9
if tot > ObjRS.PageCount then
inicio = pagina-((pagina+9)-ObjRs.PageCount)
fim = inicio+9
end if
for i = inicio to fim
end if
' Se a variável pagina for menor que o total de páginas então imprime o botão Próxima com link
' Senão imprime sem link
If CInt(pagina) < objRS.PageCount Then
Response.Write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & pagina+1 & "'>Próxima</a></B></FONT></center>")
Else
Response.Write("Próxima</B></FONT></center>")
End If
End If
%>
<%While Not objRS.EOF AND cont < objRS.PageSize%>
<%
cont = cont + 1
objRS.MoveNext
Wend
%>
<%
' Fecha e destroi os objetos RS e conn
objRS.Close : objconn.Close
Set RS = Nothing : Set objconn = Nothing
%>