Paginação de resultados igual do google

[Carlos Moreira 0]

Ola galera td bem?

O Lucas me passou esse código, excelente por sinal, funcionou redondinho, mas só há um porem ele nao tem (avançar pagina, voltar página), só lista (próximas paginas), alguem saberia como faço para colocar próxima pagina?

 

o endereço é esse

http://forum.imasters.com.br/index.php?showtopic=17223

 

obrigado desde já

[RCM 0]

segue o código:Eu encontrei ele aqui no Imasters!<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><%PagAtual = Request.QueryString("PagAtual") 'página atualSet Conn = Server.CreateObject("ADODB.Connection") Conn.provider ="Microsoft.Jet.OLEDB.4.0" Conn.connectionstring=Server.Mappath("\popular\st_novo\bd\dados.mdb")Conn.openSet objRS = Server.CreateObject("ADODB.Recordset") 'acrescentei por causa da paginaçãoSQL = "SELECT * FROM tb_not"objRS.Open SQL, conn, 3'############## paginacao Introdução #################'------- Coloque aqui a quantidade de registros que você deseja por página --------Const NumPorPage = 3'Verifica qual a página solicitada Dim PagAtual IF Request.QueryString("PagAtual") = "" Then PagAtual = 1 'Primeira página Else PagAtual = Request.QueryString("PagAtual") End If objRS.CacheSize = NumPorPage 'Define o tamanho do Cache = para o número de registros objRS.MoveFirst 'Move o RecorSet para o início objRS.PageSize = NumPorPage 'Coloca a quantidade de páginas Dim TotalPages 'Pega o número total de páginas TotalPages = objRS.PageCount objRS.AbsolutePage = PagAtual 'Configura a página atual'############## paginacao Introdução - FIM #################Count = 0 'Zera o contadori = 0 DO WHILE NOT objRS.EOF And Count < objRS.PageSize%> <b><%= objRS.Fields("titulo") %></b><br><%i = i+1Count = Count + 1 objRS.MoveNextLOOP '################## paginacao 01 ##################### 'Coloca o Nº página atual / Nº Total de páginas Response.Write("<B><font color=""#006600"" size=""2"" face=""Arial""><strong> Página " & PagAtual & " de " & TotalPages & " </strong></font></B> - ") 'Mostra os botões: Anterior e Próxima, utilizando da opção de IF IF PagAtual > 1 THEN 'Se for a primeira página, Mostra apenas o botão Próximo e Ultima Response.Write("<B><font color=""#660066"" size=""1"" face=""Arial"">") Response.Write("<a href='jogos.asp?PagAtual=" & 1 & "'>") Response.Write("Primeira") Response.Write("</a></font></B> ") Response.Write("<B><font color=""#660066"" size=""1"" face=""Arial"">") Response.Write("<a href='jogos.asp?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 = 3intervalo = 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 = TotalPagesFor i = inicio To final If CInt(i)=CInt(PagAtual) Then Response.Write "<font color=""#660066"" size=""1"" face=""Arial"">[ <B>" & i & "</B> <font color=""#660066"">]</font> " END IF If CInt(i) < CInt(PagAtual) Then Response.Write "<a href='jogos.asp?PagAtual=" & i & "'>" & i & "</a> " END IF If CInt(i) > CInt(PagAtual) Then Response.Write "<a href='jogos.asp?PagAtual=" & i & "'>" & i & "</a> " END IFNext'------------------------------------------------------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='jogos.asp?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='jogos.asp?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 '################## fim paginacao 01 ########################%>