30. maj 2005 - 17:57Der er
8 kommentarer og 1 løsning
Problemer med paging
Hi,
Har et problem med min paging. når den er sat til 10 post per side, begynder den allerede at lave en tom side, efter 5 post, og side nummer 2 er så tom indtil der er over 10 post. Hvorfor det?
pagenumber = request.querystring("pagenumber") if pagenumber = "" then pagenumber = "1" end if SQL = "SELECT COUNT(*) as count FROM messageboard" set RS = conn.execute(SQL) antal_beskeder = RS("count") response.write("Beskeder: " &"<b>"& antal_beskeder &" <br></b>") antal_beskeder_pr_side = 10 rest = cint(cint(antal_beskeder) Mod cint(antal_beskeder_pr_side)) antal_sider = round(cint(antal_beskeder)/cint(antal_beskeder_pr_side)) if rest > 0 then antal_sider = antal_sider + 1 end if Response.Write "Side: " if antal_sider = 0 then Response.Write " [" & "<b>" & 1 &"</b>" & "] " end if For i = 1 To antal_sider If i&"" = pagenumber Then Response.Write " [" & "<b>" & i &"</b>" & "] " Else Response.Write "<a href=?page=1&pagenumber=" & i & ">" & i & "</a> " end If Next
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Do While Not RS.EOF and not i = PageSize 'Her skriver du ut datene du skal ha ut fra databasen. RS.MoveNext Loop %> <table width="640" ID="Table3" border="0" cellspacing="0" cellpadding="0"> <tr> <td class="xptextrap" align="middle" height="30"> <% If ShowPage > 1 Then Response.Write "<a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?Showpage=" & Showpage - 1 & """> Tilbake</a> - " Else Response.Write "<font color=silver>Tilbake</font> - " End If
for k=1 to NumOfPages if k=ShowPage then Response.Write("<font color=silver>" & k & "</font>") else %> <a href="<%=Request.ServerVariables("SCRIPT_NAME")%>?ShowPage=<%=k%>"><%=k%></a> <% end if Next
If CInt(NumOfPages) <> CInt(ShowPage) Then Response.Write " - <a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?Showpage=" & Showpage + 1 & """>Neste</a>" Else Response.Write " - <font color=silver>Neste</font> " End If %> </td> </tr> </table> <% End if %>
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.