FórumGdH

Página Inicial do Guia do Hardware

Registrar FAQ Calendário Pesquisar Mensagens de Hoje Marcar Fóruns Como Lidos

Voltar   FórumGdH > Profissional > Programação, scripts, web e banco de dados
Bem-vindo ao FórumGdH
Não se esqueça de se registrar, é grátis . Nós temos 759.310 usuários, convidamos você fazer parte de nossa comunidade também! Se ainda não encontrou o que procura use nossa pesquisa. Esperamos que aprecie nosso trabalho.

Resposta
 
Opções do Tópico
Antigo 05-04-2004, 17:54   #1 (permalink)
pearljam
Membro Senior
 
Registrado em: Mar 2002
Mensagens: 254
Reputação: 21 pearljam está indo no caminho certo
Padrão paginação em ASP... por ordem alfabética

como eu coloco paginação por LETRA... (ordem alfabética) no
código abaixo... alguém pode me dar uma ajuda?

ex...... 0 1 2... A B C D E F...

seria mais ou menos assim...

valeu!!!!!!!!!!1


Código:
<% '============================ CONSULTA =============================== If (Not Erro) Then SQL = "SELECT * FROM Empresas ORDER BY Empresa" rsEmpresas.Open SQL, Conexao %> <table border="0" cellpadding="0" cellspacing="0" width="100%"> <tr> <td width="35%"></td> <% If (rsEmpresas.RecordCount <> 0) Then If (rsEmpresas.RecordCount = 1) Then %> <td><font face="Arial" color="#4A5EC6"><b>Existe <%= rsEmpresas.RecordCount %> empresa cadastrada</b></font></td> <% Else %> <td><font face="Arial" color="#4A5EC6"><b>Existem <%= rsEmpresas.RecordCount %> empresas cadastradas</b></font></td> <% End If %> <td width="20%" align="right"><font face="Verdana" size="1"><b>Legenda:</b><br> Empresa Ativa<br> <font color="#C0C0C0">Empresa Inativa</font></font></td> </tr> </table> <p><center></p> <table border="0" cellpadding="3" cellspacing="1" bgcolor="#4A5EC6"> <% Do Until rsEmpresas.EOF %> <tr> <% If (rsEmpresas("Ativo") = "S") Then %> <td bgcolor="#FFFFFF"><font face=Verdana size=2><b><%= rsEmpresas("Empresa") %></b></font> <% Else %> <td bgcolor="#FFFFFF"><font face=Verdana size=2 color=#C0C0C0><b><%= rsEmpresas("Empresa") %></b></font> <% End If %> </td> <td align="center" width="60" bgcolor="#FFFFFF"><font face="Verdana" size="1"><a href="admaltempresas.asp?cod=<%= rsEmpresas("CodEmpresa") %>" target="_self">alterar</a></font></td> <td align="center" width="60" bgcolor="#FFFFFF"><font face="Verdana" size="1"><a href="javascript:exclui(<%= rsEmpresas("CodEmpresa") %>)">excluir</a></font></td> </tr> <% rsEmpresas.MoveNext Loop %> </table> <p align="center"> <% Else 'Se não foi encontrado nenhum registro %> <p align="center">&nbsp;</p> <p align="center"> <font color="#4A5EC6" size="3" face="Arial"><b>Não existe nenhuma empresa cadastrada...</b></font> </p> <% End If rsEmpresas.Close Else 'Se ocorreu erro %> <p align="center">&nbsp;</p> <p align="center"> <font color="#4A5EC6" size="3" face="Arial"><b>Ocorreu um erro...</b></font> </p> <p align="center">&nbsp; <% End If Fecha_Conexao %>
__________________
Pearl Jam e System Of A Down... os melhores !
_______________________________________
ECS K7S5A / AMD Duron 1200 / Maxtor 20GB 7200 / Seagate 10GB 5200 / 128 SDRAM / Diamond Viper TNT AGP Video / WinXP PRO
pearljam está offline   Responder com Quote
Antigo 05-04-2004, 22:52   #2 (permalink)
MaSCaRaDe
Super Participante
 
