ASP通用分页代码

帅哥

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

1 d; B% j, U6 e" |　　设计方法：

　　1、调用该模块时，只需要传递记录集和每页显示的记录的条数；
1 [5 t! ]6 w! L  k. `2 C) i8 Q　　2、可以点击链接进行翻页，也可以直接输入页码，回车后翻页；
　　3、不要考虑文件名，程序的每次翻页都能在当前页面。
　　想清楚了上面3个问题，我们的公共翻页模块就可以动手了。
8 O$ i  P/ u' s8 G7 U6 K' c
* h- W, |: h2 ^. G  [/ G% u1 h<%
. T3 w  Y' Z- e2 m& ^'+++++++++++++++++++++++++++++++++++++
% A5 E7 B2 r0 W2 ^7 @'◆模块名称： 公共翻页模块
'◆文 件 名： TurnPage.asp
'◆传入参数： Rs_tmp (记录集), PageSize (每页显示的记录条数)
) v2 v$ A! f. K( I/ I0 S9 h3 n- R'◆输 出： 记录集翻页显示功能
'+++++++++++++++++++++++++++++++++++++
0 L% y) ^& Z" y4 U0 S3 b5 j  ~) b% s'
, f* P! M8 k: hSub TurnPage(ByRef Rs_tmp,PageSize) 'Rs_tmp 记录集 ; PageSize 每页显示的记录条数;
Dim TotalPage '总页数
: R3 t, h! X) J* {: ?1 EDim PageNo '当前显示的是第几页
Dim RecordCount '总记录条数
Rs_tmp.PageSize = PageSize
) g7 w4 ]1 b" Z* P+ dRecordCount = Rs_tmp.RecordCount
: Q5 o1 E* E. R6 R( \* JTotalPage = INT(RecordCount / PageSize * -1)*-1
: j; @+ l4 d* [: Q7 F) K) O5 R: FPageNo = Request.QueryString ("PageNo")
'直接输入页数跳转；
If Request.Form("PageNo")<>"" Then PageNo = Request.Form("PageNo")
2 E% K: P/ P9 h$ R$ j1 o9 i' j'如果没有选择第几页，则默认显示第一页；
" j- H' l/ I; ^4 t# q# zIf PageNo = "" then PageNo = 1
$ [, }+ R2 N+ QIf RecordCount <> 0 then
# m8 P& s( }2 wRs_tmp.AbsolutePage = PageNo
* ]4 M4 _: k7 e. Z7 P0 N+ d5 pEnd If

'获取当前文件名，使得每次翻页都在当前页面进行；
) b' E) x- e0 Q, _& i5 g- }Dim fileName,postion
4 A" A. ?4 H. [' U+ wfileName = Request.ServerVariables("script_name")
" @4 [' R$ R4 F% Z. k4 B- opostion = InstrRev(fileName,"/")+1
'取得当前的文件名称，使翻页的链接指向当前文件；
1 ~7 m+ y5 l7 q5 k, C! @1 GfileName = Mid(fileName,postion)
%>
& {  G4 B, M" n) J+ H2 D<table border=0 width='100%'>
. Z1 v' _% t+ m  n! ~/ J<tr>
+ i' M+ ]9 ]0 l5 P# v+ u<td align=left> 总页数：<font color=#ff3333><%=TotalPage%></font>页
0 q' @3 B9 v: H, ]1 x: {8 D7 S0 K) E当前第<font color=#ff3333><%=PageNo%></font>页</td>
<td align="right">
<%If RecordCount = 0 or TotalPage = 1 Then
Response.Write "首页|前页|后页|末页"
Else%>
, }! F+ H! z2 k4 J/ h5 ?0 p$ N<a href="<%=fileName%>?PageNo=1">首页|</a>
<%If PageNo - 1 = 0 Then
Response.Write "前页|"
8 v& ]1 t# I2 ?Else%>
<a href="<%=fileName%>?PageNo=<%=PageNo-1%>">前页|</a>
) o) z8 r8 Q1 C6 T# ~" A% `: M<%End If

