在一个大型的ASP项目中，很多页面都涉及到翻页功能，如果每个页面都编写一个翻页的程序，这种工作会降低工作效率，也不利于工程模块化，不能使代码重用，因此有必要对翻页功能进行模块化。
设计方法：
1。在调用模块时，只需要设置记录的数量和每页上显示的记录数。
2，可以点击链接到页面，也可以直接输入页码，返回后返回页面；
3、不要考虑文件的名称，程序的每一页都可以在当前页面中。

为了找出以上3个问题，我们的公共页面模块可以进行动手操作。

<
+++++++++++++++++++++++++++++++++++++
模块名称：公共页面模块
文件名：turnpage.asp
传入的参数：rs_tmp（PageSize（记录集），每页显示的记录数）
输出：记录设置页面显示功能
+++++++++++++++++++++++++++++++++++++
'
Sub TurnPage（ByRef rs_tmp、PageSize）'rs_tmp记录集；PageSize的每一页上显示的记录数；
昏暗的totalpage总页数
昏暗的PageNo目前显示的页数
昏暗的RecordCount总记录数
rs_tmp.pagesize = PageSize
rs_tmp.recordcount RecordCount =
totalpage = int（RecordCount / PageSize * 1）* 1
帕基诺= request.querystring（帕基诺）
页码直接跳转；
如果请求。形式（帕基诺）然后帕基诺< > =请求。形式（帕基诺）
如果没有选中页面，则默认显示第一页；
如果帕基诺=然后帕基诺= 1
如果RecordCount <> 0
rs_tmp.absolutepage =帕基诺
最后如果

获取当前文件名，以便在当前页上完成每个页面；
昏暗的文件名、位置
文件名= request.servervariables（ｓｃｒｉｐｔ_name ）
位= instrrev（filename， / ）+ 1
获取当前文件的名称，将页面链接指向当前文件；
文件名=中（文件名，位置）
%>


总页数：页
当前页

< %如果RecordCount = 0或totalpage = 1
响应。年底前写主页|在| |
别的%>
帕基诺= 1 >页面|
< %如果帕基诺- 1 = 0，然后
响应。写页|
别的%>
帕基诺= >页面|
< %结束如果

如果PageNo + 1 > totalpage然后
响应。写在|
别的%>
帕基诺=> |页


帕基诺=>页

转向第一




页





当然，你可以把网页的图片按钮，这样的话会更美丽。

调用方法：
1。页面模块文件包含在程序启动的地方或将要使用的页面中。
2。定义一个变量：行数，显示在每一页的记录数
三.电话：电话turnpage翻页过程（记录集，RowCount）
4。在做循环输出记录的条件加入行数> 0 的条件
5。增加了循环循环的终结：行数=行数1

-----------------------------------------------------
调用示例：
文件名：news.asp

<
朦胧的Conn，rs_news
设置conn = server.createobject（数据连接）
康涅狄格州开CPM

sql
从新闻中选择*
集rs_news = server.createobject（ADODB。记录集）
rs_news.open SQL，Conn，3获取记录集

公共模块到页%

<
昏暗的行数
行数= 10，每个页面上的条目数量
电话turnpage（rs_news，行数）
公共模块结束页%



消息数
新闻标题
发布日期

<
如果不rs_news.eof
而不是rs_news.eof和行数> 0
%>





<
行数=行数1
rs_news.movenext
环
最后如果
%>



修正案：
<
如果不rs_news.eof然后
而不是rs_news.eof和行数> 0
%>

公共模块丢失。
<
Sub TurnPage（ByRef rs_tmp、PageSize）'rs_tmp记录集；PageSize的每一页上显示的记录数；
昏暗的totalpage总页数
昏暗的PageNo目前显示的页数
昏暗的RecordCount总记录数
rs_tmp.pagesize = PageSize
rs_tmp.recordcount RecordCount =
totalpage = int（RecordCount / PageSize * 1）* 1
帕基诺= request.querystring（帕基诺）
页码直接跳转；
如果请求。形式（帕基诺）然后帕基诺< > =请求。形式（帕基诺）
如果没有选中页面，则默认显示第一页；
如果帕基诺=然后帕基诺= 1
如果RecordCount <> 0
rs_tmp.absolutepage =帕基诺
最后如果
获取当前文件名，以便在当前页上完成每个页面；
昏暗的文件名、位置
文件名= request.servervariables（ｓｃｒｉｐｔ_name ）
位= instrrev（filename， / ）+ 1
文件名=中（文件名，位置）
%>


总页数：页
当前页总条

< %如果RecordCount = 0或totalpage = 1
响应。年底前写主页|在| |
别的%>
帕基诺= 1 >页面|
< %如果帕基诺- 1 = 0，然后
响应。写页|
别的%>
帕基诺= >页面|
< %结束如果

如果PageNo + 1 > totalpage然后
响应。写在|
别的%>
帕基诺=> |页

帕基诺=>页


转向第一







页