Avatar de MaSCaRaDe
 
Registrado em: Feb 2003
Localização: Rio de Janeiro/RJ
Idade: 9
Mensagens: 950
Reputação: 284 MaSCaRaDe tem uma fabulosa reputaçãoMaSCaRaDe tem uma fabulosa reputaçãoMaSCaRaDe tem uma fabulosa reputaçãoMaSCaRaDe tem uma fabulosa reputaçãoMaSCaRaDe tem uma fabulosa reputaçãoMaSCaRaDe tem uma fabulosa reputaçãoMaSCaRaDe tem uma fabulosa reputaçãoMaSCaRaDe tem uma fabulosa reputaçãoMaSCaRaDe tem uma fabulosa reputaçãoMaSCaRaDe tem uma fabulosa reputaçãoMaSCaRaDe tem uma fabulosa reputação
Enviar mensagem via ICQ para MaSCaRaDe Enviar mensagem via MSN para MaSCaRaDe Enviar mensagem via Skype para MaSCaRaDe
Padrão

Falae pearljam (tem bom gosto!!), eu desenvolvi esse codigo q faz paginação (lista) por letra e numero, em cima dele vc pode aperfeiçoa-lo... faça bom uso!!

Código:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Set RS = Server.CreateObject("ADODB.RecordSet") Set Conn = Server.CreateObject("ADODB.Connection") conn.ConnectionString = "PROVIDER=MICROSOFT.JET.OLEDB.4.0; DATA SOURCE=" & Server.MapPath("banco/bd.mdb") & "" Conn.Open pagina = Request.QueryString("pagatual") letra = Request.QueryString("letra") If letra = "" Then letra = "A" SQL = "Select * FROM maladireta WHERE nome LIKE 'A%' Order by nome ASC" Else SQL = "Select * FROM maladireta WHERE nome LIKE '"&letra&"%' Order by nome ASC" End If RS.Open SQL, conn, 3, 3 If RS.EOF Then Response.Write "Nenhum registro encontrado!" Response.Write("<a href=javascript:history.back(-1)><br><br>Voltar</a>") Response.End() End If const pags = 15 RS.pagesize = pags RS.cachesize = pags RS.absolutepage = 1 %> <html> <head> <title>Documento sem t&iacute;tulo</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td> <%letras = "0123456789ABCDEFGHIJKLMNOPQRSTUVXYZ"%> <%For i = 1 to 35%> <%="<a href=paginacao.asp?letra="&Mid(letras, i,1)&">"&Mid(letras, i,1)&"</a>&nbsp;"%> <%Next%> </td> </tr> <tr> <td>&nbsp;</td> </tr> <%While NOT RS.EOF%> <tr> <td><%=RS("nome")%></td> </tr> <%RS.MoveNext%> <%Wend%> </table> </body> </html>
Obs.: Salve este script como paginacao.asp para poder testa-lo!

[]´s DB! :twisted:
__________________
"Read the directions and directly you will be directed in the right direction."

http://www.dmbtecnologia.com.br
MaSCaRaDe está offline   Responder com Quote
Antigo 06-04-2004, 11:35   #3 (permalink)
MaSCaRaDe
Super Participante
 
Avatar de MaSCaRaDe
 
Registrado em: Feb 2003
Localização: Rio de Janeiro/RJ
Idade: 9
Mensagens: 950
Reputação: 284 MaSCaRaDe tem uma fabulosa reputaçãoMaSCaRaDe tem uma fabulosa reputaçãoMaSCaRaDe tem uma fabulosa reputaçãoMaSCaRaDe tem uma fabulosa reputaçãoMaSCaRaDe tem uma fabulosa reputaçãoMaSCaRaDe tem uma fabulosa reputaçãoMaSCaRaDe tem uma fabulosa reputaçãoMaSCaRaDe tem uma fabulosa reputaçãoMaSCaRaDe tem uma fabulosa reputaçãoMaSCaRaDe tem uma fabulosa reputaçãoMaSCaRaDe tem uma fabulosa reputação
Enviar mensagem via ICQ para MaSCaRaDe Enviar mensagem via MSN para MaSCaRaDe Enviar mensagem via Skype para MaSCaRaDe
Padrão

