paginação em ASP... por ordem alfabética

pearljam · 05-04-2004, 17:54

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

MaSCaRaDe · 05-04-2004, 22:52

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:

MaSCaRaDe · 06-04-2004, 11:35

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:

pearljam · 06-04-2004, 15:11

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

06-04-2004, 15:11	#4 (permalink)
pearljam Membro Senior Registrado em: Mar 2002 Mensagens: 254 Reputação: 21	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

		FórumGdH > Profissional > Programação, scripts, web e banco de dados
paginação em ASP... por ordem alfabética

1. Paginação numérica
Mais resultados? Use nossa pesquisa.

Opções do Tópico
Exibir Versão para Impressão Envie essa página por e-mail