95 svar · 786 visningar · startad av PatrikB
Har lagt upp ett paging script som även funkar på chilliASP =O)
http://script.webforum.nu/wf/Forum1/HTML/000063.html
Några frågor?
bara att posta 
cya,
PatrikB
Innehåller en ASP fil + en Access 200 databas fil
Hm, ursäkta, men kunde du inte använt en lite modernare databas? 
Nej, ärligt. Hoppas folk hittar till ditt script och slipper fråga samma sak om och om igen här istället 
Good Work!
Tack patrikb
wunderbar !
Vad är ett Paging script? 
Ett script som delar upp ett recordsets poster på flera sidor...
Det var ju inget. Det har jag ju löst (nästan) hel själv.
Men Erik, inte kan du väl förutsätta att folk ska tänka själva?!
gastbok
=======
* id - Räknare
namn - Text(50)
datum - Datum/Tid
Detta är bara för test och se hur själva pagingen funkar.
cya,
PatrikB
gött putte!
Väldigt bra paging-script du lagt ut Patrik...jag märkte dock att det blir ett felmeddelande om det inte finns några poster.
Detta felmeddelande får jag:
Microsoft VBScript runtime error '800a0009'
Subscript out of range: 'UBound'
Och raden som felet är på är:
'## -- hur många inlägg finns det --
intTotalRecords = UBound(varPageIds) + 1
Hur får jag bort detta felmeddelandet?
Jag får ett annat fel.
Jag vill bara visa en post per sida och har satt "intPageSize = 1" men det funkar bara ibland.. nyss hade jag två inlägg... då funkade det.. men så la jag till ett 3:e och då skrev den ut fyra sidor.. går man in på sida 4:a så får ma felmeddelande:
Körningsfel i Microsoft VBScript (0x800A0009)
Felaktigt matrisindex: 'm_intStart'
/wwwroot/pageing.asp, line 54
och det är här:
Function getStartID(ByVal ArrayOfAllIDs, ByVal PageSize, ByVal ViewPage) ' As Integer
Dim m_intStart
m_intStart = ((PageSize * ViewPage) - PageSize)
[b]getStartID = ArrayOfAllIDs(m_intStart)[/b]
End Function
Rad 54 är i fetstil.
Vad göra?
Obs! Det funkar när det finns ett jämt antal poster i databasen.. men så fort det är ojämt visar det en sida för mycket.
[Redigerat av Krug den 10 jun 2001]
Får du det att fungera om det inte finns några meddelanden alls?
Lukaspojken:
Nej.. samma felmeddelande som du 
Hello,
e ju datorfri så att säga under helgerna .... eller, sitter inte vid min dator.
Ser att jag har glömt att uppdatera detta script =O
Har gjort om scriptet och det kan laddas ner här: [zip-fil, 16 kb]
Innehåller en ASP fil + en Access 2000 databas-fil.
cul8er,
PatrikB
Det gick inte att ladda hem scriptet...den hittar inte filen
Om du vill få bort det fula meddelandet om databasen inte innehåller några poster skall du skriva följande efter SQL-frågan:
If objRS.EOF Then
Response.Write("Databasen innehåller inga poster för tillfället.")
Else
'Koden som hämtar poster från DB
End if
Kul att Patrick har gjort ett paging script för dem som inte orkar göra det själva, själv använder jag mig utav det paging script som finns på ASP101, vilket jag tycker fungerar mycket bra!
[Redigerat av iceM2 den 11 jun 2001]