Ir para conteúdo
Fórum Script Brasil
  • 0

Problema Na Minha Paginação

LucasForever

Perguntado por LucasForever,

 Share

Pergunta

LucasForever

LucasForever

Postado
Postado (editado)

Bom dia pessoal... sou novo por aqui e tenho um pouco de conhecimento em ASP.

gostaria de saber se alguém pode me ajudar, estou tentando modificar um script asp que já peguei pronto, já fiz muitas modificações neste codigo que já utilizei em outros trabalhos que desenvolvi...

o problema é que não estou conseguindo colocar paginação nele... já tentei usar alguns scripts de paginação nele, mas, não consegui...alguém pode me ajudar...

o codigo é o seguinte:

<%

Dim lista,cat_id,cat_nome,nome,lista_produtos,msgnada

lista=Request.querystring("lista")

cat_id=Request.querystring("cat_id")

cat_nome=Request.querystring("cat_nome")

nome=Request.querystring("nome")

%>

<table width="612" border="0" cellspacing="0" cellpadding="0">

<tr>

<td><table width="100%" border="0" cellspacing="0" cellpadding="0">

<tr>

<td width="20" height="60"><img src="img/barra_01.jpg" width="20" height="60"></td>

<td background="img/barra_02.jpg"><table width="550" border="0" cellpadding="0" cellspacing="0">

<tr>

<td align="left" valign="middle" class="menucategorias">&nbsp;&nbsp;<%=cat_nome%></td>

</tr>

</table></td>

<td width="17" height="60"><img src="img/barra_04.jpg" width="17" height="60"></td>

</tr>

</table></td>

</tr>

<tr>

<td>

<table width="610" border=0 align="center" cellpadding="0" cellspacing="0">

<tr>

<%

Select Case lista

Case "categoria"

set lista_produtos = lojaDB.Execute("SELECT * FROM produtos WHERE cat_id="& cat_id &" AND disp='S' ORDER BY data desc")

msgnada = "No momento não dispomos de nenhum produto neste departamento."

Case "busca"

set lista_produtos = lojaDB.Execute("SELECT * FROM produtos WHERE nome LIKE '%"& nome &"%' OR descricaop LIKE '%"& nome &"%' OR descricaog LIKE '%"& nome &"%' OR preço LIKE '%"& nome &"%' OR imagem LIKE '%"& nome &"%' AND disp='S' ORDER BY data desc")

msgnada = "Infelizmente não localizamos nenhum produto com esse nome."

Case Else

%>

&lt;script>window.location="./index.asp"</script>

<%

End Select

If lista_produtos.EOF Then

Response.Write "<tr><td><h4>" & msgnada & "</h4></td></tr>"

Else

%>

<%

Dim prod_cat_id,prod_id,prod_nome,prod_descricaop,prod_preco,malha1,reg,conte,pagina,page,prod_imagem

malha1 = "sim"

reg = 1

conte = 0

while conte < lista_produtos.pagesize and not lista_produtos.eof

prod_cat_id = lista_produtos("cat_id")

prod_id = lista_produtos("id")

prod_nome = lista_produtos("nome")

prod_descricaop = lista_produtos("descricaop")

prod_preco = lista_produtos("preço")

prod_imagem = lista_produtos("imagem")

%>

<td> <table width="195" height="200" border="0" align="center" cellpadding="0" cellspacing="0" id="CDS">

<tr>

<td>&nbsp;</td>

</tr>

<tr>

<td> <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" id="cd">

<tbody>

<tr>

<td colspan="2"></td>

</tr>

<tr>

<td width="34%" height="90" align="center" valign="top"><img src=./images_p/<%=prod_imagem%>.jpg width="60" border="0">

</td>

<td valign="top"> <table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">

<tbody>

<tr>

<td height="30" align="left" valign="top" class="titulodoproduto">

<div align="left">&nbsp;<%=prod_nome%></div></td>

</tr>

<tr>

<td height="60" align="left" valign="top" class="descricao">

<div align="left">&nbsp;<%=prod_descricaop%></div></td>

</tr>

</tbody>

</table></td>

</tr>

<tr>

<td colspan="2" align="center"> <form action="./carrocompras.asp" method=get>

<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">

<tr>

<td width="50%" class="preço"><span class="valor">Somente:</SPAN><br>

R$ <%=FormatNumber(prod_preco,2,-1,0,-1)%></td>

<td width="50%" align="left" class="tabela1pxCopy2">

<div align="left">

