Busca

MidiaPlayer · Outubro 25, 2003

roberio · Outubro 26, 2003

'Segue exemplo simples de paginação. 'Acredito que com este exemplo você vai entender paginacao.<% 'Efetuando a conexão com a base de dados criada -----------------------Set Conn = Server.CreateObject("AdoDb.Connection") Conn.provider="Microsoft.Jet.OLEDB.4.0" Conn.connectionstring=Server.Mappath("db/clientes.mdb") Conn.open '--------------------------------------------------------------------------'Vamos criar o objeto Record Set -> neste caso é necessário declará-lo,'pois vamos utilizar algumas funções deste objeto Set RS = Server.CreateObject("adodb.recordset")RS.PageSize = 100 'quantidade de registros por página. Você pode alterar sem conforme precise.'Vamos fazer a busca na tabela contatosSQL = "select * from contatos" RS.Open SQL,Conn,3,3'Vamos agora verificar exceções do tipo "fim de arquivo" (EOF), se a página atual é menor 'que zero, se é maior que o número total de páginas, etc.IF RS.EOF then Response.Write "nenhum registro encontrado"Response.End 'paramos o programaELSE'Definindo em qual pagina o visitante estáIF Request.QueryString("pagina")="" then intpagina=1 ELSEIF cint(Request.QueryString("pagina"))<1 thenintpagina=1 ELSEIF cint(Request.QueryString("pagina"))> RS.PageCount then intpagina=RS.PageCount ELSEintpagina=Request.QueryString("pagina")END IFEND IFEND IFEND IF'Fim das verificações de exceções'Usamos a propriedade AbsolutePage para dizer ao RS que página ele esta RS.AbsolutePage=intpagina' Inicia o contador que vai controlar os registros mostradosintrec=0'Enquanto o contador for menor que a quantidade de registros mostrados ou' não for o final do arquivo While intrec < RS.PageSize and not RS.EOF '------------------- AQUI VEM TUDO O QUE SEÁ PAGINADO -----------------------response.write RS("nome") & " - " & RS("telefone") & " - " & RS("email") & "<BR>"'---------------------------------------------------------------------------------------------RS.MoveNext' Acrescenta +1 ao contadorintrec=intrec+1 'Se for EOF (fim de arquivo), imprimir branco na telaIF RS.EOF then response.write " " END IFWend 'fim do loop'Vamos verificar se não é a página 1, para podermos colocar o link "anterior". IF intpagina > 1 then %> <a href="paginacao.asp?pagina=<%=intpagina-1%>">Anterior</a> <% END IF'Se não estivermos no último registro contado, então é mostrado o link p/ a próxima página IF strcomp(intpagina,RS.PageCount) <> 0 then %> <a href="paginacao.asp?pagina=<%=intpagina + 1%>">Próxima</a> <% END IF%>'valeu?

crazybaby · Outubro 26, 2003

aki você esqueceu de concluir a ordenação

<%

letra = request.querystring("letra")

Sql = "Select * From midi_int order by cantor where letra = "& letra & ""

set Rs = Conexao.Execute(sql)

%>

você deveria usar o order by campo desc

ou

order by campo asc

flow

Entrar

Arquivado

Busca

Recommended Posts

MidiaPlayer 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

roberio 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

crazybaby 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante