asp中大数据量分页代码示例

对于大量的数据分页传统的asp分页方法(Rs.PageSize)存在很大的弊端：第一次打开页面时，它会预读所有的记录集，这当在数据大的时候，这将是致命的，翻页速度也会非常慢，非常占用资源。

我在操作大量程序的时候用Rs.PageSize方法分页经常出现程序运行超时错误，（数据量在几万左右程序优化不好的情况下经常出现程序运行超时），处理这种大量数据我使用的下面的方法暂时解决：

首先是记录打开时的游标类型，由于只是对记录进行顺序遍历所以我使用用rs.open sql,conn,0,1
0,1，这应是最快的游标类型了（详细）
adOpenForwardOnly 0 默认值。只支持向前顺序访问数据，如果只需要顺序遍历全部数据，该方法可以提供较高的执行性能
adLockReadOnly 1 只读方式，不能对数据进行修改
其次是每页只读出需要的记录,不预读所有的记录集

修改后的代码
<% totalrec=0 '总记录数 msg_per_page=20 '每页显示记录数 currentpage=request.QueryString("page")'当前页码 n=0'总页数 if currentpage="" then currentpage=0 '取得总记录数 set rs=server.CreateObject("adodb.recordset") sql="select count(n_id) from view_news where c_flag=5 and n_isdisp=1" rs.open sql,conn,0,1 totalrec=rs(0) rs.close if totalrec mod msg_per_page = 0 then '计算总页数 n = totalrec/msg_per_page 'n:总页数 else n = totalrec/msg_per_page+1 end if '设定当前页 if not isnumeric(currentpage) or currentpage="" then currentpage=1 If currentpage <> "" then currentpage = cint(currentpage) end if if currentpage < 1 then currentpage = 1 end if if currentpage*msg_per_page > totalrec and not((currentpage-1)*msg_per_page < totalrec) then currentPage=1 end if if currentpage>1 then '当前不是第一页 sql="select top "&msg_per_page&" n_id,n_title,n_istop,n_date,n_ispic,n_isred from view_news where c_flag=5 and n_isdisp=1 and n_id not in (select top "&(currentpage-1)*msg_per_page&" n_id from view_news where c_flag=5 and n_isdisp=1 order by n_istop desc, n_date desc,n_id asc) order by n_istop desc, n_date desc,n_id asc" else'当前是第一页 sql="select top "&msg_per_page&" n_id,n_title,n_istop,n_date,n_ispic,n_isred from view_news where c_flag=5 and n_isdisp=1 order by n_istop desc, n_date desc,n_id asc" end if rs.open sql,conn,3,1 while not rs.eof '输出信息 rs.movenext wend rs.close set rs=nothing %>