ASP通用分页代码

帅哥

在大型的ASP项目中，很多的页面都涉及到翻页功能。如果每个页面都写一个翻页的程序的话，这样的工作即降低了工作效率，也不利于工程的模块化，不能使代码重用。因此，把翻页这样的功能模块化是很有必要的。
, O! p2 L9 R5 Q, [
2 z7 i" W0 ^* X) X7 l　　设计方法：
/ L; R; S8 g: a. J# J/ k( {
9 @; n1 l, |  J) ^) M1 N4 C4 c　　1、调用该模块时，只需要传递记录集和每页显示的记录的条数；
; K+ r* |+ Z; [4 @& y$ o1 t　　2、可以点击链接进行翻页，也可以直接输入页码，回车后翻页；
5 r" G) I6 H  ^& X+ Q　　3、不要考虑文件名，程序的每次翻页都能在当前页面。
4 U* w, R- S7 }" S. Z　　想清楚了上面3个问题，我们的公共翻页模块就可以动手了。
. r& |/ T! {- A2 Q1 j
<%
'+++++++++++++++++++++++++++++++++++++
* A) y* y9 S0 N2 ?/ W- w- `'◆模块名称： 公共翻页模块
'◆文 件 名： TurnPage.asp
5 Q3 J6 U. v$ j+ N4 \'◆传入参数： Rs_tmp (记录集), PageSize (每页显示的记录条数)
3 a# a) [3 ?, w7 D9 b, Z  T'◆输 出： 记录集翻页显示功能
'+++++++++++++++++++++++++++++++++++++
1 S+ n$ E1 m* e% P$ j/ A+ S* X'
6 s. K+ w. r) h0 LSub TurnPage(ByRef Rs_tmp,PageSize) 'Rs_tmp 记录集 ; PageSize 每页显示的记录条数;
. _, U4 r4 K) E( R4 rDim TotalPage '总页数
Dim PageNo '当前显示的是第几页
Dim RecordCount '总记录条数
4 W9 h1 X5 Q% e# J0 q! I9 X+ @Rs_tmp.PageSize = PageSize
; Z2 l/ y9 Z$ o: pRecordCount = Rs_tmp.RecordCount
9 o% I) j7 ~% i" U$ F4 s9 ATotalPage = INT(RecordCount / PageSize * -1)*-1
PageNo = Request.QueryString ("PageNo")
/ Y; n- n! H( n'直接输入页数跳转；
If Request.Form("PageNo")<>"" Then PageNo = Request.Form("PageNo")
- \5 ^! P, T: T0 F- m& ]'如果没有选择第几页，则默认显示第一页；
If PageNo = "" then PageNo = 1
If RecordCount <> 0 then
Rs_tmp.AbsolutePage = PageNo
( j8 R, b: }$ L  o0 [End If

. N1 {3 J; h  D3 e- P'获取当前文件名，使得每次翻页都在当前页面进行；
Dim fileName,postion
fileName = Request.ServerVariables("script_name")
$ v. @+ G# t* k- c$ S" s6 mpostion = InstrRev(fileName,"/")+1
+ K5 C) @0 c2 b5 c2 f'取得当前的文件名称，使翻页的链接指向当前文件；
fileName = Mid(fileName,postion)
%>
<table border=0 width='100%'>
<tr>
<td align=left> 总页数：<font color=#ff3333><%=TotalPage%></font>页
7 W! \4 M" C: g' O2 ?* s5 L当前第<font color=#ff3333><%=PageNo%></font>页</td>
* M) a$ I# F5 v; f0 n<td align="right">
1 s' k5 p# f7 v" c# I* U6 ?" a% {; b<%If RecordCount = 0 or TotalPage = 1 Then
Response.Write "首页|前页|后页|末页"
3 u0 r0 x! ~* \7 oElse%>
<a href="<%=fileName%>?PageNo=1">首页|</a>
$ J" _3 H- [6 z% C" y/ q  {9 ]  L<%If PageNo - 1 = 0 Then
Response.Write "前页|"
: N, a8 w6 n3 D$ {4 D# R( cElse%>
<a href="<%=fileName%>?PageNo=<%=PageNo-1%>">前页|</a>
8 K7 y) b7 P2 I1 x# U! `<%End If
2 P- M& {1 w% ^8 H
  T0 v) ]) R* C. b$ f) B/ sIf PageNo+1 > TotalPage Then
