95 svar · 768 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
------------------
Ingenting är omöjligt.
Det omöjliga tar bara något längre tid att genomföra.
Innehåller en ASP fil + en Access 200 databas fil
Hm, ursäkta, men kunde du inte använt en lite modernare databas? ;) :e
Nej, ärligt. Hoppas folk hittar till ditt script och slipper fråga samma sak om och om igen här istället :)
Good Work!
------------------
SPiN, bjorne.w@telia.com
-- Fame is a bitch, man [Brad Pitt - Fight Club] --
wunderbar ! :)
------------------
En stängd mun fångar inga flugor....
[Redigerat av jonne den 04 maj 2001]
Ett script som delar upp ett recordsets poster på flera sidor...
------------------
Budweiser - Slightly contaminated water... probably harmless, but I would recommend boiling before you drink it...
webEye.nu SweQuake.com
Det var ju inget. Det har jag ju löst (nästan) hel själv. :)
------------------
/Erik
www.juhlin.nu /sk8files/ /mp2d/
Men Erik, inte kan du väl förutsätta att folk ska tänka själva?!
------------------
These are the cries of the carrots, the cries of the carrots! You see, Reverend Maynard, tomorrow is harvest day and to them it is the holocaust.
jag har inte access 2000, vad är det för fält i db:n?
(inkl. datatyp)
------------------
www.groda.net *kvack*, *kvack*
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
------------------
Ingenting är omöjligt.
Det omöjliga tar bara något längre tid att genomföra.
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 jämnar ut sig sa han som sket i byxan och satte sig ned*
... hmmm, fast fortfarande den irriterande buggen vid endast 1 post/sida ... :(
cya,
PatrikB
------------------
*Det jämnar ut sig sa han som sket i byxan och satte sig ned*
ok,
buggen e fixad!!
Download: [zip-fil, 16 kb]
cya,
PatrikB
------------------
*Det jämnar ut sig sa han som sket i byxan och satte sig ned*
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]