Pagingen skriver ut fel!

2 svar · 237 visningar · startad av tillmar 10 apr. 2003

tillmarMedlem sedan sep. 2002928 inlägg

Frågan10 apr. 2003 11:40#1

Har ett problem med min paging i mySQL mot asp....
Det är själva ut skrivinings funktionen som muppar sig
den skriver ibland ut en nästasida pil....när det inte finns nån nästa sida....och tvärt om

<%
Dim pageSize, Page, MinConn, pages
pageSize = 10 ' hur många inlägg per sida
page = request.querystring("page") ' vilken sida man är på
if page = "" then page = 1

Set MinConn = Server.CreateObject("Adodb.Connection")
MinConn.open = "driver=MySQL;server=localhost;uid=user;pwd=pass;database=db"
sql = "select count(*) from gastbok"
set rs = MinConn.execute(SQL)
pages = (rs(0)-1)/pageSize + 1

Sql = "Select * from gastbok order by datum desc limit " & (page-1)*pagesize & "," & pageSize

Set Rs = MinConn.Execute(SQL)
If rs.eof then
Response.Write("Inga inlägg skrivna")
else

Do While Not Rs.EOF%>

Skriver ut inläggen

utskrift funktionen

<%
rs.Movenext
Loop
Rs.Close
MinConn.close
Set MinConn = nothing
Set Rs = nothing

'för att visa en bakåt knapp
if  page \> 1 then
response.write "\<a href='?sida=gastbok&page=" & page - 1 & "'\> «&nbsp;&nbsp;\</a\>"
end if

'visa alla sidnummer
Dim a
FOR a = 1 to Pages
IF a \<\> cINT( Page ) THEN 
Response.Write "\<a href='?sida=gastbok&page="& a &"'\>"& a &"\</a\>"
ELSE 
Response.Write "&nbsp;\["& a & "\]&nbsp;"
end if
next

'en framåtknapp
if cINT( Page ) \< pages then
response.write "\<a href=?sida=gastbok&page=" & page + 1 & "\>&nbsp;&nbsp;» \</a\>"
end if
end if

'mitt slutar
%>

tillmarMedlem sedan sep. 2002928 inlägg

10 apr. 2003 17:15#2

äre ingen som vet:-(

LarsGMedlem sedan dec. 200012 464 inlägg

10 apr. 2003 18:10#3

Jag ser inget direkt. Ett sätt är att lägga in testutskrifter i koden så du ser vad som händer.

 'för att visa en bakåt knapp

if cint(page) > 1 then
response.write "Debug  «: Page = " & page & "<br>"
response.write "<a href='?sida=gastbok&page=" & page - 1 & "'> «  </a>"
end if

'visa alla sidnummer
Dim a
FOR a = 1 to Pages
IF a <> cINT( Page ) THEN
Response.Write "<a href='?sida=gastbok&page="& a &"'>"& a &"</a>"
ELSE
Response.Write " ["& a & "] "
end if
next

'en framåtknapp
if cINT( Page ) < pages then
response.write "Debug  »: Page = " & page & "<br>"
response.write "<a href=?sida=gastbok&page=" & page + 1 & ">  » </a>"
end if