ASP通用分页代码

帅哥

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

) Q) ]' G( m( m# G7 |* e, z: Y　　设计方法：

& L) G! N' H8 z4 Y) s3 ~　　1、调用该模块时，只需要传递记录集和每页显示的记录的条数；
　　2、可以点击链接进行翻页，也可以直接输入页码，回车后翻页；
　　3、不要考虑文件名，程序的每次翻页都能在当前页面。
. |( w3 X( I6 p: P- ^5 S　　想清楚了上面3个问题，我们的公共翻页模块就可以动手了。

<%
3 |. n! S3 m( a! P8 ~7 G'+++++++++++++++++++++++++++++++++++++
'◆模块名称： 公共翻页模块
" R. P! s. _$ {, x8 A8 y9 k" M) l1 E'◆文 件 名： TurnPage.asp
'◆传入参数： Rs_tmp (记录集), PageSize (每页显示的记录条数)
) t8 R( z' v) k* T'◆输 出： 记录集翻页显示功能
'+++++++++++++++++++++++++++++++++++++
* b8 D8 P: x6 f% A4 b* ]1 l3 c. L( V'
Sub TurnPage(ByRef Rs_tmp,PageSize) 'Rs_tmp 记录集 ; PageSize 每页显示的记录条数;
; m+ Q, G  f3 I1 PDim TotalPage '总页数
Dim PageNo '当前显示的是第几页
Dim RecordCount '总记录条数
- P) v6 R. @, A; Q. h6 ]Rs_tmp.PageSize = PageSize
2 C' P4 ?9 w  qRecordCount = Rs_tmp.RecordCount
' P7 v. _$ k8 U# a/ RTotalPage = INT(RecordCount / PageSize * -1)*-1
PageNo = Request.QueryString ("PageNo")
( n! w- ~& m$ u7 J2 S'直接输入页数跳转；
, r9 J& m; p. @. q$ OIf Request.Form("PageNo")<>"" Then PageNo = Request.Form("PageNo")
'如果没有选择第几页，则默认显示第一页；
! Y& G( \& j& F/ F. P8 ^If PageNo = "" then PageNo = 1
If RecordCount <> 0 then
/ \0 y+ P9 n8 s4 k/ o( U; h) ~6 ORs_tmp.AbsolutePage = PageNo
End If
: K' M, U2 a! S0 U
% Z/ j2 }# l- o+ L'获取当前文件名，使得每次翻页都在当前页面进行；
Dim fileName,postion
7 x$ [5 I8 Z- A, j7 X6 O: `$ e: afileName = Request.ServerVariables("script_name")
) L! f; c; L2 D1 C: Y8 a: Y% R% Zpostion = InstrRev(fileName,"/")+1
'取得当前的文件名称，使翻页的链接指向当前文件；
fileName = Mid(fileName,postion)
0 K; N( e6 g, `0 L, j0 [, h3 H%>
0 }9 Y  ~0 f" c8 K: c% ~5 o<table border=0 width='100%'>
, U5 C4 p/ c! G% N- K: @<tr>
<td align=left> 总页数：<font color=#ff3333><%=TotalPage%></font>页
当前第<font color=#ff3333><%=PageNo%></font>页</td>
<td align="right">
<%If RecordCount = 0 or TotalPage = 1 Then
' w1 n+ K; A5 j8 CResponse.Write "首页|前页|后页|末页"
Else%>
' k1 f2 U. z* @# F1 i% J5 W7 H3 g<a href="<%=fileName%>?PageNo=1">首页|</a>
<%If PageNo - 1 = 0 Then
Response.Write "前页|"
Else%>
<a href="<%=fileName%>?PageNo=<%=PageNo-1%>">前页|</a>
+ x; a& J* }4 Z3 [; B<%End If
8 h6 U8 _: O) S* H9 B6 m) t
: ^- Z# A5 k6 r2 R+ [If PageNo+1 > TotalPage Then
/ Q+ @* N3 l) `- B" `( ]: Q+ DResponse.Write "后页|"
* Z9 }: Q6 o8 ZElse%>
) D. ]' g) J& ?<a href="<%=fileName%>?PageNo=<%=PageNo+1%>">后页|</a>
<%End If%>
$ ~, n  x$ u% V( Y
3 x2 |. g' D0 k) ~<a href="<%=fileName%>?PageNo=<%=TotalPage%>">末页</a>
) W3 E! P) B- i/ J<%End If%></td>
<td width=95>转到第
<%If TotalPage = 1 Then%>
<input type=text name=PageNo size=3 readonly disabled style="background:#d3d3d3">
7 {6 z/ H9 ]: D% K0 ]# f<%Else%>
<input type=text name=PageNo size=3 value="" title=请输入页号,然后回车>
6 h+ g( c# b* p; o% E4 k% t<%End If%>页
</td>
3 t. a" D' b- ~& ?" d</tr>
</table>
<%End Sub%>

5 O" t, ^* T2 [, N0 ]: P　　当然，大家可以把翻页的链接做成图片按钮，这样的话也面就更加美观了。
　　调用方法:
  G3 m: u8 O" Q6 ~　　1、在程序开始或要使用翻页的地方包含翻页模块文件；
- r# z- o0 m8 U$ x! c　　2、定义变量：RowCount，每页显示的记录条数
　　3、调用翻页过程：Call TurnPage(记录集,RowCount)
0 z3 T! Z( H; j: c' }, v) @　　4、在Do While 循环输出记录集的条件中加上" RowCount > 0 " 条件
　　5、在循环结束 "Loop前" 加上： RowCount = RowCount - 1

'-----------------------------------------------------
调用范例：
文件名：News.asp
/ x& z( f' T# k: F# Z# X<%
Dim Conn，Rs_News
Set Conn = server.CreateObject("ADODB.CONNECTION")
Conn.Open "cpm","cpm","cpm"
# ?4 D/ q" p' F$ p
3 h6 D8 a' s! a3 z& t9 JDim Sql
* j0 L  C: J% FSql = "Select * from News"
Set Rs_News = Server.CreateObject("ADODB.RECORDSET")
Rs_News.Open Sql,Conn,1,3 '获取的记录集

'公共翻页模块开始%>
<!--#include file=../Public/TurnPage.asp-->
<%
Dim RowCount
5 b% i/ Y0 f# L8 HRowCount = 10 '每页显示的记录条数
Call TurnPage(Rs_News,RowCount)
# o; f3 S5 X- ~/ ~'公共翻页模块结束%>

8 _! b. A# ^$ T# h7 C% z  Z<table width=100%>
<tr>
, l5 k4 Y$ V3 x+ R' U0 G0 e<td>新闻编号</td>
<td>新闻标题</td>
, G8 T$ h6 h; ]4 T- Y. ]$ C<td>发布日期</td>
<tr>
<%
! F( f, r0 C. ]* sIf Not Rs_News.eof
Do while Not Rs_News.eof and RowCount>0
( m/ T5 t5 P7 J6 v6 E" J%>
* |7 r# p2 |5 S- l) b  Y& L& H, d9 N<tr>
# O  A0 S* ?/ Y$ j/ J9 e% K; a<td><%=Rs_News("ID")%></td>
, z% t5 l  G# @$ ?: ^& a<td><%=Rs_News("Name")%></td>
<td><%=Rs_News("Date")%></td>
<tr>
% }) _2 A1 M, d; m: _/ s<%
RowCount = RowCount - 1
' r; h& p4 o+ I* x* aRs_News.MoveNext
9 y5 ?' L6 k' |) G& v, i" L. z& _Loop
+ e5 T3 P! a. ?3 b- F9 w9 I# y7 iEnd If
%>