ASP通用分页代码

帅哥

在大型的ASP项目中，很多的页面都涉及到翻页功能。如果每个页面都写一个翻页的程序的话，这样的工作即降低了工作效率，也不利于工程的模块化，不能使代码重用。因此，把翻页这样的功能模块化是很有必要的。
' r2 r: @3 c3 u; J9 i9 b# ?* b2 M
) \% T+ p  |8 i8 w* m& r5 W　　设计方法：

　　1、调用该模块时，只需要传递记录集和每页显示的记录的条数；
7 S/ I8 i- v1 L5 e( Q7 X　　2、可以点击链接进行翻页，也可以直接输入页码，回车后翻页；
3 l) ?# O4 J- |3 e　　3、不要考虑文件名，程序的每次翻页都能在当前页面。
　　想清楚了上面3个问题，我们的公共翻页模块就可以动手了。

<%
) S% M. c) J  D  v'+++++++++++++++++++++++++++++++++++++
1 ?1 T. ]! m, W$ b: V9 _$ N'◆模块名称： 公共翻页模块
; Y! ~) Z& `9 p0 E! s& s'◆文 件 名： TurnPage.asp
. V9 a* [! a& A3 v* K, |  y- O'◆传入参数： Rs_tmp (记录集), PageSize (每页显示的记录条数)
'◆输 出： 记录集翻页显示功能
: @1 D+ ~9 a. f& h'+++++++++++++++++++++++++++++++++++++
3 x2 y- A: J- R'
Sub TurnPage(ByRef Rs_tmp,PageSize) 'Rs_tmp 记录集 ; PageSize 每页显示的记录条数;
! l" R) O+ l) O7 A/ O% M% ^Dim TotalPage '总页数
Dim PageNo '当前显示的是第几页
  s% p" Z' |% }% Y, ZDim RecordCount '总记录条数
Rs_tmp.PageSize = PageSize
RecordCount = Rs_tmp.RecordCount
1 D5 X* |. c: ]: |& nTotalPage = INT(RecordCount / PageSize * -1)*-1
" J% `2 ?: y! F" E# j3 m* N* F' \# YPageNo = Request.QueryString ("PageNo")
. q  U5 l) u/ O( S% N4 @/ d. q0 |'直接输入页数跳转；
If Request.Form("PageNo")<>"" Then PageNo = Request.Form("PageNo")
* x  f0 D! t& F4 A5 o: C0 K'如果没有选择第几页，则默认显示第一页；
If PageNo = "" then PageNo = 1
# b8 i% {* B: V& j8 yIf RecordCount <> 0 then
Rs_tmp.AbsolutePage = PageNo
End If

'获取当前文件名，使得每次翻页都在当前页面进行；
9 E! ]6 [9 \: J! SDim fileName,postion
5 P; `8 Z. M# k" h4 g0 Q+ @fileName = Request.ServerVariables("script_name")
postion = InstrRev(fileName,"/")+1
; s, a* J# u- f( H2 `! |3 Q'取得当前的文件名称，使翻页的链接指向当前文件；
fileName = Mid(fileName,postion)
%>
<table border=0 width='100%'>
<tr>
<td align=left> 总页数：<font color=#ff3333><%=TotalPage%></font>页
当前第<font color=#ff3333><%=PageNo%></font>页</td>
, S9 u% {; h4 A) V6 a$ {- U9 [<td align="right">
$ i+ V/ d3 F6 h5 X# Z, E8 J: w9 g( v" E<%If RecordCount = 0 or TotalPage = 1 Then
Response.Write "首页|前页|后页|末页"
Else%>
2 @; h3 U7 d( J6 q3 z: O0 X<a href="<%=fileName%>?PageNo=1">首页|</a>
<%If PageNo - 1 = 0 Then
; L+ ~8 D' ^8 A4 N" t( K7 W0 PResponse.Write "前页|"
Else%>
5 @, }  h+ N1 T+ x2 i! n  y<a href="<%=fileName%>?PageNo=<%=PageNo-1%>">前页|</a>
<%End If

! j! C" H0 a, o7 jIf PageNo+1 > TotalPage Then
Response.Write "后页|"
2 m4 }3 N7 X4 O$ h3 ~- f; ~Else%>
<a href="<%=fileName%>?PageNo=<%=PageNo+1%>">后页|</a>
; C% Y, y# j, _0 x* h* c<%End If%>
2 L( Z/ A3 q* P' m' x6 b
. c# l* \) w% F<a href="<%=fileName%>?PageNo=<%=TotalPage%>">末页</a>
<%End If%></td>
  r! U* A1 J# X: Z" H9 K" B<td width=95>转到第
# ?+ C& j8 o+ R$ ~! W. C  q. c<%If TotalPage = 1 Then%>
/ w/ M* q) F+ f* h  w<input type=text name=PageNo size=3 readonly disabled style="background:#d3d3d3">
7 B- |8 w6 s' B, }<%Else%>
. e& J3 p$ g" S% [+ O# A! |<input type=text name=PageNo size=3 value="" title=请输入页号,然后回车>
9 m) }/ b- I# V<%End If%>页
# E- G' F/ S. r2 U8 c% ?</td>
</tr>
; D) F9 N6 z, P2 A) H2 T) O! b+ l</table>
<%End Sub%>

