Paginação ASP + MySQL

[bfraga 0]

Analizem esse código e me digam se posso melhorar, vamos montar juntos um código nesse sentido, pois não achei nenhum que use ASP e MySQL.

 

<%gString = "DRIVER=MySQL ODBC 3.51 Driver;DATABASE=blog;SERVER=localhost;UID=root;PASSWORD=;"	Set Conexao = Server.CreateObject("ADODB.Connection")	Set campo = Server.CreateObject("ADODB.RecordSet")	Set campo2 = Server.CreateObject("ADODB.RecordSet")	Conexao.connectionString = gString	Conexao.Opensql = "select * from fotos"sql2 = "SELECT COUNT(*) as ID FROM fotos"set contador = conexao.execute(sql2)limite = 4paginas = contador("ID") / limite'response.write paginas&"<br>"pagina = request.querystring("p")teste1 = 0teste2 = limiteif pagina > 1 Thenteste1 = pagina * limite - limite End Ifsql = sql & " limit "&teste1&", "&limite&""'response.write sql&"<br>"set campo = conexao.execute(sql)campo.movefirstwhile not campo.EOFresponse.write campo("foto")&"<br>"campo.MoveNextwend%><p>Páginas: <%  teste = 0    while teste < paginas    teste = teste + 1%><a href="teste.asp?p=<%=teste%>"><%=teste%></a><%    wend%><p>

[WebASP 0]

Segue o codigo abaixo da pagina de inf_artEuo esta paginação que eu mesmo o fi auhahuua

<% '' *************************** '' '' POR: MARCELO DOS SANTOS '' NÃO ALTERE O CODIGO '' '' *************************** Pagina = Split(Request.ServerVariables("SCRIPT_NAME"),"/")(UBound(Split(Request.ServerVariables("SCRIPT_NAME"),"/"))) IF Pagina <> "index.asp" THEN  Response.Write "<script>location.href='index.asp';</script>"  Response.End END IF%><div align="center">  <center><table width="410" cellspacing cellpadding>  <tr>    <td width="100%"><CENTER><IMG SRC="images/tp_inf_art.gif" HEIGHT="40" BORDER="0"></CENTER></td>  </tr>  <tr>    <td width="100%"><IMG HEIGHT="5" BORDER="0"></td>  </tr>  <tr>    <td width="100%">      <div align="center">        <center>        <table width="380" cellspacing cellpadding>          <tr>            <td width="100%">   <!-- TEXTO INICIO --><% idArt = OnlyNumbers(MakeOk(Request.QueryString("id"))) IF idArt <> "" THEN  strSQL = "SELECT * FROM home_artigos WHERE id = " & idArt & ";"  Set Rs = Conexao.Execute(strSQL)   IF Rs.BOF AND Rs.EOF THEN    js "location.href='index.asp?link=inf_art&t=" & codeSecurity & "';"   ELSE%> <p style="line-height: 140%"><font color="#768596" size=2><B> <% =Rs("Titulo") %></B></font><br> | <% =DataBrazil(Rs("DataCadastro"),"dd.mm.yyyy | hhh nn") %><br></p>          <% =Rs("Texto") %><br><br><IMG SRC="images/dot.gif" WIDTH="390" HEIGHT="8" BORDER="0" ALT=""><br><div align="center">  <center>  <table width="100%" cellspacing cellpadding>    <tr>      <td width="50%"><A HREF="java script:history.back();"><IMG SRC="images/ico_voltar.gif" WIDTH="48" HEIGHT="16" BORDER="0"></A></td>      <td width="50%" align="right"><A HREF="index.asp?link=inf_art&t=<% =codeSecurity %>" TITLE="Clique para ver todos os artigos"><IMG SRC="images/ico_maistextos.gif" WIDTH="80" HEIGHT="16" BORDER="0"></A></td>  </tr>  </table></div> <%   END IF  FechaRs(Rs) ELSE '' ********************************************************************************************    strSQL2 = "SELECT Sum(1) As Total FROM home_artigos;"  Set Rs2 = Conexao.Execute(strSQL2)   TotReg = Rs2("Total")  FechaRs(Rs2)  If TotReg = "" OR isNull(TotReg) Then TotReg = 0  TotRegPag = 40   IF TotReg < TotRegPag THEN    TotPag = 1   ELSE    TotPag = TotReg / TotRegPag    IF inStr(1,TotReg / TotRegPag,",") THEN TotPag = Split(TotPag,",")(0)+1   END IF  Pagina = OnlyNumbers(Cint(Request("p")))   IF Pagina = "" THEN Pagina = 1  Inicio = 0   IF Pagina > 1 THEN Inicio = (Pagina-1)*TotRegPag '' *************************************************************************** Response.Write "<p style=""line-height: 135%"">" strSQL = "SELECT id,Titulo,DataCadastro FROM home_artigos ORDER BY id ASC Limit " & Inicio & "," & TotRegPag & ";" Set Rs = Conexao.Execute(strSQL)  IF Not Rs.BOF AND Not Rs.EOF THEN   Do While Not Rs.EOF    Response.Write "| " & DataBrazil(Rs("DataCadastro"),"dd.mm.yy") & " | <A HREF=""index.asp?link=inf_art&id=" & Rs("id") & "&t=" & codeSecurity & """>" & Rs("Titulo") & "</A><br>"   Rs.Movenext   Loop  ELSE   Response.Write "<CENTER><br><br>Nenhum Artigo Cadastrado</CENTER>"  END IF FechaRs(Rs) Response.Write "</p>" '' *************************************************************************** IF TotPag > 1 THEN  If Pagina = "" OR Pagina = 0 Then Pagina = 1   IF Cint(Pagina) > 1 THEN Links = Links & "<a href=""index.asp?link=inf_art&p=" & Pagina-1 & "&t=" & codeSecurity & """><< Anterior | </a> "   IF (Pagina-1) > 0 THEN    FOR I = INT(Pagina-1) TO Pagina-1     Links = Links & "<a href=""index.asp?link=inf_art&p=" & I & "&t=" & codeSecurity & """>" & I & "</a> "    NEXT   END IF    Links = Links & "<a href='#'><B>" & Pagina & "</B></a>"   IF (Pagina+1) <= TotPag THEN    FOR I = Pagina+1 TO INT(Pagina+1)     Links = Links & " <a href=""index.asp?link=inf_art&p=" & I & "&t=" & codeSecurity & """>" & I & "</a>"    NEXT   END IF  IF Cint(Pagina) < Cint(TotPag) THEN Links = Links & " <a href=""index.asp?link=inf_art&p=" & Pagina+1 & "&t=" & codeSecurity & """> | Próximo >></a>"    Response.Write "<center>" & Links & "</center><hr color=""#FFFFFF"">" END IF '' *************************************************************************** END IF%>   <!-- TEXTO FIM -->   </td>          </tr>        </table>        </center>      </div>    </td>  </tr>  <tr>    <td width="100%"> </td>  </tr></table>  </center></div>

