lt%end if% lt%if rspagecountltcurpage+1 then% 尾页 lt%else% lta href=quot？curpage=lt%=rspagecount%quot class=quota2quot尾页 lt%end if% 这个是分页的显示了，上面的是判断这个你要自己看了，呵呵，我就不说了，这个是最简单的分页代码，我也是刚掌握的，希望帮到你；多年没写asp了，下面的代码把关键的部分写出来了，应该是可以看懂的了lt%#39连接数据库等操作省略，打开数据库等省略#39rs为打开数据库的对象const pz=13 #39这里定义分页数据，即每页多少条数据rspagesize=pz #39这里设置分页的数量，asp分页必须rsabsolutepage=nowpage #39这里的nowpage是用来获取当。

是你想要的lt #39这里写查询语句 page=requestquotpagequotif page=quotquot then page=1 else page=Cintpageend if Section=requestquotsectionquotif Section=quotquot then Section=1 else Section=CintSectionend if #39变量赋值 intPageSize=5 #39每页显示记录数 intSectionSize=5 #39多少页为一段，5表示；以上代码的意思是如果@doCount传递过来的不是0，就执行总数统计以下的所有代码都是@doCount为0的情况 else begin if @OrderType ！= 0 begin set @strTmp = #39ltselect min#39set @strOrder = #39 order by #39 + @fldName +#39 desc#39如果@OrderType不是0，就执行降序，这句很重要end。

ASP简单分页调用实例，请先保存fy_setasp和fy_getasp两个文件，然后调用示例 示例将以下代码保存为testasp lt set Conn = serverCreateObjectquotADODBConnectionquotPath = ServerMapPathquotquotquotdataxxmdbquotConnOpenquotProvider=Data Source=quot+Path+quotPersist；分类 电脑网络 程序设计 其他编程语言 问题描述程序代码如下本人已经将分页代码做好请问怎么让显示的信息列表每行显示两列lt！#include file=quotIncCls_DBaspquot lt！#include file=quotIncConstaspquot lt Set DBC = New DataBaseClass Set Conn =。

rsopen quotselect * from mess quot，conn，3，3 改成 rsopen quotselect * from mess order by 这里填你数据库mess中时间的记录项目 Descquot，conn，3，3 有分页的代码 Set Rs = ServerCreateObjectquotADODBRecordSetquotSql=quotSelect * From mess Order By 这里填你数据库mess中时间的记录项目 Des。

quotselect * from b1 quot，conn，1，1 先改成rsopen quotselect * from b1 quot，conn，1，3’需要支持分页显示 打开表后加上下面的一句 rspagesize=20 当显示地n页时，加上rsabsolutepage=n while not rsEOF 该成下面两行 i=0 while not rsEOF and ilt20 rsMoveNext前面加上一句i=i+1；以下是你需要的完整代码，pagesize=30是指每页30个信息，你可以自己修改 lt！#include file=quotConnaspquot 学生信息表 序号 学号 姓名 性别 年级 专业 学生信息管理 lt set rs=servercreateobjectquotadodbrecordset。

Else ‘如果记录集不为空 #39lt！分页程序 dim n，perpage，total，m total=rsrecordcount perpage=15 m=total mod perpage if m=0 then n=inttotalperpageelse n=inttotalperpage+1 end if ppage=requestquotPagequotif ppageltquotquot then ppage=cintppageelse if ppagelt1 or p；lt%@LANGUAGE=quotVBSCRIPTquot CODEPAGE=quot936quot% lt！#include file=quotconnaspquot lt sql=quotselect * from bizhi order by id descquotset rs=serverCreateObjectquotadodbrecordsetquotrsopen sql，conn，1，3，1 无标题文档 lt if rseof then responseWrite quot暂无图片quotelse。

留言主题lt%=rsquotmessage_themequot% 留言时间lt%=rsquotmessage_timequot% lttextarea cols=quot100quot rows=quot4quot disabled=quotdisabledquot留言内容lt%=rsquotmessage_contentquot%lttextarea lt call PageControliCount，maxpage，page，quotborder=0 align=centerquot，quotquotend if rsclose set rs；也可以这么用 lt set rs=servercreateobjectquotadodbrecordsetquotsql=quotselect top 4 * from infoquotrsopen sql，conn，1，1 do until rseof = rsquotbiaotiquot% lt%=rsquotneirongquot% lt rsmovenext loop。

下面是我收集的代码，我觉的你应该能用上如果还不行的话，联系，我帮你解决Function ExportPageInfoByRef rs，curpage，i，LinkFileDim retval， j， pageNumber， BasePage retval = quot第quot curpage quot页总quot rspagecount quot页 quotretval = retval quot本页quot i quot条总quot；建立access的数据库news，还有表news，表的字段id，title，id唯一，输入数据保存，用下面代码可查询，可分页 下面保存为searchasp 文件 lt！DOCTYPE HTML PUBLIC quotW3CDTD HTML 40 TransitionalENquot function btn_ck_bh_Click var cx = form。