Paginação estilo google

[~Thiago Lara 0]

Galera, to com um site que já tem 813 noticias e a paginação já está ficando desigual e bastante "feia", perdendo os padrões do layout e enchendo muito a página até o número 82....

 

deem uma olhada http://www.reginaldolopes.com.br/?pagina=busca

 

Alguem tem idéia de como faz aquele estilo de paginação tipo o google que vai até o 10 ai quando você ta no 10 mostra do 10 ao 20.. etc... ?

 

Abraços

[Netrix 0]

Aqui um tópico que falar sobre paginação, bem simples, espero que ajuder.

 

http://forum.imasters.com.br/index.php?showtopic=192785 ^_^

[~Thiago Lara 0]

Cara lê o post primeiro.

E segundo estou programando em ASP e não PHP... ¬¬''

[Patrique 0]

Relaxa Thiago, acho que o cara se confundiu acontece!

 

Segue abaixo, uma paginação em asp estilo google

 

<%

pg = HTTP_REFERER 'pega o nome completo da página



Set rs = Server.CreateObject("adodb.recordset")
rs.CursorLocation = 3
rs.CursorType = 0
rs.LockType = 1
sql = "SELECT * FROM TABELA" 
rs.Open sql,conn


Const NumPorPage = 15 'Numero de registros por página

Dim PagAtual

IF Request.QueryString("PagAtual") = "" Then
PagAtual = 1 'Primeira página
Else
PagAtual = Request.QueryString("PagAtual")
End If

rs.CacheSize = NumPorPage 'Define o tamanho do Cache = para o número de registros

rs.MoveFirst 'Move o RecorSet para o início 
rs.PageSize = NumPorPage 'Coloca a quantidade de páginas

Dim TotalPages 'Pega o número total de páginas
TotalPages = rs.PageCount

rs.AbsolutePage = PagAtual  'Configura a página atual
Count = 0 'Zera o contador
DO WHILE NOT RS.EOF And Count < RS.PageSize 



response.write(" dados da tabela."





Count = Count + 1 
rs.MoveNext
LOOP

Response.Write("<B><strong> Página " & PagAtual & " de " & TotalPages & " </strong></B> - ") 
IF PagAtual > 1 THEN 

Response.Write("<B><font color=""#660066"" size=""1"" face=""Arial"">") 
Response.Write("<a href='"& pg &"?PagAtual=" & 1 & "'>")
Response.Write("Primeira") 
Response.Write("</a></font></B> ")

Response.Write("<B><font color=""#660066"" size=""1"" face=""Arial"">") 
Response.Write("<a href='"& pg &"?PagAtual=" & PagAtual - 1 & "'>")
Response.Write("Anterior") 
Response.Write("</a></font></B> ")

Else

Response.Write("<B><font color=""#EEEEEE"" size=""1"" face=""Arial"">") 
Response.Write("Primeira") 
Response.Write("</font></B> ")

Response.Write("<B><font color=""#CCCCCC"" size=""1"" face=""Arial"">") 
Response.Write("Anterior") 
Response.Write("</font></B> ")


End If

'------------------- numero -------------------------
'---------- Numero de numeros para ser mostrados ----
max_n_mostrados = 15

intervalo = Int(max_n_mostrados /2)
inicio = PagAtual - intervalo
final = PagAtual + intervalo

If CInt(inicio) <1 Then 
inicio = 1
final = max_n_mostrados
END IF
If CInt(final) > CInt(TotalPages) Then final = TotalPages

For i = inicio To final
If CInt(i)=CInt(PagAtual) Then
Response.Write "<font color=""#660066"" size=""1"" face=""Arial"">[ <B>" & i & "</B>]</font> "
END IF
If CInt(i) < CInt(PagAtual) Then
Response.Write "<a href='"& pg &"?PagAtual=" & i & "'>" & i & "</a> "
END IF
If CInt(i) > CInt(PagAtual) Then
Response.Write "<a href='"& pg &"?PagAtual=" & i & "'>" & i & "</a> "
END IF
Next

'------------------------------------------------------

IF CInt(PagAtual) <> CInt(TotalPages) THEN 

'Se estiver na Última página, mostra apenas o botão Anterior e Primeira

Response.Write("<B><font color=""#660066"" size=""1"" face=""Arial"">")
Response.Write("<a href='"& pg &"?PagAtual=" & PagAtual + 1 & "'>")
Response.Write("Próxima")
Response.Write("</a></font></B> ") 

Response.Write("<B><font color=""#660066"" size=""1"" face=""Arial"">")
Response.Write("<a href='"& pg &"?PagAtual=" & TotalPages & "'>")
Response.Write("Ultima")
Response.Write("</a></font></B> ") 

Else
Response.Write("<B><font color=""#CCCCCC"" size=""1"" face=""Arial"">")
Response.Write("Próxima") 
Response.Write("</font></B> ")

Response.Write("<B><font color=""#EEEEEE"" size=""1"" face=""Arial"">")
Response.Write("Ultima") 
Response.Write("</font></B> ")
End If

[]'s

[hargon 64]

Vamos ter mais atenção "pessoal"... sugestão de códigos em PHP no Fórum de PHP.

 

Aqui é Fórum sobre ASP.

[xanburzum 169]

Não sei se esta paginação tem aquela função de realçar as palavras procuradas, mas abaixo vai, fica leagl, tb

<%

Function highlightQuery(searchResult)

Dim searchQueryLength, startPosition, querySectionToReplace, highlightQueryTemp, SearchWordsCount

highlightQueryTemp = searchResult

SearchWordsCount = Ubound(SEARCH_WORDS_ARRAY)
For c=0 to SearchWordsCount
	searchQueryLength = Len(SEARCH_WORDS_ARRAY(c))
	startPosition = Instr(1,highlightQueryTemp,SEARCH_WORDS_ARRAY(c),1)
	If startPosition >= 1 then
	querySectionToReplace = Mid(highlightQueryTemp,startPosition,searchQueryLength)
	highlightQueryTemp = Replace(highlightQueryTemp,querySectionToReplace,"<span class='highlight'>" & querySectionToReplace & "</span>",1)
	End If
Next
highlightQuery = highlightQueryTemp

End Function

%>

[Salgado 4]

Não sei se esta paginação tem aquela função de realçar as palavras procuradas, mas abaixo vai, fica leagl, tb

Palavras procuradas em Paginação?

 

xanburzum, conhecimento (e um monte de códigos) você tem, mas se atente as perguntas, assim ajuda a suas respostas serem mais claras.

 

No tópico pendurado Duvidas Freqüentes e no nosso Laboratório de Scripts temos exemplos de paginação, inclusive um limitando a quantidade de links para as páginas.