1、lt%Set Rs_news=ServerCreateObjectquotAdodbRecordSetquotSQL=quotSelect * From newsquotRs_newsopen sql，conn，1，1% lt%=rs_newsquotbtquot% lt%rs_newsmovenext loop% 如何进行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页面，内容如下lt dim pageno #39记录第几页 #39函数名cut1，参数rs类型为Recordset #39该函数主要将接收一个pageno，并将这个值赋给rs的AbsolutePage #39最终达到指定当前页是第几页 function cut1rsif not rseof；分页代码 页面URL 当前页面 共多少页 共多少条记录 每页显示多少条记录 ltreturnsltreturns public string goPagestring url， int page， int allPage， int；DSN=student2quot#39连接数据库 connopen#39设置rs的ActiveConnection对象 rsActiveConnection=conn #39设置游标类型 rsCursorType=1 #39设置锁定类型，默认为1，也就是下面代码可以省略 rsLockType=1 #39打开记录集；ASP的简单分页程序#39程序特点 #39本程序主要是对数据分页的部分进行了封装，而数据显示部份完全由用户自定义， #39支持URL多个参数 #39 #39使用说明 #39程序参数说明 #39PapgeSize 定义分页每一页的记录数 #39GetRS 返回经过分页的Recordset此属性只读。

3、设置一个变量，将分页相关的内容存到变量里面，然后循环之后再用变量显示分页代码 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这样的分页比较传统简单但不太适合通过编辑器传输的即带有HTML或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 可以执行分页，下面是PagedDataSource的公共属性 AllowCustomPaging 获取或设置指示是否启用自定义分页的值 AllowPaging 获；Function cutPagesqlStr，Conn，dateNums，pageNums，URLs#39利用ADO分页的函数 Dim sql，Cn，dateNum，pageNum，URL，rsDate Sql=TrimsqlStr #39获得sql语句Set Cn=Conn #39获得数据对象 dateNum=CintdateNums #39获得每页得记录；lt%#39===分页类代码开始，需放在数据库数据表打开后 if errnumberlt0 then responsewrite quot数据库中暂时无数据quotend if if rseof And rsbof then ResponseWrite quot对不起，没有符合条件记录quotelse totalPut=。

5、lt exec=quotselect * from testquot 设置查询 TEST 表里面的所有项目 set rs=servercreateobjectquotadodbrecordsetquot 设置记录集 rsopen exec，conn，1，1 设置为只读方式执行查询 rsPageSize=3 设置分页大小 pa；即每页多少条数据rspagesize=pz #39这里设置分页的数量，asp分页必须rsabsolutepage=nowpage #39这里的nowpage是用来获取当面的页码 判断nowpager的合法性省略allpage=rs。