Ir para conteúdo

POWERED BY:

Arquivado

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

Ghean

Exibição em Alfabética + Paginação

Por , em ASP Clássico

Recommended Posts

Ghean    0

Ghean
Postado

Boa tarde pessoal.

 

Esse é meu primeiro post no Laboratório, espero que possa ajudar alguém.

 

Descrição: Seleciona uma letra e terá os resultados, após um certo número de registros é feita uma pginação.

 

Ultilizei a paginação postada pelo nosso amigo AlexCT.

 

paginacao.asp

<html><head><title> Paginação </title><style type="text/css">	body, td {font: 11px Tahoma; color: black;}	A:link {font: 11px Tahoma; color: black; text-decoration: none;}	A:hover {font: 11px Tahoma; color: #FF9900; text-decoration: none;}	A:visited {font: 11px Tahoma; color: black; text-decoration: none;}</style></head><body><%PagAtual = Request.QueryString("PagAtual")letra = Request.QueryString("Letra")letras = "#0123456789ABCDEFGHIJKLMNOPQRSTUVXYZ"Set Conn= server.createobject("adodb.connection")DSNtest = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=e:\banco.mdb"Conn.Open DSNtestSet RS= Server.CreateObject("ADODB.Recordset") If letra = "" Then 	letra = "A" 	SQL = "SELECT * FROM Produtos WHERE Nome LIKE 'A%' Order by Nome ASC" Else If letra = "Todas" Then 		SQL = "SELECT * FROM Produtos Order by Nome ASC" 	Else		SQL = "SELECT * FROM Produtos WHERE Nome LIKE '"&letra&"%' Order by Nome ASC" 	End ifEnd If  RS.Open SQL, conn, 3If RS.EOF Then 	Response.write("<table cellpadding=""5"" width=""600"">")	Response.write("<tr><td align=""center"">")	For i = 1 to 36 		Response.write("<a href=paginacao.asp?letra="&Replace(Mid(letras, i,1),"#", "Todas")&"><b>"&Replace(Mid(letras, i,1),"#", "Todas")&"</b></a>  ") 	Next	Response.write("<br><br><table cellpadding=""5"" width=""600"">")	Response.write("<tr><td bgcolor=""#F0F0F0"">Nenhum registro encontrado!</td></tr>")	Response.write("</table>")	Response.write("</td></tr></table>")	Else	Const NumPorPage = 20   Dim PagAtual   IF Request.QueryString("PagAtual") = "" Then			   PagAtual = 1		 Else				PagAtual = Request.QueryString("PagAtual")   End If   RS.CacheSize = NumPorPage 	RS.MoveFirst					RS.PageSize = NumPorPage   	Dim TotalPages			  	TotalPages = RS.PageCount	RS.AbsolutePage = PagAtual Count = 0  Response.write("<table cellpadding=""5"" width=""600"">")Response.write("<tr><td align=""center"">")i = 0 For i = 1 to 36   Response.write("<a href=paginacao.asp?letra="&Replace(Mid(letras, i,1),"#", "Todas")&"><b>"&Replace(Mid(letras, i,1),"#", "Todas")&"</b></a>  ") Next	Response.write("<br><br><table cellpadding=""5"" width=""600"">")Do While Not RS.EOF And Count < RS.PageSize 	if i mod 2<>0 then		cor = "#F0F0F0"	else		cor = "#E8E8E8"	end if %> <tr style="cursor: hand;">	<td bgcolor="<%=cor%>" onmouseover="java script:this.style.backgroundColor='#FFECEC';" onmouseout="java script:this.style.backgroundColor='<%=cor%>';"><%=RS("Nome")%></td></tr><%	i = i+1	Count = Count + 1  	RS.MoveNext Loop			   response.write("</table><br>") Response.Write("<B>Página " & PagAtual & " de " & TotalPages & " </B> - ")   If PagAtual > 1 Then 	Response.Write("<B>") 	Response.Write("<a href='paginacao.asp?PagAtual=" &  1 & "&Letra="&letra&"'>")	Response.Write("Primeira") 	Response.Write("</a></B> ")	  	Response.Write("<B>") 	Response.Write("<a href='paginacao.asp?PagAtual=" & PagAtual - 1 & "&Letra="&letra&"'>")	Response.Write("Anterior") 	Response.Write("</a></B>  ")Else 	Response.Write("Primeira ") 	Response.Write("Anterior  ") End Ifmax_n_mostrados = 9intervalo = Int(max_n_mostrados /2)inicio = PagAtual - intervalofinal = PagAtual + intervaloIf CInt(inicio) <1 Then 	inicio = 1	final = 10End IfIf CInt(final) > CInt(TotalPages) Then final = TotalPages	For i = inicio To final		If CInt(i)=CInt(PagAtual) Then			Response.Write "<B>" & i & "</B>  "		End If		If CInt(i) < CInt(PagAtual) Then			Response.Write "<a href='paginacao.asp?PagAtual=" & i & "&Letra="&letra&"'>" & i & "</a>  "		End If		If CInt(i) > CInt(PagAtual) Then			Response.Write "<a href='paginacao.asp?PagAtual=" & i & "&Letra="&letra&"'>" & i & "</a>  "		End If	Next	If CInt(PagAtual) <> CInt(TotalPages) Then		Response.Write("  <B>")		Response.Write("<a href='paginacao.asp?PagAtual=" & PagAtual + 1 & "&Letra="&letra&"'>")		Response.Write("Próxima")		Response.Write("</a></B>") 		Response.Write(" <B>")		Response.Write("<a href='paginacao.asp?PagAtual=" & TotalPages & "&Letra="&letra&"'>")		Response.Write("Ultima")		Response.Write("</a></B>")			Else		Response.Write("  Próxima") 		Response.Write(" Ultima")	End If End IfResponse.write("</td></tr></table>")Rs.Close  Set RS = NothingConn.Close	  Set Conn = Nothing	      %> </body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

SilvaExtreme    0

SilvaExtreme
Postado

Legal sus paginação Cara!Isso aê vai ficar bem melhor na minha lista telefonica que aqui no forum.Valeuzão!!!! Vou fazer algo legal com ela e diponibilizar pra moçada.Abraços!!

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