Response.Write "后页|"
Else%>
<a href="<%=fileName%>?PageNo=<%=PageNo+1%>">后页|</a>
4 T% S' |, }: Q3 u% X  X<%End If%>
) @/ y9 A" _/ C6 T
<a href="<%=fileName%>?PageNo=<%=TotalPage%>">末页</a>
<%End If%></td>
( f( t9 J, [: `6 K0 ?7 G<td width=95>转到第
<%If TotalPage = 1 Then%>
<input type=text name=PageNo size=3 readonly disabled style="background:#d3d3d3">
<%Else%>
& k- g3 f8 {4 N( d. t<input type=text name=PageNo size=3 value="" title=请输入页号,然后回车>
" L! J8 g$ k; H3 Y  P<%End If%>页
$ N; S- z5 m* D* b3 c0 w, _: M</td>
, n$ f, m2 B- E0 m4 C  T# f0 X</tr>
0 n* v* z2 E/ [; m+ B' b</table>
, W; {# v& R  i% D. i<%End Sub%>
5 r3 u, l2 z+ V# d, Z+ ]
% s- v  M! b! t- |- |) X9 z! V　　当然，大家可以把翻页的链接做成图片按钮，这样的话也面就更加美观了。
　　调用方法:
　　1、在程序开始或要使用翻页的地方包含翻页模块文件；
, g" j  f3 M; Q6 M- e4 ?　　2、定义变量：RowCount，每页显示的记录条数
) V; F/ f+ E! ~( Z　　3、调用翻页过程：Call TurnPage(记录集,RowCount)
　　4、在Do While 循环输出记录集的条件中加上" RowCount > 0 " 条件
! h3 o" s# r/ S　　5、在循环结束 "Loop前" 加上： RowCount = RowCount - 1
3 V, m* R' M: w, T8 J! R1 J
'-----------------------------------------------------
$ a8 A1 J4 }; `( |4 {; R' Z' Y! o调用范例：
. ^8 d% R' i# I0 p4 A文件名：News.asp
8 M2 s2 ^" L" i<%
% v/ Y, c" E8 g. m/ C4 xDim Conn，Rs_News
Set Conn = server.CreateObject("ADODB.CONNECTION")
1 T- K0 T2 z3 U& l, L' E9 x3 ~Conn.Open "cpm","cpm","cpm"
6 m8 v  u- p( \2 @
, q4 y6 w/ v( Y/ r; `- T/ B( M+ {Dim Sql
Sql = "Select * from News"
Set Rs_News = Server.CreateObject("ADODB.RECORDSET")
) T5 O, j2 a' I- pRs_News.Open Sql,Conn,1,3 '获取的记录集

8 L# p7 i. {& o( ?7 {'公共翻页模块开始%>
2 N3 ~# A7 a5 t; p' O$ \- {<!--#include file=../Public/TurnPage.asp-->
<%
5 J$ L! e, U- {% U4 X7 aDim RowCount
RowCount = 10 '每页显示的记录条数
Call TurnPage(Rs_News,RowCount)
'公共翻页模块结束%>

! W) s( T/ i# H& P6 Z1 Z* b. f% i<table width=100%>
! `9 a9 w% Z8 u* I6 X<tr>
<td>新闻编号</td>
9 j5 ^6 H& M" U9 Q4 @<td>新闻标题</td>
  x# R+ ^8 @$ V9 H<td>发布日期</td>
<tr>
<%
If Not Rs_News.eof
Do while Not Rs_News.eof and RowCount>0
%>
9 W7 y: W* H; `5 r3 U<tr>
* Q6 o' X& _( `: y<td><%=Rs_News("ID")%></td>
0 w6 H( x$ h  |6 o" R% k3 a<td><%=Rs_News("Name")%></td>
4 J) F; _/ L& G4 n4 I1 e! c<td><%=Rs_News("Date")%></td>
$ B% J% x1 k0 b7 r0 b' R$ O) r<tr>
<%
RowCount = RowCount - 1
, A6 T/ N2 e9 r2 |$ C: g2 cRs_News.MoveNext
Loop
$ |7 z" _) d0 REnd If
, `# a8 o( p! T% F0 ?7 p9 H& O%>
) T5 {4 E$ T9 p) j* k; S/ W$ c