Hejsan. ja vet att det finns mycket inlägg med pagin men ja har faktiskt inte problem med det uttan ja vill bara veta hur det är uppbyggt t.ex. vad vissa saker göra :)
I bland ser man jätte långa koder med pagin sedan hittade ja denna koden som fungerar jätte bra men inte är alls stor och nu undrar ja om man kan göra ett pagin script på massa olika sätt och kan någon snäll själ gå igenom denna koden och förklara lite lätt vad de olika delarna gör :)
De vanliga databas koplingarna fattar ja men t.ex fattar ja ej :l
RecSet.AbsolutePage = pagecount
<%
pagecount = TRIM( Request( "pagecount" ) )
if pagecount = "" THEN pagecount = 1
file = Server.MapPath("databas.mdb")
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& file
Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM TABELL ORDER BY ID DESC"
RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic
If RecSet.EOF then
Response.write "Inget här inte"
End if
RecSet.PageSize = 1
RecSet.AbsolutePage = pagecount
Do until RecSet.EOF OR rowCount > RecSet.PageSize
rowCount = rowCount + 1
%>
<%=RecSet("KOLUMN")%>
<%
RecSet.MoveNext
loop
if RecSet.PageCount > 1 THEN
for fldcount = 1 to RecSet.PageCount
if fldcount <> cINT( pagecount ) THEN
response.Write "<a href='sida.asp?pagecount="& fldcount &"'>"& fldcount &"</a>"
else
%>
<%=fldcount%>
<%
end if
next
end if
%>
Cint = convert to intiger
trim = tar bort alla mellanslag före och efter.
--- pagecount = TRIM( Request( "pagecount" ) )
tar bort alla mellanslag
if fldcount <> cINT( pagecount ) THEN
ser till att det verkligen är ett tal, annars fungerar inte IF satsen. Det är faktiskt så att request("myNumber") är strängen 23 medans CInt(request("myNumber")) blir talet 23.
pagecount talar om vilken sida du är på (sida.asp?pagecount=3)t.ex.
du tar antalet poster och delar med 'pagesize' och får då antalet sidor, dessa listas sedan längst ner med en tillhörande länk.
i pagesize kan du alltså välja hur många poster som skall synas på varje sida.
jag lämnar ingen garanti för att jag har rätt men jag tror det!!!
Jo, man kan självklart använda siffrorna istället för att inkludera monsterfilen adovbs.inc.
Om det finns enklare sätt; ingen aning. Du kan ju alltid kika i wFs scriptarkiv (jag tror mig minnas att PatrikB gjort ett pagingscript där man använder GetRows()), men det är möjligt att uppladdade script fortfarande är galet länkade...
' ---------------------------------------------------
' The full complete constantfile
' for
' ActiveX Data Object Version 2.1
'
' Written by
' Andreas Kviby
' Devphiles AB, Sweden
'
' [url]http://www.devphiles.com[/url]
'
' Send your comments to
' [email]andreas.kviby@devphiles.com[/email]
' ---------------------------------------------------'
Right on target! Får man lov att föreslå följande ändring i "exempel1.asp"?
' Skapa nytt objekt av class.
Set Pager = New clsPacePager
' Ladda in matris till class. Ange även poster/sida samt URL.
Pager.Load arrRecords, 5, request.serverVariables("PATH_INFO") & "?"
Right on target! Får man lov att föreslå följande ändring i "exempel1.asp"?
' Skapa nytt objekt av class.
Set Pager = New clsPacePager
' Ladda in matris till class. Ange även poster/sida samt URL.
Pager.Load arrRecords, 5, request.serverVariables("PATH_INFO") & "?"
Nja, eftersom QueryStringen "page" läggs till av classen själv så är det bäst att ange statiska QueryStrings, men själva filnamnet går alltid bra att använda PATH_INFO eller SCRIPT_NAME till.
Jag undrar stillsamt om du inte glömt att stänga databaskopplingen i det andra exemplet?
Eftersom du är så nogrann i allt det andra du gjort så vågar jag knappt fråga!
Det är det som är det fina med clsPaceDBconn - däri finns en funktion som heter GetRows() som hämtar data till en matris med endast en kodrad! Alltså, den både öppnar, hämtar och därefter stänger databasen. Exempel:
arrRecords = GetRows("driver=MySQL;database=testdb", "SELECT * FROM tabell")
.
Likadant är det med funktionen Execute().
274 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e
