Paging

Det er der da ikke meget ide i - hvad så hvis man ville se nr.6 ?

Hvis det er fordi det ser grimt ud, kunne du i stedet lade dem løbe igennem en dropdown menu?

Det er simpelthen fordi det ville alt for langt (rækken af tal) - jeg ville helst den kunne vise

Gå til side 1 2 >> ... << 15 16

eller noget i den stil

Jeg et at scritp som på google hvor dem vise +/- 10 fra den valgte side  hvis det var noget:

  3-4-5-6-7-8-9-10-11-12-13-14-15-16-17-18-19-20-21-22-23

Du kan natuligvis selv ændre antallet..

Ahh ok

ja - det lyder fint

Du må selv lige rette linket til at passe med filnavnet og evt andre QueryStrings. Jeg er nød til at løbe nu kommer tilbage igen senere:


visAntal = 10
intStart = intPage - visAntal
intSlut  = intPage + visAntal
if intStart <= 0 then intStart = 1
if intSlut > intPageCount then intSlut = intPageCount
For intNum = intStart To intSlut
  if CInt(intNum) = CInt(intPage) then
    Response.Write " <b>" & intNum & "</b> "
  else
    Response.Write "<a href=FILNAVN.ASP?intPage=" & intNum & "><b>" & intNum & "</b></a> "
  end if
Next

Hey... Paging røg desværre lidt i baggrunden ift. andre ting.

Det jeg egentligt ønsker er at den skriver:

1 ... 6 7 8 <<  >> 9 10

ok.. hvad er reglerne så for hvor mange der skal vises ? og hvor skal << og >> stå for nu har du vist 3 forskellige eks:

1 2 3 ... 15 16 17
1 2 >> ... << 15 16
1 ... 6 7 8 <<  >> 9 10

ha - ja ok! Jamen altså - det er vel i princippet ikke så vigtigt. Bare at hele rækken af tal ikke er der. Det kunne være som flg.:

1 ... 6 7 8 <<  >> 10

Sådan at start og slut altid blev vist, også eksempelvis 3 sider imellem.

ok jeg prøver at lave et  eks.

Det bliver noget mere kode for at regene ud hvilke 3 den skal vise.


visAntalImellem = 3 '
intStart = intPage - Int(visAntalImellem/2)
if intStart <= 1 then intStart = 2
intSlut  = intStart + visAntalImellem - 1
if intSlut >= intPageCount then
  if intStart > 1 then intStart = intStart - intSlut + intPageCount - 1
  if intStart <= 1 then intStart = 2
  intSlut = intPageCount-1
end if
'Vis førte side som link
intNum = 1
if CInt(intNum) = CInt(intPage) then
  Response.Write " <b>" & intNum & "</b> "
else
  Response.Write "<a href="&Request.servervariables("SCRIPT_NAME")&"?intPage=" & intNum & "><font face='arial' size='2'><b>" & intNum & "</b></font></a> "
end if
'Vis dem imellem
if (intNum + 1) < intStart then Response.Write "..."
For intNum = intStart To intSlut
  if CInt(intNum) = CInt(intPage) then
    Response.Write " <b>" & intNum & "</b> "
  else
'    Response.Write "<a href=paging.asp?page=" & intNum & "><font face='arial' size='2'><b>" & intNum & "</b></font></a> "
    Response.Write "<a href="&Request.servervariables("SCRIPT_NAME")&"?intPage=" & intNum & "><font face='arial' size='2'><b>" & intNum & "</b></font></a> "
  end if
Next
'Vis den sidste
intNum = intPageCount
if (intNum - 1) > intSlut then Response.Write "..."
if CInt(intNum) = CInt(intPage) then
  Response.Write " <b>" & intNum & "</b> "
else
  Response.Write "<a href="&Request.servervariables("SCRIPT_NAME")&"?intPage=" & intNum & "><font face='arial' size='2'><b>" & intNum & "</b></font></a> "
end if

Virker fint nok - men skifter ikke til side 2 når jeg klikker!  Skal jeg i øvrigt ændre "SCRIPT_NAME" eller "intPage" i url'en?

nå ok - bruger min egen query... intpage=page hos mig. Men hvad med "SCRIPT_NAME"?

Denne:  Request.servervariables("SCRIPT_NAME")  indsætter filnavnet på denm fil scriptet ligger i.
Du kan ændre det til filnavnet på den fil koden ligger i.

altså eksempelvis: Request.servervariables("noget.asp") ?