7 l& v2 \0 Y2 e" n6 u5 ]　　当然，大家可以把翻页的链接做成图片按钮，这样的话也面就更加美观了。
+ n& T/ Q7 R9 Y9 J- h  A3 v& P　　调用方法:
　　1、在程序开始或要使用翻页的地方包含翻页模块文件；
  G  z! b7 q1 P0 H! i. T　　2、定义变量：RowCount，每页显示的记录条数
　　3、调用翻页过程：Call TurnPage(记录集,RowCount)
　　4、在Do While 循环输出记录集的条件中加上" RowCount > 0 " 条件
　　5、在循环结束 "Loop前" 加上： RowCount = RowCount - 1

'-----------------------------------------------------
调用范例：
文件名：News.asp
# g2 m5 F9 N  @4 V% {# z<%
  l' D* v( [# A5 ?Dim Conn，Rs_News
* ?' i4 K; E2 G: b! xSet Conn = server.CreateObject("ADODB.CONNECTION")
  C9 k" M& Y$ U0 e7 ~Conn.Open "cpm","cpm","cpm"

Dim Sql
Sql = "Select * from News"
: A1 i$ B; s% d0 f: ]Set Rs_News = Server.CreateObject("ADODB.RECORDSET")
Rs_News.Open Sql,Conn,1,3 '获取的记录集

& O/ U: o# d7 e" n6 D'公共翻页模块开始%>
<!--#include file=../Public/TurnPage.asp-->
<%
Dim RowCount
- L; U& I6 W! h+ T6 URowCount = 10 '每页显示的记录条数
Call TurnPage(Rs_News,RowCount)
'公共翻页模块结束%>

<table width=100%>
) r% O2 c, }0 V* W! z! O<tr>
% @( K9 k( p, j% f1 E. o<td>新闻编号</td>
' ]; D8 j5 j9 ^$ Y/ e# X<td>新闻标题</td>
3 \& J4 c4 ?: {# {" i$ \<td>发布日期</td>
4 g  u# T' I5 q<tr>
3 O# m8 v9 h0 D3 v" B! O! X# i/ O<%
% i, g0 x! g0 F+ fIf Not Rs_News.eof
Do while Not Rs_News.eof and RowCount>0
%>
<tr>
<td><%=Rs_News("ID")%></td>
4 W1 S$ B9 T, J/ P<td><%=Rs_News("Name")%></td>
5 l" a4 s& V$ l' _8 g0 K6 j<td><%=Rs_News("Date")%></td>
<tr>
1 u6 B) @+ D; \# H<%
RowCount = RowCount - 1
/ u* S& O2 c1 x1 d4 f: YRs_News.MoveNext
% W5 z( s' r5 Z# Q. TLoop
" N7 E0 S1 A: `/ m1 _# h( ~; i9 OEnd If
5 k  b1 L" X& S8 Y%>