ASP通用分页代码

帅哥

在大型的ASP项目中，很多的页面都涉及到翻页功能。如果每个页面都写一个翻页的程序的话，这样的工作即降低了工作效率，也不利于工程的模块化，不能使代码重用。因此，把翻页这样的功能模块化是很有必要的。
7 H" W* A7 w0 J* b) B
　　设计方法：
( m% R4 r% I. k  O1 Y$ }/ b, a
" @! h9 u8 u. \　　1、调用该模块时，只需要传递记录集和每页显示的记录的条数；
5 ?0 N$ J5 V8 r% d　　2、可以点击链接进行翻页，也可以直接输入页码，回车后翻页；
　　3、不要考虑文件名，程序的每次翻页都能在当前页面。
3 q; X  Z7 A0 g6 `( Q( x6 ~　　想清楚了上面3个问题，我们的公共翻页模块就可以动手了。
0 c- s' W9 _! D4 V/ j0 u
1 K2 Y4 T+ x, V3 |$ Q3 p$ l) C# J<%
'+++++++++++++++++++++++++++++++++++++
'◆模块名称： 公共翻页模块
'◆文 件 名： TurnPage.asp
0 R& s4 |* Z/ X5 b9 x1 @: Z  H1 l'◆传入参数： Rs_tmp (记录集), PageSize (每页显示的记录条数)
0 {1 b- J: @3 W5 J" R'◆输 出： 记录集翻页显示功能
, v7 o  @2 K: F, e  x'+++++++++++++++++++++++++++++++++++++
) r6 E0 b& y+ G- A+ H- Q'
Sub TurnPage(ByRef Rs_tmp,PageSize) 'Rs_tmp 记录集 ; PageSize 每页显示的记录条数;
% a$ z8 R) u- N8 n0 O! {& cDim TotalPage '总页数
* ~: ~7 r! F' G  }Dim PageNo '当前显示的是第几页
Dim RecordCount '总记录条数
% n7 Y" Z0 V' e2 O5 s5 XRs_tmp.PageSize = PageSize
5 x8 y) l- L% x2 J# O- A# [RecordCount = Rs_tmp.RecordCount
. y2 ^4 V9 c5 n0 P- B! f. l0 TTotalPage = INT(RecordCount / PageSize * -1)*-1
! C- T+ t& W$ ]; {PageNo = Request.QueryString ("PageNo")
! A/ @* o  W( e2 c9 N; T, v'直接输入页数跳转；
2 B8 j( Q" S+ s4 T  M) FIf Request.Form("PageNo")<>"" Then PageNo = Request.Form("PageNo")
'如果没有选择第几页，则默认显示第一页；
If PageNo = "" then PageNo = 1
; v+ }. ^7 k1 H, X* y% C8 fIf RecordCount <> 0 then
Rs_tmp.AbsolutePage = PageNo
End If

'获取当前文件名，使得每次翻页都在当前页面进行；
$ |5 J1 ]7 M2 `$ @' PDim fileName,postion
fileName = Request.ServerVariables("script_name")
$ t" E7 h+ d" X1 v* H1 E) qpostion = InstrRev(fileName,"/")+1
. A7 {3 A$ P3 T' [9 c'取得当前的文件名称，使翻页的链接指向当前文件；
/ k$ C1 z; q4 }" hfileName = Mid(fileName,postion)
%>
9 b6 t' m& R% ~0 m" o<table border=0 width='100%'>
" g- |) M* I- C1 q' P<tr>
<td align=left> 总页数：<font color=#ff3333><%=TotalPage%></font>页
8 z+ P3 f5 O, p0 U9 y! d. K2 j当前第<font color=#ff3333><%=PageNo%></font>页</td>
+ U9 m; ^* G1 t' R4 f<td align="right">
# ^+ m0 l/ A, a7 Q0 K0 M: f- E<%If RecordCount = 0 or TotalPage = 1 Then
Response.Write "首页|前页|后页|末页"
7 o$ S: D5 F" z: F' x8 zElse%>
4 ]1 u. X# y+ Q' J* |& U9 c+ c<a href="<%=fileName%>?PageNo=1">首页|</a>
<%If PageNo - 1 = 0 Then
' V% O) i1 |; sResponse.Write "前页|"
Else%>
4 e) G: d, Y8 _9 t<a href="<%=fileName%>?PageNo=<%=PageNo-1%>">前页|</a>
  m* \: L7 W/ P: z' [7 _<%End If
