Del kagen!

Paging hedder det med fagsprog og hvis du søger her på eksperten eller på www.activeserverpages.dk
finder du helt sikkert noget.

Ares

prøv med noget i stil med

intPage = Request(\"page\")
If isNumeric(intPage) = False Or intPage < 1 Then
  intPage = 1
End If

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

StrComment = rs(\"kommentar\")

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 & \">&lt;&lt;</a>\"
Else
  Response.Write \"&lt;&lt;\"
End If

Response.Write \"&nbsp;\"

If Clng(intPage) < Clng(intPageCount) Then
  Response.Write \"<a href=paging.asp?page=\" & intPage + 1 & \">&gt;&gt;</a> \"
Else
  Response.Write \"&gt;&gt;\"
End If


Ares

Sørg for at angivelserne kommer med fra side til side fx i URL\'en.

http://www.site.dk/vis.asp?start=0&antal=20

Så henter du dem bare i din SQLstreng:

SQL=\"SELECT * FROM data WHERE ID>\"&request(\'start\')&\" AND ID<\"&request(\'start\') & request(\'antal\')

startnext = request(\"start\")+request(\"antal\")

Så trækker du dem ellers ud som normalt, og på dit \"næste\"-link skriver du fx.

<a href=\"vis.asp <%=\'?start=\' & startnext & \'&antal=\' & request(\'antal\')%>\">NÆSTE</a>

Jeg har ikke testet det, håber du kan se systemet.

/Andreas

Vandh>>> Hvad nu hvis man så sletter posterne med id 21,22,23,24,25,26
og så bruger
vis.asp?start=20&antal=10
Så får man kun 3-5 poster, istedet for de 10 ??

NEJ! paging på den måde er den sygeste LORTEløsning det der sker er at du hiver alle records ud, derefter alle-20, så alle-40 og så fremdeles..

ISTEDET:

Brug SELECT TOP..

Jeg gjorde det samme på tomsnak..
serveren var ulideligt langsom.. efter jeg gjorde det er der kommet knald på igen.. såeh..

Hvis du ønsker jeg skal uddbyde vil jeg MEGET gerne. men ikke lige nu

Hey allesemmen !
Jeg har stadig ikke fået lært Paging...

Smurfen > Du må meget gerne uddybe..når du får tid :)

Jeg er også villig til at satse flere point,
for at få et eksempel der virker...
Så kan studere det og så lære funktionen..

Merry coding and a happy script

Boot

Så er der 150 point istedet for 60......

og databasen er en access ik....hmmm.....?

Yepper....

ok
nu kommer det til at gå meget hurtigt :)

intTopNumber = Request.QueryString(\"intTopNumber\")
intRecordNumber = Request.QueryString(\"intRecordNumber\")

If intRecordNumber = \"\" Or intRecordNumber < 0 Then
    intRecordNumber = 0
End If
If intTopnumber = \"\" Or intTopnumber < 0 Then
    intTopNumber = 20
End If
strSQL =    \"SELECT TOP \" & intTopnumber &_
            \" * \" &_
            \" FROM tblObjectAll\"
           
Set objRS = objConn.Execute(strSQL)

\'flytter til den record vi forlod
objRS.Move(intRecordNumber)
Do Until objRS.EOF
    \'udskriv record
    intRecordNumber = intRecordNumber + 1
    objRS.MoveNext   
Loop

If intTopNumber <> 20 Then \'hvis vi ikke er på første side..
    \' link til samme side, tilbage i recordsættet
    \'med querystring
    \'intRecordNumber=\" & intRecordNumber-40 & \"&intTopNumber=\" & intTopNumber-20
End If

\'Man kunne eventuelt lave noget her hvor man sammenligner antallet af intRecordnumber
\'med antallet af records.. og hvis intRecordnumber er højere udskriver man ikke næste knap               

\'link til samme side, frem i recordsættet           
\'med dette i querystring
\'&intRecordNumber=\" & intRecordNumber & \"&intTopNumber=\" & intTopNumber+20

objRS.Close
Set objRS = Nothing

\'dette er meget teoretisk, men jeg har haft
\'det kørende.. det er noget jeg har sakset
\'ud af en fil..
\'så hvis det ikke virker
\'så send mig lige et parliner.. :)

Så lukker vi