<input type=hidden name=acao value=incluir>

<input type=hidden name=prod_id value=<%=prod_id%>>

<input type=hidden name=url_comp value="<%=Server.UrlEncode(Request.ServerVariables("QUERY_STRING"))%>">

<input type=text name=prod_quant maxlength=2 size=2 value=1 style="BORDER-RIGHT: #FF6600 1px solid; BORDER-TOP: #FF6600 1px solid; FONT-SIZE: 11px; #FF6600 1px solid; BORDER-LEFT: #FF6600 1px solid; COLOR: #565656; BORDER-BOTTOM: #FF6600 1px solid; FONT-FAMILY: Arial, Helvetica, sans-serif; BACKGROUND-COLOR: #FFFFFF">

<span class="valor">Unid.</span></div></td>

</tr>

<tr>

<td align="left" > <div align="left"><img src="img/ver.gif" width="12" height="12" align="absmiddle"><a class="ajuda"href="./detalheprod.asp?prod_id=<%=prod_id%>&url_comp=<%=Server.UrlEncode(Request.ServerVariables("QUERY_STRING"))%>">

detalhes</a></div></td>

<td width="50%" align="center" class="tabela1pxCopy2">

<div align="left">

<input type=image src="img/botao_comprar.gif" alt=adcionar ao carrinho width=69 height=19>

</div></td>

</tr>

</table>

</form></td>

</tr>

</tbody>

</table></td>

</tr>

<tr>

<td> <table width="85%" border="0" align="center" cellpadding="0" cellspacing="0">

<tr>

<td class="tabelabaixo">&nbsp;</td>

</tr>

</table></td>

</tr>

</table></td>

<%

if reg = 3 then

response.Write("</tr>")

reg = 0

end if

conte = conte +1

reg = reg + 1

lista_produtos.movenext

If malha1 = "sim" Then malha1 = "não" Else malha1 = "sim" End If

wend

End If

lista_produtos.Close

set lista_produtos = Nothing

%>

<tr>

<td>&nbsp;</td>

</table>

</td>

</tr>

</table>

se alguém quizer ver o codigo funcionando clique aqui, não está funcionando totalmente.... ai você verá a página que eu já modifiquei e coloquei alguns parametros neste codigo para que os produtos sejam puxados do bd e ordenados de 3 em 3 por linha...so que como não tem um limite para a quantidade de arquivos que aparecem por pagina, se eu tiver 100 produtos, vai aparecer todos os 100 registros em uma unica pagina. dai que tem de entrar a paginação... para que apareçam por exemplo 15 produtos por página... alguém sabe modificar este codigo para ficar paginando??? pode entrar em contato comigo por email se quizer... obrigado..

Editado por LucasForever
Link para o comentário
Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

  • 0
marcos_804

marcos_804

Postado
Postado

Cara não vou poder descrever muito agora...

Estou correndo... hau.... rs...

Por isso desenvolvi um codigo de paginacao rapidinho para poder te passar...

<%
dim numDePags, nome, pagina, tamanhoDaPagina, DSN

'==== AQUI VEM TODAS AS STRINGS QUE SERAO BUSCADAS PARA REALIZAR A BUSCA
nome = request.querystring("nome")

'==== STRIGS DA PAGINACAO
pagina = Cint(request.querystring("pagina"))
    if(pagina="")then pagina = 1 else pagina = pagina

TamanhoDaPagina = 1


'==== CONEXAO E OBJETO
set rs = server.CreateObject("ADODB.RecordSet")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("banco.mdb")
rs.Open "SELECT * FROM TB_Alunos WHERE (Aluno LIKE '%"& nome &"%')   ORDER BY Aluno ASC", DSN, 3, 3

if(rs.RecordCount MOD TamanhoDaPagina = 0) then
    numDePags = CInt(rs.RecordCount/TamanhoDaPagina)
else
    numDePags = CInt(rs.RecordCount/TamanhoDaPagina) + 1
end if

rs.PageSize = 10
rs.AbsolutePage = pagina


for x = 1 to TamanhoDaPagina
    response.write rs("Aluno") &"<br>"
Next

%>
<hr>
<%
for pags = 1 to numDePags
    response.write "<a href=""?pagina="& pags &"&nome="& nome &""">"& pags &"</a>"
next
%>

Aqui funcionou diretinho...

.... Desculpa não explicar muito agora é que estou mesmo correndo...

Se tiver alguma duvida diz ai...

falou...

Espero ter ajudado.

Marcos Oliveira.

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...