ASP通用分页代码

帅哥

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

　　设计方法：

: ]: |: c' Z" b# X# g3 `, t　　1、调用该模块时，只需要传递记录集和每页显示的记录的条数；
　　2、可以点击链接进行翻页，也可以直接输入页码，回车后翻页；
　　3、不要考虑文件名，程序的每次翻页都能在当前页面。
　　想清楚了上面3个问题，我们的公共翻页模块就可以动手了。

<%
3 }$ v1 [" H5 ?'+++++++++++++++++++++++++++++++++++++
$ S  y8 m4 u) j: T3 j'◆模块名称： 公共翻页模块
' {9 R! P9 U2 z$ i'◆文 件 名： TurnPage.asp
0 |% m: c% H$ s7 b'◆传入参数： Rs_tmp (记录集), PageSize (每页显示的记录条数)
'◆输 出： 记录集翻页显示功能
) g- f9 e; }+ c9 E! a/ N'+++++++++++++++++++++++++++++++++++++
" n, D$ y- W$ z5 P" A'
Sub TurnPage(ByRef Rs_tmp,PageSize) 'Rs_tmp 记录集 ; PageSize 每页显示的记录条数;
6 k3 X7 ^0 ~3 A% d( QDim TotalPage '总页数
( e3 k0 w8 N9 o6 Q' v% ~$ V1 ], D% TDim PageNo '当前显示的是第几页
0 S2 B# n( R6 R7 y& qDim RecordCount '总记录条数
Rs_tmp.PageSize = PageSize
RecordCount = Rs_tmp.RecordCount
TotalPage = INT(RecordCount / PageSize * -1)*-1
8 |. U& a2 j, ^6 h# O0 ZPageNo = Request.QueryString ("PageNo")
! |# c  a9 @9 K  E+ Q, t/ f'直接输入页数跳转；
+ |: q. F# q; X4 m8 vIf Request.Form("PageNo")<>"" Then PageNo = Request.Form("PageNo")
& v9 D  s: k' a! Y, K0 n) U. c'如果没有选择第几页，则默认显示第一页；
If PageNo = "" then PageNo = 1
, \6 K8 X! L; h' F! W8 b! G% j! ~If RecordCount <> 0 then
5 n1 l% j9 E$ n' t8 \( H6 FRs_tmp.AbsolutePage = PageNo
End If
6 M7 }" }8 A8 ?
'获取当前文件名，使得每次翻页都在当前页面进行；
9 _" T+ Q' `! b1 XDim fileName,postion
fileName = Request.ServerVariables("script_name")
$ E' H  E$ h, n, X$ I4 spostion = InstrRev(fileName,"/")+1
2 Y: F3 D2 j0 [6 s+ }' {, v'取得当前的文件名称，使翻页的链接指向当前文件；
! U9 W1 S: G2 O$ x4 EfileName = Mid(fileName,postion)
%>
<table border=0 width='100%'>
<tr>
6 S, _7 p$ W$ P7 e<td align=left> 总页数：<font color=#ff3333><%=TotalPage%></font>页
当前第<font color=#ff3333><%=PageNo%></font>页</td>
7 W( X/ v- H3 k: q0 Z0 R<td align="right">
<%If RecordCount = 0 or TotalPage = 1 Then
3 H. q# e: U% t% s" d- |7 \Response.Write "首页|前页|后页|末页"
* k  G3 n4 u& N$ }. VElse%>
' U* J6 e! F: b7 _6 _# S<a href="<%=fileName%>?PageNo=1">首页|</a>
<%If PageNo - 1 = 0 Then
Response.Write "前页|"
Else%>
& i' h* s; L' ^3 `* s<a href="<%=fileName%>?PageNo=<%=PageNo-1%>">前页|</a>
% b8 u$ n) F0 P. e<%End If

If PageNo+1 > TotalPage Then
Response.Write "后页|"
; x0 S8 U; V* O+ yElse%>
+ Y/ O8 J1 ]3 i. `& R<a href="<%=fileName%>?PageNo=<%=PageNo+1%>">后页|</a>
1 U2 A' ~/ Q: Q1 g& G$ ?2 W3 \6 L  d& I<%End If%>
3 ^* u: a' h5 [' f  h2 q9 m
! b" x4 b9 ~( {1 H, u2 V5 N1 H<a href="<%=fileName%>?PageNo=<%=TotalPage%>">末页</a>
) O9 R" R! Y9 W4 z, e: k5 C<%End If%></td>
6 o$ I# Q+ B, z* s# o1 H<td width=95>转到第
<%If TotalPage = 1 Then%>
<input type=text name=PageNo size=3 readonly disabled style="background:#d3d3d3">
<%Else%>
" s0 q" E. Q' H+ c! B3 F9 r<input type=text name=PageNo size=3 value="" title=请输入页号,然后回车>
' ^1 X# ?3 y5 |$ M/ o! {# v; t, ^<%End If%>页
</td>
& O9 W. H' f2 U6 h' T</tr>
</table>
<%End Sub%>
5 H! p. K" K3 e" e
1 m& u- ~1 T$ i　　当然，大家可以把翻页的链接做成图片按钮，这样的话也面就更加美观了。
　　调用方法:
3 q$ l" _% S  F　　1、在程序开始或要使用翻页的地方包含翻页模块文件；
+ T, F. O1 i# ?! A* O) H: p+ g: h　　2、定义变量：RowCount，每页显示的记录条数
: @: c- O4 `  L1 x, j" i, ~+ Z　　3、调用翻页过程：Call TurnPage(记录集,RowCount)
　　4、在Do While 循环输出记录集的条件中加上" RowCount > 0 " 条件
　　5、在循环结束 "Loop前" 加上： RowCount = RowCount - 1

5 e) x, e' S. w'-----------------------------------------------------
/ t. C; W1 P: v* {调用范例：
4 [# W6 L. E. z文件名：News.asp
<%
7 X' j# [% M5 o8 a3 V4 ^( g2 [Dim Conn，Rs_News
Set Conn = server.CreateObject("ADODB.CONNECTION")
* ]1 G0 N0 y8 p) F/ |Conn.Open "cpm","cpm","cpm"

$ K6 k+ t1 n9 P) j8 H! U# gDim Sql
- C" z/ B$ u& ?& v$ ySql = "Select * from News"
Set Rs_News = Server.CreateObject("ADODB.RECORDSET")
Rs_News.Open Sql,Conn,1,3 '获取的记录集
3 \1 s) M- Y4 P$ o
: D+ J5 l) I( S- z( J# n5 J# C'公共翻页模块开始%>
+ B. H# C$ `6 n% P<!--#include file=../Public/TurnPage.asp-->
<%
0 u1 w+ s, o' TDim RowCount
RowCount = 10 '每页显示的记录条数
Call TurnPage(Rs_News,RowCount)
'公共翻页模块结束%>

