ASP通用分页代码

帅哥

在大型的ASP项目中，很多的页面都涉及到翻页功能。如果每个页面都写一个翻页的程序的话，这样的工作即降低了工作效率，也不利于工程的模块化，不能使代码重用。因此，把翻页这样的功能模块化是很有必要的。
$ e: J, Q* m  e) P+ \/ y* ?
5 J$ S! C( f4 M0 y4 V　　设计方法：

1 T* `, h! {4 Q/ o: @) h8 H　　1、调用该模块时，只需要传递记录集和每页显示的记录的条数；
% P# P- v3 ~; M8 R" L$ @　　2、可以点击链接进行翻页，也可以直接输入页码，回车后翻页；
  C9 C* A; R# O9 F9 o6 P2 T: {$ Z. r　　3、不要考虑文件名，程序的每次翻页都能在当前页面。
$ R3 k0 Z! o/ C8 m" I3 @　　想清楚了上面3个问题，我们的公共翻页模块就可以动手了。

<%
- q' @7 v$ E2 d& h& H& a3 V'+++++++++++++++++++++++++++++++++++++
3 x- f* k" u. E, l4 V'◆模块名称： 公共翻页模块
* C0 h' ]' {: x3 [( Y'◆文 件 名： TurnPage.asp
! k' U2 d4 h4 X" L; X'◆传入参数： Rs_tmp (记录集), PageSize (每页显示的记录条数)
'◆输 出： 记录集翻页显示功能
" d. r: ]7 c* k1 `; M6 f3 f3 T'+++++++++++++++++++++++++++++++++++++
, W$ y$ Y2 v1 _+ O'
6 g9 j' g; X) _" MSub TurnPage(ByRef Rs_tmp,PageSize) 'Rs_tmp 记录集 ; PageSize 每页显示的记录条数;
& w/ w' v+ y2 \! L8 `# A! I/ ]# l. yDim TotalPage '总页数
Dim PageNo '当前显示的是第几页
Dim RecordCount '总记录条数
% K+ @3 Y1 E! c# P1 {5 oRs_tmp.PageSize = PageSize
4 x, y5 a' v! zRecordCount = Rs_tmp.RecordCount
' |, g7 o9 A  U5 V( cTotalPage = INT(RecordCount / PageSize * -1)*-1
/ N9 T: R$ y, m9 Y# V# h, ]( rPageNo = Request.QueryString ("PageNo")
3 u( r; K2 B0 }! B8 q  A9 g'直接输入页数跳转；
) l) q* N: B) K8 wIf Request.Form("PageNo")<>"" Then PageNo = Request.Form("PageNo")
3 D4 [3 d# @# x) |: r* q# D) m5 `'如果没有选择第几页，则默认显示第一页；
If PageNo = "" then PageNo = 1
If RecordCount <> 0 then
1 }$ R; K5 e# k5 w% k& dRs_tmp.AbsolutePage = PageNo
$ U5 ?: S$ q$ hEnd If
# ?' }2 @' R( n3 ?  d
% A! I) W2 t2 f  y% T5 z'获取当前文件名，使得每次翻页都在当前页面进行；
Dim fileName,postion
' o4 |" J5 x) R+ P# gfileName = Request.ServerVariables("script_name")
% n7 y8 e$ h+ E+ npostion = InstrRev(fileName,"/")+1
7 m' O* U3 \) |; ~6 g1 L0 A'取得当前的文件名称，使翻页的链接指向当前文件；
fileName = Mid(fileName,postion)
% h7 _  F: }) d9 N" ~% ~" q%>
+ l! B. E' U8 V  J4 |5 R<table border=0 width='100%'>
, |* X" M* P' J, C- L) ^/ [% c& }<tr>
<td align=left> 总页数：<font color=#ff3333><%=TotalPage%></font>页
当前第<font color=#ff3333><%=PageNo%></font>页</td>
1 s& _; u6 X5 I* _% d<td align="right">
) L1 ^+ t0 y: n0 ?4 B<%If RecordCount = 0 or TotalPage = 1 Then
Response.Write "首页|前页|后页|末页"
& Y7 n( W5 w2 B  p1 R% Q6 ?- y7 KElse%>
) M4 o" Z' u0 ^; B9 }* Q<a href="<%=fileName%>?PageNo=1">首页|</a>
4 u2 s2 h& k) Q; I<%If PageNo - 1 = 0 Then
Response.Write "前页|"
# E# D# ~' s% z" s* J& YElse%>
4 g  }' c( C4 {<a href="<%=fileName%>?PageNo=<%=PageNo-1%>">前页|</a>
4 H& [$ O; |1 N# a<%End If

2 q8 [, y6 r& A0 R4 c4 {; uIf PageNo+1 > TotalPage Then
Response.Write "后页|"
/ `+ ?! `8 Q8 ]# \# I+ I* rElse%>
<a href="<%=fileName%>?PageNo=<%=PageNo+1%>">后页|</a>
) w# X: p! g4 o, q# a* O, e<%End If%>

<a href="<%=fileName%>?PageNo=<%=TotalPage%>">末页</a>
6 K( v2 i7 E6 v4 t7 ?* g  a" ^4 `<%End If%></td>
<td width=95>转到第
<%If TotalPage = 1 Then%>
1 |2 g5 L, Y  T: z) N4 m<input type=text name=PageNo size=3 readonly disabled style="background:#d3d3d3">
0 Q" p2 w6 L. @# D) V<%Else%>
8 s5 T- x0 C/ y1 _<input type=text name=PageNo size=3 value="" title=请输入页号,然后回车>
- K3 C* }- k0 `+ `9 D4 t5 R- F5 C<%End If%>页
# q2 l7 D( f2 _# o; ]$ ~' _, j</td>
</tr>
6 W" I  Z  N( }1 C</table>
* Z, ]5 w( W! M! E<%End Sub%>
- }+ r5 D1 Y2 F1 n$ s
  P- h8 I' Z2 E6 H　　当然，大家可以把翻页的链接做成图片按钮，这样的话也面就更加美观了。