pearljam, eu dei uma melhorada neste código e pelo que me parece, eh exatamente o q vc keria... Ele funciona assim: lista todas as letras do alfabeto (c vc kiser adicionar os numeros eh soh colocar no FOR 1 to 35 e adicionar de 0 á 9 nas letras), caso exista uma próxima pagina de registro, ele adiciona na querystring a proxima pagina, caso não, ele apenas lista a primeira pagina de registro. Lembrando q o numero de registros por pagina vc controla na linha "const pags = 15". Qq duvida, postae!!

Código:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Set RS = Server.CreateObject("ADODB.RecordSet") Set Conn = Server.CreateObject("ADODB.Connection") conn.ConnectionString = "PROVIDER=MICROSOFT.JET.OLEDB.4.0; DATA SOURCE=" & Server.MapPath("banco/bd.mdb") & "" Conn.Open pagina = Request.QueryString("pagina") letra = Request.QueryString("letra") If letra = "" Then letra = "A" SQL = "Select * FROM categorias WHERE categoria LIKE 'A%' Order by categoria ASC" Else SQL = "Select * FROM categorias WHERE categoria LIKE '"&letra&"%' Order by categoria ASC" End If const results = 15 If pagina = "" then pagina = 1 End If On Error Resume Next RS.Open SQL, conexao, 3, 3 RS.pagesize = results RS.absolutepage = pagina %> <html> <head> <title>Documento sem t&iacute;tulo</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td> <%letras = "ABCDEFGHIJKLMNOPQRSTUVXYZ"%> <%ultima = RS.PageCount%> <%For i = 1 to 25%> <%If RS.RecordCount >= 15 AND letra = Mid(letras, i,1) THEN%> <%If Cint(pagina) >= ultima Then pagina = 0 End If%> <%="<a href=index.asp?letra="&Mid(letras, i,1)&"&pagina="&pagina+1&">"&Mid(letras, i,1)&"</a>&nbsp;"%> <%Else%> <%="<a href=index.asp?letra="&Mid(letras, i,1)&">"&Mid(letras, i,1)&"</a>&nbsp;"%> <%End If%> <%Next%> </td> </tr> <tr> <td>&nbsp;</td> </tr> <%While NOT RS.EOF%> <tr> <td><%=RS("nome")%></td> </tr> <%RS.MoveNext%> <%Wend%> </table> </body> </html>
[]´s DB! :twisted:
__________________
"Read the directions and directly you will be directed in the right direction."

http://www.dmbtecnologia.com.br
MaSCaRaDe está offline   Responder com Quote
Antigo 06-04-2004, 15:11   #4 (permalink)
pearljam
Membro Senior
 
Registrado em: Mar 2002
Mensagens: 254
Reputação: 21 pearljam está indo no caminho certo
Padrão

opa.... valeu mesmo .... o primeiro ja tinha dado certo
depois que adequei ele ao meu código ..... vou olhar
esse segundo tbem ...

valeu mesmo....... e abrassssss......

e em off.... se vc curte mesmo pearljam....
uma galera ai de sampa e do rio tem um site... não
sei se você conhece..... é o www.pearljambrasil.com
entra lá.... abrassssssss
__________________
Pearl Jam e System Of A Down... os melhores !
_______________________________________
ECS K7S5A / AMD Duron 1200 / Maxtor 20GB 7200 / Seagate 10GB 5200 / 128 SDRAM / Diamond Viper TNT AGP Video / WinXP PRO
pearljam está offline   Responder com Quote
Resposta


Opções do Tópico

Regras de Mensagens
Você não pode criar tópicos
Você não pode postar respostas
Você não pode anexar arquivos
Você não pode editar suas mensagens

Código vB está Ligado
Smiles estão Ligado
Código [IMG] está Ligado
Código HTML está Desligado
Ir para...


Horários baseados na GMT -3. Agora são 21:55.