If PageNo+1 > TotalPage Then
Response.Write "后页|"
Else%>
<a href="<%=fileName%>?PageNo=<%=PageNo+1%>">后页|</a>
<%End If%>

<a href="<%=fileName%>?PageNo=<%=TotalPage%>">末页</a>
<%End If%></td>
( S# v! i3 l6 @0 i7 g* A<td width=95>转到第
<%If TotalPage = 1 Then%>
, b  Y- n5 L  j9 H! M' X<input type=text name=PageNo size=3 readonly disabled style="background:#d3d3d3">
% h" L0 ], g# S8 {<%Else%>
2 ]; D  I) f9 W, P5 y<input type=text name=PageNo size=3 value="" title=请输入页号,然后回车>
3 K% h* p& m3 C) |8 n( k<%End If%>页
  w7 M1 W8 w9 z+ w. X7 G</td>
8 _5 I! i3 v# l* ]7 b</tr>
  G8 v) V  A2 P2 n1 v# ?</table>
* ?# M. |3 N$ X9 h<%End Sub%>

/ J- {! D1 C, T　　当然，大家可以把翻页的链接做成图片按钮，这样的话也面就更加美观了。
: X3 j" B2 K  l% F  w0 M0 _　　调用方法:
　　1、在程序开始或要使用翻页的地方包含翻页模块文件；
' L. X; d! J7 H8 H& o- x　　2、定义变量：RowCount，每页显示的记录条数
. F7 ^' B% ]# Z* q0 n　　3、调用翻页过程：Call TurnPage(记录集,RowCount)
5 d+ P8 p9 y  l( C. j　　4、在Do While 循环输出记录集的条件中加上" RowCount > 0 " 条件
　　5、在循环结束 "Loop前" 加上： RowCount = RowCount - 1
5 r" D  B# w( y! g, Z
7 I4 ~2 M5 `( Z$ l9 m'-----------------------------------------------------
调用范例：
文件名：News.asp
<%
Dim Conn，Rs_News
+ ~1 C) O* ~3 b, xSet Conn = server.CreateObject("ADODB.CONNECTION")
1 `. E9 j  g; o, H& TConn.Open "cpm","cpm","cpm"

Dim Sql
1 F; f8 f, N9 q! C2 sSql = "Select * from News"
Set Rs_News = Server.CreateObject("ADODB.RECORDSET")
0 D# Y% b; E% ]6 QRs_News.Open Sql,Conn,1,3 '获取的记录集

$ V% F( ?, S' X' [% @4 l9 s: W- ]+ z'公共翻页模块开始%>
7 ?, d! @4 y" ]7 Q& L<!--#include file=../Public/TurnPage.asp-->
( C' \# r3 }3 X2 \6 [5 E) k<%
Dim RowCount
4 o5 h1 g6 r/ }% ~! _RowCount = 10 '每页显示的记录条数
0 u* W* K$ H- S! V4 \. oCall TurnPage(Rs_News,RowCount)
'公共翻页模块结束%>

<table width=100%>
7 b+ M' k0 R; B3 ?: v! I<tr>
3 S! k0 H5 @9 |. ?4 m/ X( ]<td>新闻编号</td>
<td>新闻标题</td>
% E5 t; }- n' R+ n: W/ h- A<td>发布日期</td>
6 s" F% t" N: Y<tr>
, o* @) O0 ~  I1 A" I- m; }- U+ p<%
& w7 Q1 m9 ~* `) JIf Not Rs_News.eof
Do while Not Rs_News.eof and RowCount>0
%>
<tr>
<td><%=Rs_News("ID")%></td>
8 }. ~3 \! A( K0 q% L<td><%=Rs_News("Name")%></td>
/ Y7 ?& W7 H, r8 l; U$ Q4 H<td><%=Rs_News("Date")%></td>
" }3 s0 y& v1 g/ k2 N" d0 y<tr>
+ z# t. T# b! G) S; E<%
* Q) q0 h4 X3 s$ WRowCount = RowCount - 1
# |9 ^- ]& y7 k/ {Rs_News.MoveNext
Loop
8 Y# U* F: U9 I, ^End If
, _2 m* W* j  Y/ z3 ~, t" v%>