" k5 a& ]6 z+ C1 J, _; G7 Q
+ Z  h2 C7 R6 N7 eIf PageNo+1 > TotalPage Then
Response.Write "后页|"
Else%>
<a href="<%=fileName%>?PageNo=<%=PageNo+1%>">后页|</a>
+ c; m; ?8 R/ [$ N, p; J; |<%End If%>

  \5 X- B. P& b1 N<a href="<%=fileName%>?PageNo=<%=TotalPage%>">末页</a>
- w; v+ f( ^, j- V; [) u/ Y0 K<%End If%></td>
<td width=95>转到第
% C4 l% g8 s8 ^, m$ o<%If TotalPage = 1 Then%>
  I0 a) O- h- W% p# b8 \6 n<input type=text name=PageNo size=3 readonly disabled style="background:#d3d3d3">
<%Else%>
<input type=text name=PageNo size=3 value="" title=请输入页号,然后回车>
<%End If%>页
</td>
% ?! ^) Y3 v+ b8 f" w- {& F</tr>
8 `$ q. Q7 F/ @% ?* e</table>
5 Y  \" d; Z& W7 H4 v! Q<%End Sub%>

6 d# Q4 Z9 n& m　　当然，大家可以把翻页的链接做成图片按钮，这样的话也面就更加美观了。
　　调用方法:
　　1、在程序开始或要使用翻页的地方包含翻页模块文件；
　　2、定义变量：RowCount，每页显示的记录条数
/ V# F7 t! G" r' Q* F* n5 o　　3、调用翻页过程：Call TurnPage(记录集,RowCount)
6 P8 L! |% a/ ?" G3 P% w　　4、在Do While 循环输出记录集的条件中加上" RowCount > 0 " 条件
: d' F2 F0 h# m5 |　　5、在循环结束 "Loop前" 加上： RowCount = RowCount - 1

'-----------------------------------------------------
调用范例：
文件名：News.asp
& n+ @, J  S0 l- t& K<%
- `; I7 z7 E8 }, E/ _/ PDim Conn，Rs_News
Set Conn = server.CreateObject("ADODB.CONNECTION")
Conn.Open "cpm","cpm","cpm"

Dim Sql
Sql = "Select * from News"
Set Rs_News = Server.CreateObject("ADODB.RECORDSET")
Rs_News.Open Sql,Conn,1,3 '获取的记录集

  G3 l! c* u" w3 _" e- q'公共翻页模块开始%>
<!--#include file=../Public/TurnPage.asp-->
<%
Dim RowCount
RowCount = 10 '每页显示的记录条数
6 k# C6 ]' }* R/ P2 oCall TurnPage(Rs_News,RowCount)
'公共翻页模块结束%>

/ E: y" y# Y8 M4 H. S, h<table width=100%>
. U/ w$ Z+ H; H1 ~3 F$ W  @<tr>
: t  `* j3 y* X6 _' o/ S<td>新闻编号</td>
9 i/ k9 X8 l& S& [, l' u$ [5 X- E3 y<td>新闻标题</td>
8 \, }) S' o" S- ^7 y& U& S3 w: }* D<td>发布日期</td>
<tr>
6 [8 Y# J: \* C4 _8 L<%
: F8 g9 Y* d- S1 X& @3 TIf Not Rs_News.eof
Do while Not Rs_News.eof and RowCount>0
%>
<tr>
<td><%=Rs_News("ID")%></td>
<td><%=Rs_News("Name")%></td>
+ ?, N4 I9 I3 C1 c  u7 n! c' j<td><%=Rs_News("Date")%></td>
<tr>
<%
2 ?  E9 t  P, [8 X) W6 D" ]1 VRowCount = RowCount - 1
; |8 u5 D5 \7 @0 A) t; B  ARs_News.MoveNext
Loop
% f$ `+ \/ l+ V1 l9 u% \End If
, L7 W6 B8 X- r( p2 K+ t8 t' ^! w%>
5 E3 J0 o$ Y( j; e/ D$ o6 q