GridView1DataBind获取分页目录 =GetQueryPagesMenuPageSize，objs summary 输入分页字符页码 summary paramname=quotPageSizequotparam paramname=quotobjsquotparam。

conn，1，1 ‘使用结果集RS执行strsql语句%然后是分页属性的设置 lt% rsPageSize=3 ‘设置页码 pagecount=rsPageCount #39获取总页码 page=intrequestquotpagequot #39接收页码 if pagelt=0 then page=1 #39判断 if re。

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获得每页得记录。

ASP简单分页调用实例，请先保存fy_setasp和fy_getasp两个文件，然后调用示例 示例将以下代码保存为testasp lt set Conn = serverCreateObjectquotADODBConnectionquotPath = ServerMapPathquotquotquotdataxxmdbquotConn。

#39分页显示新闻个数 dim totalput，currentPage，TotalPages，typ，sql typ=requestQueryStringquottypequotif typltquotquot then if not isemptyrequestquerystringquotnumquot then currentPage=cintrequestquerystringquotnumquotelse。

quotlta href=#39？page_no=lt%=page_count %#39quot 尾页 quotquotelse responsewrite quot下一页尾页quotend if end if rsclose set rs=nothing connclose set conn=nothing 现给你打的代码，可能有错误。

lt set rs1=serverCreateObjectquotadodbrecordsetquot #39连接数据库的语句不用我写吧 sqlstr1=quotselect * from newsquot ‘表名就叫news，你可以替换成自己的rs1open sqlstr1，conn，1，1 ’开始查了 gd=request。

lt%#39===分页类代码开始，需放在数据库数据表打开后 if errnumberlt0 then responsewrite quot数据库中暂时无数据quotend if if rseof And rsbof then ResponseWrite quot对不起，没有符合条件记录quotelse totalPut=。

end function 调用方法lt% call PageNumPage，PageSum，Act % 其中page是当前页数，PAGESUM是页面总数，ACT是点击连接的URL包括PAGE变量名称例lt% call PageNum1，PageSum，quotinfoasp？id=1page=quot %。

ltA href=quotshowasp？id=lt%=rsquotidquot%quot title=quotlt%=zt%quot target=quot_blankquot lt%=szt%lt%=rsquotsjquot%ltAltTD ltTR lt% rsmovenext next% ltTBODYltTABLE ltTABLE cellSpacing=0。

这个是我以前学习时记的笔记，现在做分页效果全用的它，只不过是把SQL语句改成存储过程了，你试试按下面的步骤可以实现不 1size每页记录数2currIndex当前页3count总页数 1select top 1* from 表 where。

多年没写asp了，下面的代码把关键的部分写出来了，应该是可以看懂的了lt%#39连接数据库等操作省略，打开数据库等省略#39rs为打开数据库的对象const pz=13 #39这里定义分页数据，即每页多少条数据rspagesize=pz #39这里设。

if InstrRevrsUrl，quotasp？quot 0 then rsUrl = rsUrl quotPage=quotelse rsUrl = rsUrl quot？Page=quotend if strTemp = quotquottmpPage = 10 intPage = IntPage1 tmpPageallPage = IntPagecount。

ltform action=quot页面asp？Page=lt%=Page%quot 共lt%=RsCount%个记录，第lt%=Page%页共lt%=PageCount%页 lt%If PageCount1 Then% lt% If Page 1 Then % 首页 lta href=quot页面asp？Page=lt%=Page1%。

你现在的文件存放路径应该是 htmlnews_新闻IDhtml吧 lt #39处理接收分页得参数，显示页数 也就默认第一页 #39page这个参数就是让变量pagenum去显示第一也得值0 if Requestquotpagequot=quotquot then pageNum=0 #39下面就是page。