Paging

Halloj

Kör idag en väldigt enkel paging-lösning i mitt egenhändigt ihopsnickrade diskussionsforum. Det delar helt enkelt upp en lång tråd i flera sidor. Problemet är bara att vissa trådar är vääääääldigt långa, vilket gör att jag får en herrans massa länkar till alla trådens sidor.

Jag skulle nu vilja göra pagingen lite mer avancerad, så att den listar de fem föregående sidorna, samt de fem nästkommande, baserat på vilken sida man står på för tillfället. Ungefär så här:

...23, 24, 25, 26, 27 [28 (den aktiva sidan)] 29, 30, 31, 32, 33...

Hur gör jag detta på enklast sätt?

iPageHigh = cInt(page) + 5
if iPageHigh > pagecount then
iPageHigh = pagecount
end if

if pagecount > 11 then
if iPageHigh < 11 then
iPageHigh =  11
end if
else
iPageHigh = pagecount
end if

iPageLow = cInt(page) - 5

if iPageLow < 1 then
iPageLow = 1
end if