Ir para conteúdo

POWERED BY:

Arquivado

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

Jow Xavier

Paginação em colunas e linhas ...

Por , em ASP Clássico

Recommended Posts

Jow Xavier    0

Jow Xavier
Postado

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>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

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
Response.Write("<table><tr><td><FONT FACE=Verdana SIZE=1 COLOR=#000000><B>Foram encontrados" & objRS.RecordCount & " registros" & vbcrlf )
Response.Write("<br>Mostrando página <b>" & pagina & "</b> de <b>" & objRS.PageCount & "" & vbcrlf )
Response.Write("<br><FONT FACE=Verdana SIZE=1 COLOR=#000000><B>Busca Avançada <a href='#' onClick=java script:window.open('../busca_avc.asp','','width=200,height=50,scrollbars=no, resizable=no,left=00,top=0');>aqui</a></B></FONT></td></tr></table>")
%>

<% 
' 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
		response.write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & i & "'>" & i & "</a> ")
	next
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%>
<tr bgcolor="#0099CC" bordercolor="0"> 
  <td height="7" width="110" align="left"><font size="1" face="Verdana"><b><%=objRS("cliente")%></b></font></td>
  <td height="7" width="110" align="center"><font size="1" face="Verdana"><b><%=objRS("fone")%></b></font></td>
  <td height="7" width="83" align="center"><font size="1" face="Verdana"><b><%=objRS("endereco")%></b></font></td>
  <td height="7" width="70" align="center"><font size="1" face="Verdana"><b><%=objRS("numero")%></b></font></td>
  <td height="7" width="107" align="center"><font size="1" face="Verdana"><b><%=objRS("bairro")%></b></font></td>
  <td height="7" width="55" align="center">
  <a href="../action_altera.asp?id=<%=objRS("id")%>" OnClick="return confirm('Deseja Realmente Alterar ?')">
  <img src="imagens/edit.gif" width="16" height="16" border="0" alt="Clic aqui para Alterar.">
  </a>  
</td>
<%
cont = cont + 1
objRS.MoveNext
Wend
%>
</tr>
</table>
<%
' Fecha e destroi os objetos RS e conn
objRS.Close : objconn.Close
Set RS = Nothing : Set objconn = Nothing
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Jow Xavier    0

Jow Xavier
Postado

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 ?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

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

Compartilhar este post

Link para o post
Compartilhar em outros sites

Jow Xavier    0

Jow Xavier
Postado

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 + 1

  
  
Controle = 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%>

Link on line :: http://www.visaopedestais.com.br/novo/loji...ina.asp?Pages=1

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

voce tirou a div mas nao acrescentou as tags de linhas e colunas equivalentes

Compartilhar este post

Link para o post
Compartilhar em outros sites

Jow Xavier    0

Jow Xavier
Postado

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 ??

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

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

Compartilhar este post

Link para o post
Compartilhar em outros sites

Jow Xavier    0

Jow Xavier
Postado

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>
<%
IF Controle mod 5 = 0 THEN
%>
<tr>
<%
END IF

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%>

se for ñ deu certo ... exibe a mesma coisa

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

estou nde saida agora

 

devo retornar em 4 horas ou pouco mais

 

se quando chegar ainda nao estiver resolvido faço uns testes aaqui

Compartilhar este post

Link para o post
Compartilhar em outros sites

Jow Xavier    0

Jow Xavier
Postado

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 !!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

Jow Xavier    0

Jow Xavier
Postado

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

Compartilhar este post

Link para o post
Compartilhar em outros sites

Public2004    79

Public2004
Postado

: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>
<%
If Controle mod 5 = 0 Then
	Response.Write "</tr>"
End If

tab.MoveNext
Wend

If Controle mod 5 <> 0 Then
	Response.Write "</tr>"
End If
%>
</table>

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif Abs.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado
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.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Jow Xavier    0

Jow Xavier
Postado

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

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