　　调用方法:
8 e* p# Z; v, x8 U) O/ S　　1、在程序开始或要使用翻页的地方包含翻页模块文件；
! d) M1 @. p4 h& P) F$ h　　2、定义变量：RowCount，每页显示的记录条数
6 j; G9 m$ b6 t8 O　　3、调用翻页过程：Call TurnPage(记录集,RowCount)
. t8 z8 _8 `+ i5 K- r6 ?. D( Y* H　　4、在Do While 循环输出记录集的条件中加上" RowCount > 0 " 条件
6 W& P9 c  \0 f* W4 g* G( L　　5、在循环结束 "Loop前" 加上： RowCount = RowCount - 1
% m4 e8 s( y# i8 i1 F% C
'-----------------------------------------------------
+ r5 h! ^' I8 A8 r调用范例：
  \" J& C' M5 J8 N文件名：News.asp
0 S+ p6 R- t' }  F<%
5 _8 @4 ^. p) E' }Dim Conn，Rs_News
* n2 m$ v: G" `: r% H& gSet Conn = server.CreateObject("ADODB.CONNECTION")
! i3 [3 ], h! L) |, [4 A, LConn.Open "cpm","cpm","cpm"
$ `* X  L+ r! `' ~% H* j: F
Dim Sql
# ]% v7 |- w! g1 I; kSql = "Select * from News"
& L, p( S9 n: [  [Set Rs_News = Server.CreateObject("ADODB.RECORDSET")
Rs_News.Open Sql,Conn,1,3 '获取的记录集

  a2 r1 t1 F" L' c'公共翻页模块开始%>
<!--#include file=../Public/TurnPage.asp-->
" i, g5 j% b1 H! b" ~. s4 b7 U9 C<%
Dim RowCount
+ b! V( Q2 w! yRowCount = 10 '每页显示的记录条数
/ v, O/ }( ?) ACall TurnPage(Rs_News,RowCount)
0 T0 e" L, v. z2 }: q/ l+ y/ f. X: _'公共翻页模块结束%>

' [- K. X' w9 z9 ^8 E- }2 d<table width=100%>
1 F, m7 h+ ]7 g3 ~<tr>
* `( [- g) d# j) s9 Y( o* O0 t/ w<td>新闻编号</td>
<td>新闻标题</td>
<td>发布日期</td>
- ]) B9 m$ a$ j2 S% R: N<tr>
% w7 @- _3 Z& Y6 n2 e+ H2 T7 v<%
' z) q& Q6 K. `0 c/ ]If Not Rs_News.eof
& I& `( n7 a& L1 N. r/ u& kDo while Not Rs_News.eof and RowCount>0
7 _; R2 |- ^4 r! `%>
<tr>
  f, J: ~% W* H/ C* R. i. z<td><%=Rs_News("ID")%></td>
  k- H( t* o# z% E<td><%=Rs_News("Name")%></td>
7 n- e# J, [: g$ h! \<td><%=Rs_News("Date")%></td>
# ]4 t: C6 Y6 a  W<tr>
% O. Y  W3 D# T<%
& T8 c+ R" _% X, S8 `RowCount = RowCount - 1
  R5 @/ [4 T; H  u; q" oRs_News.MoveNext
Loop
End If
%>
' k0 V+ t0 J4 Q' M8 i! e: a$ [