Ir para conteúdo

POWERED BY:

Arquivado

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

filipescoob

paginação com erro e atuazilação com falha...

Recommended Posts

Galera dois problemas, estava com este post na area de javascript, porem quando resolvi uma parte do problema sugiu outros

 

tenho uma pagina principal com Dois iframes, quando o de cime faz uma ação ele dispara outra no de baixo exemplos:

 

onClick="parent.document.pag.location='cad_edi_del.asp?faz=categoria&pagina=1';"

porem só atualiza quando tenho mais de que 11 registros na tabela...

 

pq pode estar acontecendo isso ??

 

e oura eu useio o paramentro de pagesize no select de 3 e ele pagina de 10 em 10 por pagina...pq isso??? não to entendendo mais nada...

Compartilhar este post


Link para o post
Compartilhar em outros sites

Poste seu código da paginação.

Compartilhar este post


Link para o post
Compartilhar em outros sites
if faz = linque1 then'*********************************	PAGINAÇÃO DE CATEGORIAS  ****************************************************************'Escolha os Tres campos default para que seja realizada a ordenação, e aparecer os campos visiveis da paginaçãoorder_1 = "cod_categ"'apelide o primeiro campo para poder identificar quando a ordenação for executada por elecorder_1 = "id"'identifique o segundo campo a aparecer na paginaçãoorder_2 = "nome_categ"'apelide o segundo campo para poder identificar quando a ordenção for executada por elecorder_2="nome"'identifique o terceiro campo a aparecer na paginaçãoorder_3 = "data_criacao"'apelide o terceiro campo a aparecer na paginaçãocorder_3 = "data"'recupera o corder, ele identifica qual compo da paginação ira ficar marcado como sendo o atual ordenador da consulta (serve somente para efeito visual)corder = request.QueryString("corder")'recupera o campo a qual ira ser feita a ordenaçãoorder = request.QueryString("order")'define se a consulta sera ascendente ou descentedentetporder = request.QueryString("tporder")'coloca os valores em sessionsession("order") = ordersession("tporder") = tpordersession("corder") = corder		'Se order for vazio recebe valor padrão que é ordenação por codigo, isso ocorre no primeiro acesso		if  session("order") = "" then		'Colocar aqui o campo ID default para odernar a consulta			session("order") = order_1		end if		'Se o tipo da ordem for vazio ele recebe o valor padrão asc (ascendente) 		if  session("tporder") = "" then		'Colocar o tipo de consulta default, ascendente ou descendente			session("tporder") = "asc"		end if'***************************************	 COMEÇO DA PAGINAÇÃO	  *******************************************************	'recupera o numero da pagina que a pesssoa deseja ir	'caso seje o primeiro acesso ele retornará 1	pagina = Request.QueryString("pagina")	If pagina = null or pagina = "" Then	pagina = 1	End If	'cria o recordset para trazer os dados da paginação	set rs_cad = Server.CreateObject("adodb.Recordset")	rs_cad.PageSize = 3	SQL_1 = "Select * FROM tbl_categoria order by "&session("order") & " "& session("tporder")	set rs_cad = conexao.execute(SQL_1)	'função que mostra total de pagina e tambem a pagina atual.	Sub Mostranum1()		Response.write "Existem " & rs_cad.recordcount &" registros na tabela - Mostrando pagina "& pagina &" de "&rs_cad.PageCount	end sub	'função paginação ele é responsavel por toda navegação entre os registros	sub Paginar1()		ultima = rs_cad.PageCount		'INÍCIO DOS LINKS DA PAGINAÇÃO.		links = 3		'se pagina não for a primeira ele mostra ativo o botão primeiro		if int(pagina) > 1 then		response.write "<a class='botao' href=cad_edi_del.asp?faz="&linque1&"&pagina=1&tporder="&session("tporder")&"&order="&session("order")&"&corder="&session("corder")&" target='pag'>   Primeira   </a>"		end if		'se pagina for a primeira ele mostra inativo o botão primeiro		if int(pagina) = 1 then		response.write "<a class='botaoinat'>   Primeira   </a>"		end if		' Aqui é criado os links antes da página atual.		For i = (pagina - links) To (pagina - 1)		 If i > 0 Then		  Response.Write "<a class='botao' href=cad_edi_del.asp?faz="&linque1&"&pagina="&i&"&tporder="&session("tporder")&"&order="&session("order")&"&corder="&session("corder")&" target='pag'>"&i&"</a>"		 End If		Next		'Imprime o número da página atual		Response.Write "<b><a class='botaoinat'>"&pagina&"</a>"		' Aqui é criado os links após a página atual.		For i = (pagina + 1) To (pagina + links)		 If i > ultima Then Exit For		 Response.Write "<a class='botao' href=cad_edi_del.asp?faz="&linque1&"&pagina="&i&"&tporder="&session("tporder")&"&order="&session("order")&"&corder="&session("corder")&" target='pag'>"&i&"</a>"		Next		if int(pagina) < ultima then			Response.Write "<a class='botao' href=cad_edi_del.asp?faz="&linque1&"&pagina="&rs_cad.pagecount&"&tporder="&session("tporder")&"&order="&session("order")&"&corder="&session("corder")&" target='pag'>   Ultima   </a>"		end if		'mostra botão ultimo inativo		if int(pagina) = ultima then			Response.Write "<a class='botaoinat'>   Ultima   </a>"		end if	End sub'***************************************		FIM DA PAGINAÇÃO	  ********************************************************	%><table width="550"  border="0" cellspacing="0" cellpadding="0">	  <tr>		<td width="20"> </td>		<!-- IMPRIME OS CABEÇALHOS E MONTA OS LINKS DE ORDENAÇÃO, IDENTIFICANDO POR QUAL CAMPO ESTA ORDENADA A CONSULTA -->		<td width="42" align="center" valign="middle" style="width:40px;" <% if corder = "corder_1" or corder = corder_1&"_desc" then response.write "class='order'" else response.write "class='linque2'"%>><%if corder = corder_1&"_desc" and order= order_1 then  response.write ("<a href='cad_edi_del.asp?order="&order_1&"&tporder=asc&corder="&corder_1&"&faz="&linque1&"' target='pag'><font color='#FF0000'>ID <font color='blue'>^</font></font></a>") else response.write ("<a href='cad_edi_del.asp?order="&order_1&"&tporder=desc&corder="&corder_1&"_desc&faz="&linque1&"'><font color='#FF0000' target='pag'>ID </font></a>")%></td>		<td width="385" align="center" valign="middle" style="width:350px;" <% if corder = corder_2 or corder = corder_2&"_desc" then response.write "class='order'" else response.write "class='linque2'"%>><% if corder = corder_2&"_desc" and order = order_2 then  response.write ("<a href='cad_edi_del.asp?order="&order_2&"&tporder=asc&corder="&corder_2&"&faz="&linque1&"' target='pag'><font color='#FF0000'>Nome <font color='blue'>^</font></font></a>") else response.write ("<a href='cad_edi_del.asp?order="&order_2&"&tporder=desc&corder="&corder_2&"_desc&faz="&linque1&"&'><font color='#FF0000' target='pag'>Nome </font></a>")%></td>		<td width="110"align="center" valign="middle" class="linque" style="width:110px;"><label name="Incluir" class="formnormal" style="color:#FF0000; width:110px; height:20px;" id="Incluir" title="Incluir"><a href="cad.asp?oper=cadcat" target="mainpic">Incluir</a></label></td>  </tr><% If rs_cad.EOF ThenResponse.Write "Nenhum registro encontrado"Elsers_cad.AbsolutePage = paginaWhile Not rs_cad.EOF AND x < rs_cad.PageSizex = x + 1if i = 0 then	cor = "linque"	i = 1else	cor = "linque2"	i = 0end if%> 	  <tr>	  <!-- RETORNA OS DADOS DO BANCO DE DADOS -->		<td> </td>		<td align="center" valign="middle" style="width:40px;" class="<%=cor%>"><%=rs_cad("cod_categ")%></td>		<td class="<%=cor%>" style="width:350px;"><%=rs_cad("nome_categ")%></td>		<td align="center" valign="middle" class="<%=cor%>" style="width:110px;"><label class="botao" name="editar<%=x%>"><a href="cad.asp?oper=editcat&id=<%=rs_cad("cod_categ")%>" target="mainpic">Editar</a></label>		 <label class="botao" name="deletar<%=x%>"><a href="cad.asp?oper=delcat&id=<%=rs_cad("cod_categ")%>" target="mainpic">Deletar</a></label></td>  </tr><% rs_cad.movenextWendend if%>	  <tr>		<td> </td>		<td colspan="3"> </td>  </tr>	  <tr>		<td> </td>		<!-- MOSTRA QUANT. DE PAGINAS DA PAGINAÇÃO-->		<td colspan="3" align="center" valign="top" class="linque"><%Mostranum1%></td>  </tr>	  <tr>		<td> </td>		<td colspan="3"> </td>	  </tr>	  <tr>		<td height="19"> </td>		<!-- BARRA DE NAVEGAÇÃO -->		<td colspan="3" align="center" valign="top"><%paginar1%></td>  </tr></table>	</td>	<td> </td>  </tr></table><%'******************************   FIM DO CADASTRO EDIÇÃO DE CATEGORIAS  *******************************************************

Compartilhar este post


Link para o post
Compartilhar em outros sites

montei esta paginação pegando como base uma existente aqui no forum mas não ta rolando...

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

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