1、lt%Set Rs_news=ServerCreateObjectquotAdodbRecordSetquotSQL=quotSelect * From newsquotRs_newsopen sql，conn，1，1% lt%=rs_newsquotbtquot% lt%rs_newsmovenext loop% 如何進(jìn)行4行2列的分頁顯示 解析 lt i=1 Set；if InstrRevrsUrl，quotasp？quot 0 then rsUrl = rsUrl quotPage=quotelse rsUrl = rsUrl quot？Page=quotend if strTemp = quotquottmpPage = 10 intPage = IntPage1 tmpPageallPage = IntPagecount；我是這樣分頁的，確定能用，給你看看，看能否幫上你的忙 lt Dim currentpage，page_count，Pcount dim totalrec，endpage currentPage=requestquotpagequotif currentpage=quotquot then currentpage=1 else currentpage=clngcurrent。

2、sp頁面，內(nèi)容如下lt dim pageno #39記錄第幾頁 #39函數(shù)名cut1，參數(shù)rs類型為Recordset #39該函數(shù)主要將接收一個pageno，并將這個值賦給rs的AbsolutePage #39最終達(dá)到指定當(dāng)前頁是第幾頁 function cut1rsif not rseof；分頁代碼 頁面URL 當(dāng)前頁面 共多少頁 共多少條記錄 每頁顯示多少條記錄 ltreturnsltreturns public string goPagestring url， int page， int allPage， int；DSN=student2quot#39連接數(shù)據(jù)庫 connopen#39設(shè)置rs的ActiveConnection對象 rsActiveConnection=conn #39設(shè)置游標(biāo)類型 rsCursorType=1 #39設(shè)置鎖定類型，默認(rèn)為1，也就是下面代碼可以省略 rsLockType=1 #39打開記錄集；ASP的簡單分頁程序#39程序特點(diǎn) #39本程序主要是對數(shù)據(jù)分頁的部分進(jìn)行了封裝，而數(shù)據(jù)顯示部份完全由用戶自定義， #39支持URL多個參數(shù) #39 #39使用說明 #39程序參數(shù)說明 #39PapgeSize 定義分頁每一頁的記錄數(shù) #39GetRS 返回經(jīng)過分頁的Recordset此屬性只讀。

3、設(shè)置一個變量，將分頁相關(guān)的內(nèi)容存到變量里面，然后循環(huán)之后再用變量顯示分頁代碼 urlstr = quotquotIf Page lt 1 Then urlstr = urlstr quotltA HREF=xxxxasp？Page=1第一頁ltA？quoturlstr = urlstr quotltA HREF=；if page=0 then page=1 if page3 then page=3 responsewrite Midtext，page1*8+1，8這樣的分頁比較傳統(tǒng)簡單但不太適合通過編輯器傳輸?shù)募磶в蠬TML或UBB代碼的文本自己想想為什么吧。

4、lt！#include file=quotconnaspquot lt dim rs，sql dim LmID，LmName，NewID dim Title，Content，UpdateTime LmID=cinttrimrequestQueryStringquotLmIDquotNewID=clngtrimrequestQueryStringquotNewIDquotset rs=；DataList分頁方法的核心原理是利用PagedDataSource對象，PagedDataSource類封裝了DataGrid 控件的屬性，這些屬性使 DataGrid 可以執(zhí)行分頁，下面是PagedDataSource的公共屬性 AllowCustomPaging 獲取或設(shè)置指示是否啟用自定義分頁的值 AllowPaging 獲；Function cutPagesqlStr，Conn，dateNums，pageNums，URLs#39利用ADO分頁的函數(shù) Dim sql，Cn，dateNum，pageNum，URL，rsDate Sql=TrimsqlStr #39獲得sql語句Set Cn=Conn #39獲得數(shù)據(jù)對象 dateNum=CintdateNums #39獲得每頁得記錄；lt%#39===分頁類代碼開始，需放在數(shù)據(jù)庫數(shù)據(jù)表打開后 if errnumberlt0 then responsewrite quot數(shù)據(jù)庫中暫時無數(shù)據(jù)quotend if if rseof And rsbof then ResponseWrite quot對不起，沒有符合條件記錄quotelse totalPut=。

5、lt exec=quotselect * from testquot 設(shè)置查詢 TEST 表里面的所有項(xiàng)目 set rs=servercreateobjectquotadodbrecordsetquot 設(shè)置記錄集 rsopen exec，conn，1，1 設(shè)置為只讀方式執(zhí)行查詢 rsPageSize=3 設(shè)置分頁大小 pa；即每頁多少條數(shù)據(jù)rspagesize=pz #39這里設(shè)置分頁的數(shù)量，asp分頁必須rsabsolutepage=nowpage #39這里的nowpage是用來獲取當(dāng)面的頁碼 判斷nowpager的合法性省略allpage=rs。