Paging 5, 10, 15.
Hej Eksperter!Så er den gal igen ;-)
Jeg sidder lige og roder med en paging side som ser sådanne ud:
<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("demo.mdb")
Conn.Open DSN
strSQL = "SELECT LinkURL FROM Links"
rs.Open strSQL, Conn,1
If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 10
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"
Do While Not rs.EOF And intRecCount > 0
Response.Write rs("LinkURL") & "<br>"
intRecCount = intRecCount - 1
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing
Response.Write "<p>Gå til side "
For intNum = 1 To intPageCount
Response.Write "<a href=paging.asp?page=" & intNum & ">" & intNum & "</a> "
Next
Response.Write "<p>"
If Clng(intPage) > 1 Then
Response.Write "<a href=paging.asp?page=" & intPage - 1 & "><<</a>"
Else
Response.Write "<<"
End If
Response.Write " "
If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=paging.asp?page=" & intPage + 1 & ">>></a> "
Else
Response.Write ">>"
End If
%>
Nu er mine spørgsmål så:
1. Når jeg kommer op på x antal id'er vokser
"Gå til side 1 2 3 4 5 6 7 8 osv..." Hvad skal koden hede for at der kun bliver vist fx 5 sider af gangen.
"<< Gå til side 105 106 107 108 109 110 >>"
2. Hvordan får man vendt række følgen. Så den starter fra "Gå til side 110 109 108 107 106 105 >>"
Håber det er forståeligt.
