access分頁技術思想A：

 程序代碼
select top 分頁數 * from 表 where 主鍵 not in (select top 第幾頁*分頁數 主鍵 from 表 where 過濾條件)
 

ACCESS分頁技術思想B：

 程序代碼
select top 頁大小 * from 表1 where 主鍵 <(select min(主鍵)　from (select top 頁大小 主鍵 from 表1 order by 主鍵 desc) as tblTmp) order by 主鍵 desc
  

相比這兩種設計思想，就大容量的數據而言，譬如一表幾萬條數據的顯示的時候，就能明顯的感覺出，前者比后者快了，因為前者不用建立后臺臨時表處理！，少了一個環節！不過簡單的說，還是很容易理解的

打個比方，我一頁要五行數據，現在是第三頁，那么第幾頁應該等于需要要的頁數乘以記錄！

一個基于此思路的分頁函數應用：

 程序代碼

<%
Function ShowClass(page, Fcount, order, desc)   
    if page = "" or len(page) = 0 then page = 1   
       
     SkinStr = ""  
     pageStr = ""  
     SkinTatol = conn.execute("select count(*) from Skin")(0)   
        
     Filtwheres = "order by "&order" "&desc   
        
     if page > 1 then   
         SkinSQL = "select top "& Fcount " Skin_ID,Skin_Name,Skin_Designer,Skin_PubDate,Skin_DesignerURL,Skin_DesignerMail,Skin_Geterip,Skin_GetTime,LocalSkinInfoPReview,Skin_RandromNumber,Skin_DownCouns,Skin_FromURL from Skin where Skin_ID not in (select top "& ((page -1)* Fcount)" Skin_ID from Skin "&Filtwheres") " & Filtwheres   
     else   
        SkinSQL = "select top "& Fcount " Skin_ID,Skin_Name,Skin_Designer,Skin_PubDate,Skin_DesignerURL,Skin_DesignerMail,Skin_GeterIP,Skin_GetTime,LocalSkinInfoPreview,Skin_RandromNumber,Skin_DownCouns,Skin_FromURL from Skin " & Filtwheres   
     end if   
  
            '------------------ m.survivalescaperooms.com 分頁欄 ---------------------   
            total = SkinTatol '取總數   
            per = Fcount '每頁顯示條數   
            pages = total / per '總共的頁數   
               
            If pages <> int(pages) then   
                pages = int(pages) + 1   
            Else  
                pages = pages   
            End If  
               
            If (page * per) >= total then   
                bn = total   
            Else  
                bn = page * per   
            End If  
  
            if pages <= 9 then   
                if page > 5 then   
                    a = page - 4   
                    b = page + 4   
                    if b > pages then b = pages   
                else   
                    a = 1   
                    b = pages   
                end if   
            else   
                if page > 5 then   
                    a = page - 4   
                    b = page + 4   
                    if b > pages then b = pages   
                else   
                    a = 1   
                    b = 9   
                end if   
            end if   
               
            '------------- start --------------------   
            pageStr = pageStr & "<table><tr>"  
            pageStr = pageStr & "<td><a href=""javascript:void(0);"" onclick=""IndexShow(1, "&per", '"&order"', '"&desc"', 'index')""><</a></td>"  
               
            For i = a to b   
                if page = i then   
                    pageStr = pageStr & "<td>" & i & "</td>"  
                else   
                    pageStr = pageStr & "<td><a href=""Javascript:void(0);"" onclick=""IndexShow("& i ", "&per", '"&order"', '"&desc"', 'index')"">" & i & "</a></td>"  
                end if   
            Next  
               
            pageStr = pageStr & "<td><a href=""javascript:void(0);"" onclick=""IndexShow("& pages ", "&per", '"&order"', '"&desc"', 'index')"">></a></td>"  
            pageStr = pageStr & "</tr></table>"  
            '------------- end --------------------   
               
               
               
            set SkinDB = conn.execute(SkinSQL)   
            if SkinDB.bof or SkinDB.eof then   
                SkinStr = SkinStr & "none"  
            else   
                web_len = 1   
                SkinStr = SkinStr & "<table>"  
                do while not SkinDB.eof   
                    if web_len mod 4 = 0 then    
                        Bleft = ""  
                        Bright = "</tr>"  
                    elseif web_len mod 4 = 1 then   
                        Bleft = "<tr>"  
                        Bright = ""  
                    else   
                        Bleft = ""  
                        Bright = ""  
                    end if   
                        SkinStr = SkinStr & Bleft & "<td><a href=""javascript:;"" onmouSEOver=""this.className='skinb'"" class=""skina"" onmouseout=""this.className='skina'"" onFocus=""this.blur()""><p class=""skinp""><img src=""GetSkinsFolder/Preview/"&SkinDB("Skin_Name")"_"&SkinDB("Skin_RandromNumber")".jpg"" onerror=""this.src='GetSkinsFolder/Preview/Preview.jpg'"" class=""viewimgskin""><br>"&SkinDB("Skin_Name")"</p></a></td>" & Bright   
                    web_len = web_len + 1   
                SkinDB.movenext   
                loop   
                SkinStr = SkinStr & "</table>"  
            end if    
            ShowClass = pageStr & SkinStr    
End Function
%>