--- title: "Pagingsystem - GetRows()" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/77851-pagingsystem-getrows" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "Palle" published: "2003-05-23T14:32:11.000Z" updated: "2008-05-29T08:58:41.000Z" replies: 27 views: 3047 page: 1 pages: 2 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/77851-pagingsystem-getrows" --- # Pagingsystem - GetRows() _Sida 1 av 2._ ## #1 — Palle, 2003-05-23T14:32Z Detta är en diskussion gällande [detta script](http://www.webforum.nu/showthread.php?s=&threadid=76181) i wF´s scriptarkiv. Scriptet tar upp ett hett ämne här på wF, nämligen "paging". Jag har valt att göra ett pagingsystem som använder sig utav GetRows() för att hämta informationen från databasen. Navigeringen är konstruerad som så att du själv kan välja mellan att använda knappar eller text, du *avkommenterar* helt sonika den navigeringen som du själv önskar använda och *kommenterar bort* den andra, ni förstår nog. ;) En demo finns att titta på [här](http://www.rdt.nu/palle/) Kom gärna med kommentarer och idéer om förbättringar. :bire Bilagor: - [palle_paging_getrows.zip](https://www.webforum.nu/a/1496.zip) Permalänk: https://www.webforum.nu/p/77851 ## #2 — Sebbe, 2003-05-23T14:46Z Eftersom du nu har skapat tråden kan ju jag länka till en fil jag skrev igår, hög tråkfaktor. Det enda problemet med den här sidan är att jag inte orkade kommentera den, men jag ska väl ta och fixa det senare någon gång. :) Hoppas bara inte att Palle misstycker? Permalänk: https://www.webforum.nu/p/1059523 ## #3 — Palle, 2003-05-23T14:54Z hehe, inte alls. :bire Det jag postade här ovan fungerar ungefär på samma sätt fast jag använder *getrows* och *arrayer* istället för *do until loopar* och *pagesize* då jag föredrar det. ;) Navigeringen å andra sidan är inte samma, jag ville ha en lite kuligare variant. ;) Permalänk: https://www.webforum.nu/p/1059537 ## #4 — solbulle, 2003-05-23T15:30Z Har inte kollat på scriptet fullt ut, men såg inte om man lätt kunde ändra hur många sidor/knappar som är synliga (5 i exemplet) Detta har ju frågats om typ var tredje dag den senaste tiden. Permalänk: https://www.webforum.nu/p/1059580 ## #5 — Palle, 2003-05-23T15:43Z > **solbulle skrev:** > > Har inte kollat på scriptet fullt ut, men såg inte om man lätt kunde ändra hur många sidor/knappar som är synliga (5 i exemplet) > Detta har ju frågats om typ var tredje dag den senaste tiden. Man kan göra det ja, men inte på ett *jättelätt* sätt. ;) Ska faktiskt fixa till det, tack för tipset. :bire Permalänk: https://www.webforum.nu/p/1059595 ## #6 — crisse6, 2003-05-23T21:24Z Palle, kanon skript!! Nar jag kollad pa exemplet alltsa... men sjalv far jag inte ihop det, den klagar pa "Next" i slutet dar.... :( ``` <% Dim forum, strSql, rs Call DBConn() forum = request.querystring("id") strSql = "Select threadID, threadUser, threadLastReply, threadAns, ThreadAvailable, threadForumID"&_ "From t_threads where threadForumID = "&forum set rs = objConn.execute(strSql) If NOT rs.EOF Then arrRecSet = rs.GetRows() rs.Close : Set rs = Nothing Call DBClose() If IsArray(arrrs) Then '// Poster per sida intPostsPerPage = 10 '// Navigeringshantering If Len(trim(Request.Querystring("n"))) > 0 Then intPage = cInt(trim(Request.Querystring("n"))) Else intPage = 1 intFirstPost = (intPage - 1) * intPostsPerPage intTotalPosts = UBound(arrrs, 2) intPages = ((intTotalPosts)\intPostsPerPage)+1 If intFirstPost + (intPostsPerPage - 1) >= UBound(arrrs,2) Then intLastPost = UBound(arrrs, 2) Else intLastPost = intFirstPost + (intPostsPerPage - 1) strNext = True End If '// Skriv ut posterna For i = intFirstPost To intLastPost threadID = arrrs(0,i) threadName = arrrs(1,i) threadUser = arrrs(2,i) threadAns = arrrs(3,i) threadLastReply = arrrs(4,i) response.write "
Trådar
" response.write ""&_ ""&_ ""&_ ""&_ ""&_ "
"&threadName&""&threadUser&""&threadAns&""&threadLastReply&"
"&_ Next Call textNavigate(intPage, intTotalPosts, intPostsPerPage, intPages) Else Response.write "Inga inlägg i detta forum!" End IF %> <%= "Visar posterna "& intFirstPost+1 &"-"& intLastPost+1 &" av totalt "& intTotalPosts+1 &" poster" %> <% Call HTMLEnd() %> ``` Permalänk: https://www.webforum.nu/p/1059858 ## #7 — Sebbe, 2003-05-23T22:47Z Ta bort &\_ i slutet av Response.Write()'n. ``` <% Dim forum, strSql, rs Call DBConn() forum = request.querystring("id") strSql = "Select threadID, threadUser, threadLastReply, threadAns, ThreadAvailable, threadForumID"&_ "From t_threads where threadForumID = "&forum set rs = objConn.execute(strSql) If NOT rs.EOF Then arrRecSet = rs.GetRows() rs.Close : Set rs = Nothing Call DBClose() If IsArray(arrrs) Then '// Poster per sida intPostsPerPage = 10 '// Navigeringshantering If Len(trim(Request.Querystring("n"))) > 0 Then intPage = cInt(trim(Request.Querystring("n"))) Else intPage = 1 intFirstPost = (intPage - 1) * intPostsPerPage intTotalPosts = UBound(arrrs, 2) intPages = ((intTotalPosts)\intPostsPerPage)+1 If intFirstPost + (intPostsPerPage - 1) >= UBound(arrrs,2) Then intLastPost = UBound(arrrs, 2) Else intLastPost = intFirstPost + (intPostsPerPage - 1) strNext = True End If '// Skriv ut posterna For i = intFirstPost To intLastPost threadID = arrrs(0,i) threadName = arrrs(1,i) threadUser = arrrs(2,i) threadAns = arrrs(3,i) threadLastReply = arrrs(4,i) response.write "
Trådar
" response.write ""&_ ""&_ ""&_ ""&_ ""&_ "
"&threadName&""&threadUser&""&threadAns&""&threadLastReply&"
" Next Call textNavigate(intPage, intTotalPosts, intPostsPerPage, intPages) Else Response.write "Inga inlägg i detta forum!" End IF %> <%= "Visar posterna "& intFirstPost+1 &"-"& intLastPost+1 &" av totalt "& intTotalPosts+1 &" poster" %> <% Call HTMLEnd() %> ``` Permalänk: https://www.webforum.nu/p/1059937 ## #8 — solbulle, 2003-05-23T22:56Z If NOT rs.EOF Then arrrs = rs.GetRows() Permalänk: https://www.webforum.nu/p/1059938 ## #9 — crisse6, 2003-05-23T23:17Z japp, fick ordning pa det ;) fan att man kan vara sa blind ibland :e Permalänk: https://www.webforum.nu/p/1059953 ## #10 — crisse6, 2003-05-24T13:29Z okej, forsoker fa ordning pa en sak har nu... vill blanda in tabellen t_members i min sql sats, men for att jag anvander getrows() och ar ny pa saken sa vet jag inte hur allt hanger ihop till 100%, hehe.. iaf, den sager nu i pagingen att det ar 3 poster nar det ar en, tror det kan vara for att det ar 3 anvandare i db'n? Men det ar alltsa bara en (1) trad i db'n... kolla hur jag forsoker gora i sql satsen ;) och forklara garna hur jag kan anvanda det sen i min kod, tex vill kunna skriva sida.asp?id="&anvandarID&"........ ``` [red] <% Dim forum, strSql, rs, arrrs, intPostsPerPage, intPage Dim ntFirstPost, intTotalPosts, intPages, intLastPost Dim i, threadID, threadName, threadUser, threadAns, threadLastReply Dim strNext, intFirstPost, strModerator, objMod, strOutMod, thread Dim strLocation, objLoc, strLinkForum, userID Call DBConn() Call Location() Call Moderator() strSql = "Select t_threads.threadID, t_threads.threadUser, t_threads.threadLastReply, t_threads.threadAns, t_threads.threadName, t_threads.ThreadAvailable, t_threads.threadForumID, t_members.userID"&_ " From t_threads, t_members where t_threads.threadForumID = "&forum set rs = objConn.execute(strSql) If NOT rs.EOF Then arrrs = rs.GetRows() rs.Close : Set rs = Nothing Call DBClose() If IsArray(arrrs) Then '// Poster per sida intPostsPerPage = 10 '// Navigeringshantering If Len(trim(Request.Querystring("n"))) > 0 Then intPage = cInt(trim(Request.Querystring("n"))) Else intPage = 1 intFirstPost = (intPage - 1) * intPostsPerPage intTotalPosts = UBound(arrrs, 2) intPages = ((intTotalPosts)\intPostsPerPage)+1 If intFirstPost + (intPostsPerPage - 1) >= UBound(arrrs,2) Then intLastPost = UBound(arrrs, 2) Else intLastPost = intFirstPost + (intPostsPerPage - 1) strNext = True End If '// Skriv ut posterna For i = intFirstPost To intLastPost threadID = arrrs(0,i) threadUser = arrrs(1,i) threadLastReply = arrrs(2,i) threadAns = arrrs(3,i) threadName = arrrs(4,i) response.write "

