Ir para conteúdo

POWERED BY:

Arquivado

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

marvi

páginação em ordem alfabética

Por , em ASP Clássico

Recommended Posts

marvi    0

marvi
Postado

Pessoal, como faça paginação com abecedário? Uso o banco SQL Server 2000.

 

O código abaixo faz paginação usando o "próximo e voltar", mas queria que você com o alfabeto, tipo: A, B, C... e se a pessoa clica em A aparece a lista com inicias A

 

Como faz?

 

<% 
Set rsbusca = server.CreateObject("ADODB.RecordSet")
rsbusca.CursorLocation = 3

sql = "SELECT * FROM noticias order by datar desc, codigo desc"


rsbusca.PageSize = 24

IF rsbusca.EOF then 
Response.Write "nenhum registro encontrado. <a href=""index.asp"">CLique aqui para voltar</a>"
Response.End 'paramos o programa
ELSE
IF Request.QueryString("pagina")="" then 
intpagina=1 
ELSE
IF cint(Request.QueryString("pagina"))<1 then
intpagina=1 
ELSE
IF cint(Request.QueryString("pagina"))> rsbusca.PageCount then 
intpagina=rsbusca.PageCount 
ELSE
intpagina=Request.QueryString("pagina")
END IF
END IF
END IF
END IF

rsbusca.AbsolutePage=intpagina

intrec=0

%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

Basicamente colocará a informação da letra inicial na query

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

Olá Marvi....

 

olha este exemplo

<%@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í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> "%>
	<%Next%>	
	</td>
  </tr>
  <tr> 
    <td> </td>
  </tr>

<%While NOT RS.EOF%>
  <tr>
    <td><%=RS("nome")%></td>
  </tr>
<%RS.MoveNext%>
<%Wend%>
</table>
</body>
</html>

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