Paginaçãp em Mysql

[Foxbh 0]

Alguem tem um exemplo de paginação em mysql pra mim ver como funciona ???

[Mário Monteiro 179]

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

[designmix 0]

cara estou fazendo... mais estou bom pau...

 

da uma olhada

 

 

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

 

 

t+

 

 

http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

[Mário Monteiro 179]

eh melhor usar LIMIT pra isso cara...

[Foxbh 0]

Consegui faser funfar a minha paginação em Mysql

 

 

ASP [/tr][tr]

<%

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

xgames.Open "driver=MySQL ODBC 3.51 Driver;DATABASE=xgames;SERVER=localhost;UID=marcos;PASSWORD=teste"

 

Const intPageSize=5

set rs=server.CreateObject("adodb.recordset")

xgames.CursorLocation=3 'AdUseClient

 

 

 

RS.Open "select * from lancamentos ",xgames

 

if RS.EOF then

%>

<p align="center">

<font size="2" face="Verdana">Ainda não existe nenhuma imóvel cadastrado na cidade de <b></B></font>

<%

else

%>

 

</p>

 

<table border="1" width="907">

<tr>

<td width="229" bgcolor="#00C6FD" align="center">

<font face="Verdana" size="2">Cidade</font></td>

<td width="292" bgcolor="#00C6FD" align="center">

<font face="Verdana" size="2">Endereço</font></td>

</tr>

<%

 

 

intCurrPage=cint(Request.QueryString("CurrPage"))

 

 

if intCurrPage=0 then intCurrPage=1

 

RS.PageSize=intPageSize

 

RS.AbsolutePage=intCurrPage

 

colorchanger = 0

color1 = ("#ffffff")

color2 = ("#ffffff")

 

a=0

while a < intPageSize and not RS.EOF

a=a+1

%>

<tr>

<td width="229" bgcolor="<%=color1%>"><font face="Verdana" size="2"><%=RS.Fields("nome")%></font></td>

<td width="292" bgcolor="<%=color2%>"><font face="Verdana" size="2"><%=RS.Fields("nome")%></font></td>

</tr>

 

 

<%

RS.MoveNext

 

If colorchanger = 1 Then

colorchanger = 0

color1 = ("#ffffff")

color2 = ("#ffffff")

Else

colorchanger = 1

color1 = ("#DCF1FC")

color2 = ("#DCF1FC")

End If

 

 

 

wend

 

 

%>

<tr>

<td colspan="2">

 

<p align="center"><font size="2" face="Verdana">Pagina</font><b><font size="2" face="Verdana">

<%

cid = Request.Querystring("cidade")

 

for a = 1 to RS.PageCount

if a <> intCurrPage then

 

Response.Write "<a href=""?cidade="&cid&"&Currpage=" & a & """>" & a & "</a> "

else

Response.Write a & " "

end if

next

Response.Write ""

if intCurrPage > 1 then

 

'Response.Write "<a href=""?cidade="&cid&"&Currpage=" & intCurrPage-1 & """>Página Anterior</a>"

end if

Response.Write " "

if intCurrPage < RS.PageCount then

 

'Response.Write "<a href=""?cidade="&cid&"&Currpage=" & intCurrPage+1 & """>Próxima Página</a>"

end if

RS.Close

xgames.Close

set rs=nothing

set xgames=nothing

end if

 

%>

[/tr]