ASP通用分页代码

帅哥

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

) ~- ~8 m# X1 I* i* l　　设计方法：

　　1、调用该模块时，只需要传递记录集和每页显示的记录的条数；
) y5 w+ ^$ L3 b, V$ u4 g　　2、可以点击链接进行翻页，也可以直接输入页码，回车后翻页；
3 O2 q) u8 Q- v3 Z% N: p) v- l　　3、不要考虑文件名，程序的每次翻页都能在当前页面。
' D" ]) y9 C1 Y6 E- u　　想清楚了上面3个问题，我们的公共翻页模块就可以动手了。

  \. p# E: I$ t! h% R9 K: h' x( N<%
2 K" N$ X( i/ {$ d" n( T  H'+++++++++++++++++++++++++++++++++++++
: H5 I/ K- P: z% Y0 l7 O9 Z'◆模块名称： 公共翻页模块
'◆文 件 名： TurnPage.asp
'◆传入参数： Rs_tmp (记录集), PageSize (每页显示的记录条数)
' Z" O7 Z, N6 X1 ^- W0 q; Q0 y" E'◆输 出： 记录集翻页显示功能
'+++++++++++++++++++++++++++++++++++++
'
Sub TurnPage(ByRef Rs_tmp,PageSize) 'Rs_tmp 记录集 ; PageSize 每页显示的记录条数;
Dim TotalPage '总页数
+ D1 X% P: d1 h8 O( p: P5 ?" ADim PageNo '当前显示的是第几页
4 A+ {$ C, }. R' S: v7 G; sDim RecordCount '总记录条数
Rs_tmp.PageSize = PageSize
RecordCount = Rs_tmp.RecordCount
( O4 n- Q. [  L; j3 k" x8 o: V3 YTotalPage = INT(RecordCount / PageSize * -1)*-1
PageNo = Request.QueryString ("PageNo")
'直接输入页数跳转；
If Request.Form("PageNo")<>"" Then PageNo = Request.Form("PageNo")
8 o: u, E2 x* c0 G: Y0 C'如果没有选择第几页，则默认显示第一页；
% w3 ?! T% a6 P; g2 DIf PageNo = "" then PageNo = 1
If RecordCount <> 0 then
8 X/ [, P0 {! b5 _/ s# ?Rs_tmp.AbsolutePage = PageNo
8 ~/ U; \* K2 r/ `/ i) _. QEnd If
. R( [4 k. X- {4 H- `/ M5 x
'获取当前文件名，使得每次翻页都在当前页面进行；
Dim fileName,postion
fileName = Request.ServerVariables("script_name")
postion = InstrRev(fileName,"/")+1
'取得当前的文件名称，使翻页的链接指向当前文件；
fileName = Mid(fileName,postion)
%>
<table border=0 width='100%'>
<tr>
<td align=left> 总页数：<font color=#ff3333><%=TotalPage%></font>页
8 @# A5 g: V& i% t! _' N当前第<font color=#ff3333><%=PageNo%></font>页</td>
<td align="right">
8 S9 ~1 i3 m8 N6 X: t<%If RecordCount = 0 or TotalPage = 1 Then
5 D7 ]. A" v  F1 B" m& B& |# lResponse.Write "首页|前页|后页|末页"
4 G( H6 J' G# K- k4 }4 }Else%>
, Q; M* a( U( N4 ~' d# l* N6 n<a href="<%=fileName%>?PageNo=1">首页|</a>
<%If PageNo - 1 = 0 Then
7 B4 E' Z2 }( U( C1 `! @Response.Write "前页|"
Else%>
; V5 [  o+ _" e3 n<a href="<%=fileName%>?PageNo=<%=PageNo-1%>">前页|</a>
1 F+ |$ o7 b1 Y. `6 \; N<%End If
& h1 D4 l3 H9 g  r; K7 J0 Q
- f7 B2 r1 G. I( f5 ^* QIf PageNo+1 > TotalPage Then
Response.Write "后页|"
Else%>
<a href="<%=fileName%>?PageNo=<%=PageNo+1%>">后页|</a>
- [4 N6 x4 ~4 |1 n3 q( N<%End If%>
+ r0 F4 P$ u6 Q/ ^# [
8 C4 E1 a, f% m$ V( o) k. S8 A<a href="<%=fileName%>?PageNo=<%=TotalPage%>">末页</a>
; @/ o8 |! Y4 W" T) I' i* q<%End If%></td>
, l: p; ]* s$ d) G4 V  z<td width=95>转到第
+ j  f' E! G4 ]; R# F1 @<%If TotalPage = 1 Then%>
/ E$ n# G: ?- _  q7 d<input type=text name=PageNo size=3 readonly disabled style="background:#d3d3d3">
0 Z( R* ]. h2 g% E1 I<%Else%>
<input type=text name=PageNo size=3 value="" title=请输入页号,然后回车>
<%End If%>页
</td>
</tr>
# L1 l8 e1 E$ o# U7 d( Y</table>
4 {& h2 B, r5 v4 X<%End Sub%>
1 f9 f: B, T& L8 I, t
9 {2 I& Y9 T/ h  O& l, O　　当然，大家可以把翻页的链接做成图片按钮，这样的话也面就更加美观了。
0 b' Y1 ?: U) g+ i- z9 W% g　　调用方法:
* p. @8 O! u9 X( `7 I: _9 v( i$ w　　1、在程序开始或要使用翻页的地方包含翻页模块文件；
　　2、定义变量：RowCount，每页显示的记录条数
* v7 w& y; _9 p/ G　　3、调用翻页过程：Call TurnPage(记录集,RowCount)
　　4、在Do While 循环输出记录集的条件中加上" RowCount > 0 " 条件
  s5 J! _3 m% S0 I. P8 E7 W; V/ ~/ I　　5、在循环结束 "Loop前" 加上： RowCount = RowCount - 1

'-----------------------------------------------------
' f/ v  |8 J  v9 b5 U. O调用范例：
文件名：News.asp
& t6 p; {: d# h' C6 J+ {<%
# q- k* j% k( `3 y1 k4 j$ DDim Conn，Rs_News
Set Conn = server.CreateObject("ADODB.CONNECTION")
& Y/ C! H# L6 v* ]Conn.Open "cpm","cpm","cpm"
% L0 f7 w9 b* _0 w
Dim Sql
1 j# r# s2 \9 {3 x3 V7 D( aSql = "Select * from News"
. U, |- T. i+ ^+ h3 X* fSet Rs_News = Server.CreateObject("ADODB.RECORDSET")
* m  ]3 ?; g4 ^2 F( O/ c9 BRs_News.Open Sql,Conn,1,3 '获取的记录集
, ~5 `  V1 A- e! N3 |# s" _. \+ N  A
- p2 O2 x1 L6 L) J9 l5 I$ g'公共翻页模块开始%>
<!--#include file=../Public/TurnPage.asp-->
1 z4 r4 s; p& F<%
Dim RowCount
RowCount = 10 '每页显示的记录条数
Call TurnPage(Rs_News,RowCount)
4 Q/ {( C: p3 s) F8 ]'公共翻页模块结束%>

6 d7 c# t  J# R; Z<table width=100%>
<tr>
<td>新闻编号</td>
2 ]* k" U0 {- l) [$ l% }9 j! j<td>新闻标题</td>
<td>发布日期</td>
<tr>
<%
If Not Rs_News.eof
Do while Not Rs_News.eof and RowCount>0
%>
<tr>
<td><%=Rs_News("ID")%></td>
<td><%=Rs_News("Name")%></td>
1 H# i, p. m% p4 p0 P9 ^4 g<td><%=Rs_News("Date")%></td>
<tr>
<%
RowCount = RowCount - 1
4 y( v$ u' e; ^4 f, a4 IRs_News.MoveNext
Loop
End If
3 Y6 Y9 L7 F6 Z) f$ v%>
7 ~1 s: V0 r6 q6 \