ASP通用分页代码

帅哥

在大型的ASP项目中，很多的页面都涉及到翻页功能。如果每个页面都写一个翻页的程序的话，这样的工作即降低了工作效率，也不利于工程的模块化，不能使代码重用。因此，把翻页这样的功能模块化是很有必要的。

! |. u% |. n+ l" \' i　　设计方法：
% v! I! T9 [7 E3 ]1 r3 X( o4 X+ \
, i0 G  w/ u% Q' t' `" Y: J　　1、调用该模块时，只需要传递记录集和每页显示的记录的条数；
　　2、可以点击链接进行翻页，也可以直接输入页码，回车后翻页；
　　3、不要考虑文件名，程序的每次翻页都能在当前页面。
　　想清楚了上面3个问题，我们的公共翻页模块就可以动手了。

<%
0 y/ i- E- l0 v$ ?  t% C'+++++++++++++++++++++++++++++++++++++
'◆模块名称： 公共翻页模块
$ @0 u3 g2 E0 \% z3 N- ~% v'◆文 件 名： TurnPage.asp
& x+ s$ o; _  i, o% C+ d* v'◆传入参数： Rs_tmp (记录集), PageSize (每页显示的记录条数)
. g* ?: D3 \) {: g'◆输 出： 记录集翻页显示功能
  F% H# d5 L9 J7 U# H/ a7 U'+++++++++++++++++++++++++++++++++++++
. i& h5 x3 c& j8 ~; m'
+ R. z: F" j' z  u1 ?; A3 r' v6 vSub TurnPage(ByRef Rs_tmp,PageSize) 'Rs_tmp 记录集 ; PageSize 每页显示的记录条数;
Dim TotalPage '总页数
Dim PageNo '当前显示的是第几页
Dim RecordCount '总记录条数
Rs_tmp.PageSize = PageSize
RecordCount = Rs_tmp.RecordCount
TotalPage = INT(RecordCount / PageSize * -1)*-1
" L/ m0 \, @4 F, TPageNo = Request.QueryString ("PageNo")
; i2 H# t% i! o9 d" `1 f'直接输入页数跳转；
If Request.Form("PageNo")<>"" Then PageNo = Request.Form("PageNo")
0 ^6 i$ W% `+ h'如果没有选择第几页，则默认显示第一页；
& |( v% J3 d+ @* J+ MIf PageNo = "" then PageNo = 1
3 ]+ a7 c7 x2 p% U. [If RecordCount <> 0 then
9 b8 @3 T$ V/ F* u3 PRs_tmp.AbsolutePage = PageNo
End If
# ?6 m4 {6 y, D4 T  r' u
6 t2 Z3 L, _) P$ ^! P  T- k& n'获取当前文件名，使得每次翻页都在当前页面进行；
$ U) z# O* v: ~9 \0 j+ FDim fileName,postion
5 a5 e9 m, L4 V1 U- U, QfileName = Request.ServerVariables("script_name")
postion = InstrRev(fileName,"/")+1
'取得当前的文件名称，使翻页的链接指向当前文件；
7 _5 M* w- \6 R$ TfileName = Mid(fileName,postion)
4 |- }2 @  F3 h& U, |) m& O%>
" ~3 [: i8 X. y: [0 b9 [" ?' _<table border=0 width='100%'>
<tr>
<td align=left> 总页数：<font color=#ff3333><%=TotalPage%></font>页
8 C& g1 X7 n  c7 c当前第<font color=#ff3333><%=PageNo%></font>页</td>
<td align="right">
<%If RecordCount = 0 or TotalPage = 1 Then
Response.Write "首页|前页|后页|末页"
Else%>
<a href="<%=fileName%>?PageNo=1">首页|</a>
6 t. b+ C) G/ m0 ?" Y<%If PageNo - 1 = 0 Then
Response.Write "前页|"
Else%>
% W2 u8 A! G: o3 q+ C" _<a href="<%=fileName%>?PageNo=<%=PageNo-1%>">前页|</a>
<%End If
5 K; _3 j; ~6 Z
If PageNo+1 > TotalPage Then
Response.Write "后页|"
Else%>
<a href="<%=fileName%>?PageNo=<%=PageNo+1%>">后页|</a>
<%End If%>
- A& `: P1 q/ L. n' R! \  m
<a href="<%=fileName%>?PageNo=<%=TotalPage%>">末页</a>
<%End If%></td>
<td width=95>转到第
<%If TotalPage = 1 Then%>
<input type=text name=PageNo size=3 readonly disabled style="background:#d3d3d3">
" L7 p0 e5 B: c" z9 p8 ~<%Else%>
& u2 }' J5 S7 ]+ h<input type=text name=PageNo size=3 value="" title=请输入页号,然后回车>
<%End If%>页
/ c0 ]# ~+ V$ o. Y0 f# J</td>
+ l0 a, Y( s2 s, d  h! N</tr>
</table>
# W! Y( @& y( }3 ]0 R. w* P# p; J. n. @<%End Sub%>
9 c: ?( N( G& I% \" [, o( Y" P
' y( z4 `+ b  [+ e! c　　当然，大家可以把翻页的链接做成图片按钮，这样的话也面就更加美观了。
　　调用方法:
　　1、在程序开始或要使用翻页的地方包含翻页模块文件；
* q. ]  o) D$ p2 T　　2、定义变量：RowCount，每页显示的记录条数
　　3、调用翻页过程：Call TurnPage(记录集,RowCount)
　　4、在Do While 循环输出记录集的条件中加上" RowCount > 0 " 条件
1 G) |, S& q- g0 g　　5、在循环结束 "Loop前" 加上： RowCount = RowCount - 1
( j/ r. s3 u* [' Q0 h
* Q, \& ^# h9 F1 _  h'-----------------------------------------------------
7 @% K6 i- Q  L  z. A6 m8 O调用范例：
7 @7 |8 ^% |6 O5 U0 k$ O文件名：News.asp
, P5 S/ y& n/ s. F# q. O* n6 c<%
* x0 O/ w9 }* q2 a* ]4 hDim Conn，Rs_News
$ W7 ~- [7 o/ h, l6 K- F4 ?3 A) S, JSet Conn = server.CreateObject("ADODB.CONNECTION")
Conn.Open "cpm","cpm","cpm"
8 d6 r0 n0 }$ ~. ^
Dim Sql
Sql = "Select * from News"
Set Rs_News = Server.CreateObject("ADODB.RECORDSET")
Rs_News.Open Sql,Conn,1,3 '获取的记录集
" n! E3 o7 ?) c5 X
/ b# L& ]2 M1 |1 `2 r, w/ A5 j'公共翻页模块开始%>
( ?, m8 u7 [5 X9 r' k# ?<!--#include file=../Public/TurnPage.asp-->
<%
Dim RowCount
RowCount = 10 '每页显示的记录条数
Call TurnPage(Rs_News,RowCount)
'公共翻页模块结束%>

& b* U* M, U4 _5 `9 k<table width=100%>
" I. h/ d! u4 I; T<tr>
1 D6 R+ l  @; Y& d+ w' c3 t  J<td>新闻编号</td>
<td>新闻标题</td>
' X6 t7 [6 \" _0 ~# b<td>发布日期</td>
<tr>
2 r1 o  G' j, R4 P9 M<%
: Q" ^0 E& K) k. KIf Not Rs_News.eof
Do while Not Rs_News.eof and RowCount>0
%>
- w4 S5 Q  @" J6 m<tr>
' u' b5 e* e* W2 w/ [4 l<td><%=Rs_News("ID")%></td>
$ C$ C4 k! d2 ~( `0 a) {7 E( z<td><%=Rs_News("Name")%></td>
<td><%=Rs_News("Date")%></td>
<tr>
2 V- X4 q" P- B  e7 \<%
3 A: \7 d6 Z' L: ~$ m6 _RowCount = RowCount - 1
Rs_News.MoveNext
Loop
2 Y1 b7 @7 _+ N4 ZEnd If
%>