"&_ ""&_ ""&_ ""&_ ""&_ ""&_ "
TrådStartad AvSvarSenaste
" response.write ""&_ ""&_ ""&_ ""&_ ""&_ "
"&threadName&""&threadUser&""&threadAns&""&threadLastReply&"


" Next Call textNavigate(intPage, intTotalPosts, intPostsPerPage, intPages) Else Response.write "Inga inlägg i detta forum!" End IF %>
<%= "Visar posterna "& intFirstPost+1 &"-"& intLastPost+1 &" av totalt "& intTotalPosts+1 &" poster" %>
<% Call HTMLEnd() %> [/red] ``` Tackar, glider till Minneapolis nu sa jag vantar pa svar tills jag ar tillbaka :D Permalänk: https://www.webforum.nu/p/1060238 ## #11 — pirro, 2003-05-24T17:20Z Hoppas att du inte har ngt emot att ja tar ditt stylesheetkod för button, samt button taggen, då ja inte kände till den. Har gjort ett för php och ska testa göra med knappar... Over and Out Pirro Permalänk: https://www.webforum.nu/p/1060455 ## #12 — crisse6, 2003-05-25T22:26Z Ingen som vet? :D Kan ju tillagga att det ar sql satsen det ar fel pa... hehe.... nar jag tar bort hamtningen fran t_members sa listar den korrekt... hmm? hur ska man bara sig at? :) Permalänk: https://www.webforum.nu/p/1064206 ## #13 — crisse6, 2003-05-26T06:09Z HEEEEEELP I NEED SOMEBODY, HEEEELP IS THERE ANYBODY, HEEEEEELP MEEEEEEEE! Permalänk: https://www.webforum.nu/p/1064260 ## #14 — solbulle, 2003-05-26T21:51Z Slarvskalle! Permalänk: https://www.webforum.nu/p/1065195 ## #15 — Bosse168, 2004-02-07T16:11Z Hur gör man för att få informationen från ett formulär? Funkar bra när jag söker men men när jag byter sida blir det som en tom sida? min SQL sats ``` SQL = "Select * From members Where username Like '%%" & Replace(namn,"'","''") & "%%' AND kon Like '%%"& kon &"%%'" & _ " AND (to_days(current_date) - to_days(foddes))/365.2405 between "& sqlAge &" AND stad Like '%%"& staden &"%%' AND lan Like '%%"& lanet &"%%' AND status Like '%%"& online &"%%'" & _ " And bild_godkand Like '%%"& bild &"%%' Order By "& ordning ``` Permalänk: https://www.webforum.nu/p/1270634 ## #16 — Bosse168, 2004-02-07T17:04Z Löste det med sessions finns det inget bättre och snällare kod så servern blir glad. Permalänk: https://www.webforum.nu/p/1270651 ## #17 — bluespot, 2004-11-11T13:03Z Tre saker jag skulle vilja ha lite hjälp med. 1) Jag har valt att bara navigera med siffror, men om jag har mindre än två poster i databasen så försvinner navigeringen. 2) Hur ser koden ut om jag vill visa en bild som hör till den aktuella posten? 3) Innan jag går in på sidan med pagingen så finns det olika länkar typ sida.asp?id=1 som man klickar på, hur får jag pagingsidan att välja rätt poster med urvalet på "id"? Permalänk: https://www.webforum.nu/p/1482556 ## #18 — Palle, 2004-11-12T08:15Z 1\. Det beror på att scriptet per default är satt till att visa 20 poster per sida, är det mindre än 20 poster visas ingen navingering för det finns inget att navigera mellan.. ändra *intPostsPerPage* så det passar dina önskemål. 2\. Lägg in bilden i koden där posterna skrivs ut. 3\. Du måste ändra sql-satsen så den passar ditt syfte och hämtar det som Du vill hämta. Permalänk: https://www.webforum.nu/p/1482986 ## #19 — bluespot, 2004-11-12T11:40Z Jag har satt intPostsPerPage = 1 Men om jag har mindre än tre poster i databasen så syns inte navigeringen, har man bara två poster vill man kunna navigera mellan dom. Kan någon ge exempel hur koden ska skrivas på mina andra punkter, jag är inte så bra på detta. Permalänk: https://www.webforum.nu/p/1483063 ## #20 — bluespot, 2004-11-15T10:13Z Varför får jag felmeddelande: Microsoft JET Database Engine (0x80040E14) Syntaxfel (operator saknas) i frågeuttrycket 'Id WHERE KundId=2'. Min kod: ``` Set RecSet = Connect.Execute("SELECT * FROM Referenser ORDER BY Id WHERE KundId="&Request.Querystring("KundId")) ``` Länken som jag klickar på: a href="kundreferens.asp?KundId=2" Permalänk: https://www.webforum.nu/p/1484266 --- Tråden på webben: https://www.webforum.nu/amne/asp/77851-pagingsystem-getrows Nästa sida: https://www.webforum.nu/amne/asp/77851-pagingsystem-getrows/page2.md