[bfraga 0]

é bemmais complicado que o meu, mas é para ASP e MySQL? o meu código, pelo que eu estava vendo é bem limpo e fácil de aplicar, o único problema do meu é que acessa o DB duas vezes, vou dar um jeito dele acessar apenas umas para ficar bem mais prático, esse seu deve ser legal, vou estudá-lo, onde está o povo que meche com MySQL?

[WebASP 0]

O meu acessa duas vezes para selecionar quanto registro tem na tabela e o outro para selecioanr os registrose no seu eu nao vi o proximo e anterior e o meu ja tem e e coisa simples de se aplicar e so por o code acima e o code do select e o rodape que tem os links e ja era acheo bem simples asp/mysql esta paginação e tudo

[bfraga 0]

próximo e anterior é uma lógica, basta aplicar: próxima = paginaatual+1 e anterior = paginaatual-1 e assim por diante.

[rodrigo.p 0]

<span style='font-size:8pt;line-height:100%'><%

Set Conexao=Server.CreateObject("ADODB.Connection")

conexao.open = "Driver=MySQL;user=meuuser;password=minhasenha;server=127.0.0.1;database=tes

t"

 

registros = 21 'Quantidade de registros

pagina = Request("pagina")

If pagina = "" Then

pagina = 1

End If

 

Set rs = Server.Createobject("ADODB.RECORDSET")

set rs.ActiveConnection = Conexao

rs.CursorType = 3

rs.PageSize = registros

if pagina = 1 then

sql = "Select * from QL_cadastro_cliente order by nome " 'Especifica o codigo sql :PP

else

sql = sql & " LIMIT "& (pagina * registros)-registros&" , "& pagina * registros

end if

rs.Open sql

 

While Not rs.EOF AND x < rs.PageSize

x = x + 1

 

'Inserir os campos a serem mostrados :)

%><%=rs("nome")%><br>

<%

 

rs.MoveNext

Wend

 

conexao.CursorLocation = 3

Set rs1 = Server.Createobject("ADODB.RECORDSET")

sql = "Select * from QL_cadastro_cliente"

rs1.Open sql, Conexao

 

anterior = pagina - 1

proxima = pagina + 1

ultima = FormatNumber(rs1.RecordCount/registros, 0)

primeira = 1

ultm2 = FormatNumber(rs1.RecordCount/registros, 0)

response.Write rs1.RecordCount/registros

 

If pagina <> 1 Then

Response.Write "<b>« <a href=?pagina="&primeira&">Primeira Página</a></b> "

End If

If pagina > 1 AND pagina <> 2 Then

Response.Write "<b>[ <a href=?pagina="&anterior - 1&">"&anterior - 1&"</a> ]</b> "

End If

If pagina > 1 Then

Response.Write "<b>[ <a href=?pagina="&anterior&">"&anterior&"</a> ]</b> "

End If

Response.Write "<b>[ "&pagina&" ]</b> "

If Not rs.EOF Then

Response.Write "<b>[ <a href=?pagina="&proxima&">"&proxima&"</a> ]</b> "

End If

If Not rs.EOF AND pagina <> ultima AND pagina <> ultm2 Then

Response.Write "<b>[ <a href=?pagina="&proxima + 1&">"&proxima + 1&"</a> ]</b> "

End If

If Not rs.EOF Then

Response.Write "<b><a href=?pagina="&ultima&">Última Página</a> »</b> "

End If

rs.Close

Set rs = Nothing

%>

</span>