ASP通用分页代码

帅哥

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

　　设计方法：

) _1 Y& e& S. I3 n) F& g+ e9 q& ^　　1、调用该模块时，只需要传递记录集和每页显示的记录的条数；
　　2、可以点击链接进行翻页，也可以直接输入页码，回车后翻页；
　　3、不要考虑文件名，程序的每次翻页都能在当前页面。
4 ?/ }. [1 ^1 S. n% |7 t0 f( \　　想清楚了上面3个问题，我们的公共翻页模块就可以动手了。
% k& P7 a' i) k# J0 b8 J
<%
'+++++++++++++++++++++++++++++++++++++
* A7 n2 c3 {; S+ d9 I! h  D' y'◆模块名称： 公共翻页模块
6 W$ O, t; c4 G+ {'◆文 件 名： TurnPage.asp
'◆传入参数： Rs_tmp (记录集), PageSize (每页显示的记录条数)
$ ]. t& U+ e* C'◆输 出： 记录集翻页显示功能
'+++++++++++++++++++++++++++++++++++++
& v6 d% t% R  G: \  q% |9 F'
Sub TurnPage(ByRef Rs_tmp,PageSize) 'Rs_tmp 记录集 ; PageSize 每页显示的记录条数;
- s4 n: S+ T% u  D8 RDim TotalPage '总页数
0 Y# s1 J$ T3 d: L/ \5 N4 s; k# r  u, gDim PageNo '当前显示的是第几页
& F; n4 n+ Y9 c5 {Dim RecordCount '总记录条数
1 v5 A& r6 M; x# `, ^Rs_tmp.PageSize = PageSize
RecordCount = Rs_tmp.RecordCount
& M" h5 C' S) y2 I, XTotalPage = INT(RecordCount / PageSize * -1)*-1
PageNo = Request.QueryString ("PageNo")
) ^7 v2 @; [0 b8 }5 Q$ Z  r3 {'直接输入页数跳转；
" A; ^( t- J9 VIf Request.Form("PageNo")<>"" Then PageNo = Request.Form("PageNo")
'如果没有选择第几页，则默认显示第一页；
If PageNo = "" then PageNo = 1
# r+ D0 [& d; SIf RecordCount <> 0 then
Rs_tmp.AbsolutePage = PageNo
; n# W) Q7 {7 Z! f# U4 R% pEnd If

'获取当前文件名，使得每次翻页都在当前页面进行；
( |( ?  ]# Z. u+ `5 Y4 bDim fileName,postion
( J* K. M! G* @. p  a0 X+ nfileName = Request.ServerVariables("script_name")
) r9 h& }& ?1 F( t9 K1 upostion = InstrRev(fileName,"/")+1
'取得当前的文件名称，使翻页的链接指向当前文件；
3 b( a( f+ N& B( W1 ufileName = Mid(fileName,postion)
%>
<table border=0 width='100%'>
* u' Q6 `$ v$ G8 C9 G$ g9 m7 m: O, \) b<tr>
<td align=left> 总页数：<font color=#ff3333><%=TotalPage%></font>页
当前第<font color=#ff3333><%=PageNo%></font>页</td>
8 v( _4 ]) m  b: R5 o' W) V<td align="right">
3 y' E! y4 t5 T" I  [" Z: v9 ^<%If RecordCount = 0 or TotalPage = 1 Then
& W; b* m. c/ D; ?& R( E8 J/ f" `Response.Write "首页|前页|后页|末页"
, A. _/ G7 H+ B4 J, U2 p( kElse%>
  u3 _# n  _7 \+ {2 \<a href="<%=fileName%>?PageNo=1">首页|</a>
8 v' }+ q7 N6 |) s( r<%If PageNo - 1 = 0 Then
Response.Write "前页|"
Else%>
<a href="<%=fileName%>?PageNo=<%=PageNo-1%>">前页|</a>
<%End If
( Z" _/ G$ j  M
. T! t6 d* R& J) N2 y( A$ c5 o4 |/ nIf PageNo+1 > TotalPage Then
3 b) n5 z( M$ t. B. k$ \8 W  Z, kResponse.Write "后页|"
Else%>
) \: j- ^' A/ v6 g7 A<a href="<%=fileName%>?PageNo=<%=PageNo+1%>">后页|</a>
<%End If%>

<a href="<%=fileName%>?PageNo=<%=TotalPage%>">末页</a>
4 F( ^' l# x  ^+ ^4 Z<%End If%></td>
1 U! ~; ~2 c+ ?0 }<td width=95>转到第
<%If TotalPage = 1 Then%>
<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>
</tr>
, z& I; I: j  W7 a6 ]9 g</table>
; L/ c- X' s. A% [; j6 `8 J5 m+ U<%End Sub%>

　　当然，大家可以把翻页的链接做成图片按钮，这样的话也面就更加美观了。
; U3 d9 X. v" {  t5 o7 X　　调用方法:
! Q9 U  _8 k: q5 S* V　　1、在程序开始或要使用翻页的地方包含翻页模块文件；
　　2、定义变量：RowCount，每页显示的记录条数
, @/ E4 V5 C( a+ F3 o$ ^0 l9 z　　3、调用翻页过程：Call TurnPage(记录集,RowCount)
* i$ i% r7 T8 K+ E　　4、在Do While 循环输出记录集的条件中加上" RowCount > 0 " 条件
& B1 w( \6 L+ a　　5、在循环结束 "Loop前" 加上： RowCount = RowCount - 1
- {3 o+ k. o7 ^7 Z& _( f" J. y& S$ M
' V0 v+ O! t: j3 L4 X'-----------------------------------------------------
% w3 z5 D' r+ S+ z调用范例：
文件名：News.asp
<%
Dim Conn，Rs_News
Set Conn = server.CreateObject("ADODB.CONNECTION")
7 ?; ^0 i& h  f7 a9 T" GConn.Open "cpm","cpm","cpm"

) r" J4 |9 R* v9 {4 _) ADim Sql
+ P( N2 B- G  ?Sql = "Select * from News"
Set Rs_News = Server.CreateObject("ADODB.RECORDSET")
/ c# F) L; N) zRs_News.Open Sql,Conn,1,3 '获取的记录集

" L6 b! j4 d1 ^+ S* w5 g3 \7 K'公共翻页模块开始%>
<!--#include file=../Public/TurnPage.asp-->
" @1 @) [! n3 X+ R: N<%
* v: b$ O( i$ x* v8 d# L2 bDim RowCount
2 l7 g% T" v$ W( K6 r* {RowCount = 10 '每页显示的记录条数
; ?) d) V! f* ], {6 {" qCall TurnPage(Rs_News,RowCount)
'公共翻页模块结束%>
1 z: x0 z9 Z* `: M! [
2 x( z" F1 p: @! a" j<table width=100%>
<tr>
<td>新闻编号</td>
<td>新闻标题</td>
- q# a/ R  O( _/ Y- i! Z/ I- i& m<td>发布日期</td>
3 r% C" q1 t4 r; K0 A4 i. Y" L! M<tr>
<%
If Not Rs_News.eof
Do while Not Rs_News.eof and RowCount>0
% B, D% s8 p+ B- b. \%>
' `; ]" j' U( {, z5 Q" J+ T# `<tr>
* @1 ~3 ^; O# W2 V( D6 }<td><%=Rs_News("ID")%></td>
! a' }1 b$ ^; ]* m1 V<td><%=Rs_News("Name")%></td>
<td><%=Rs_News("Date")%></td>
. T2 t9 Y; D% {. I1 B<tr>
  Y  W% I  |/ {+ h7 j<%
, ]; r9 q% P- _% }* K# PRowCount = RowCount - 1
2 a0 S& k- i- y  vRs_News.MoveNext
6 ]8 e+ d. @% d2 }0 nLoop
End If
- {' K) w" b+ U3 T9 x0 p! o%>