<table width=100%>
<tr>
<td>新闻编号</td>
, d* W2 Y' T9 m4 d+ w& N<td>新闻标题</td>
# M) u, S" g* R0 k( p8 [5 Z<td>发布日期</td>
7 Y% B4 r. ]: W0 @1 I$ ]1 I( @% R9 k<tr>
<%
* E* n( H& C6 \2 N5 x* ^1 aIf Not Rs_News.eof
  u- M8 v7 }( Q' A# vDo while Not Rs_News.eof and RowCount>0
2 z: D2 {- j8 b# w, F+ b0 |%>
. y9 ~- C9 E! I4 E2 Z" K0 f<tr>
) d4 ~/ E9 F" w2 I<td><%=Rs_News("ID")%></td>
% ]" e3 n" \! A1 s1 R; B# K$ D<td><%=Rs_News("Name")%></td>
. p! P3 z& ]* ~$ j+ u- J0 f<td><%=Rs_News("Date")%></td>
8 w$ {- ^2 @" V/ V1 e4 q<tr>
9 A* g! Q* y0 P, H<%
RowCount = RowCount - 1
4 ]# Y! z  o: WRs_News.MoveNext
# u9 P) p6 v3 Z" e, K* B% {: {8 }Loop
# E0 S6 v, Q/ B4 w3 KEnd If
3 x( J& U; W( ^; _0 Y%>