ASP通用分页代码

帅哥

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

　　设计方法：
' ^( O: D5 P& B/ \! r( {
5 w: @  S' M2 B+ O, k) E, D　　1、调用该模块时，只需要传递记录集和每页显示的记录的条数；
" t3 e! g# h: M　　2、可以点击链接进行翻页，也可以直接输入页码，回车后翻页；
# \; q' u6 R+ Y' Q　　3、不要考虑文件名，程序的每次翻页都能在当前页面。
/ n' r$ H, W2 ?/ [7 {: Z$ R  _　　想清楚了上面3个问题，我们的公共翻页模块就可以动手了。
) C1 Y5 Y; A- l$ h
1 R$ K& C6 X! A9 S6 i5 o# R* ^8 Z9 V<%
7 Z; s( o* p4 s3 u0 b6 I5 V'+++++++++++++++++++++++++++++++++++++
'◆模块名称： 公共翻页模块
'◆文 件 名： TurnPage.asp
$ D2 A$ E- o/ D5 q: L& U/ G'◆传入参数： Rs_tmp (记录集), PageSize (每页显示的记录条数)
" x. ^( R1 t2 Q3 ?4 [$ S'◆输 出： 记录集翻页显示功能
'+++++++++++++++++++++++++++++++++++++
'
Sub TurnPage(ByRef Rs_tmp,PageSize) 'Rs_tmp 记录集 ; PageSize 每页显示的记录条数;
Dim TotalPage '总页数
8 [% O( C" m+ H3 P+ }; c. ~0 I/ bDim PageNo '当前显示的是第几页
Dim RecordCount '总记录条数
" W4 |7 F3 B3 ^, y' J3 qRs_tmp.PageSize = PageSize
RecordCount = Rs_tmp.RecordCount
. T  N; d& T+ q* o1 J3 U: c' B) i2 [TotalPage = INT(RecordCount / PageSize * -1)*-1
PageNo = Request.QueryString ("PageNo")
: I' O$ \, G% E: T) {'直接输入页数跳转；
If Request.Form("PageNo")<>"" Then PageNo = Request.Form("PageNo")
. w) d" H" F9 _  ]'如果没有选择第几页，则默认显示第一页；
1 s, ]5 c0 v; u( K. JIf PageNo = "" then PageNo = 1
- f! {6 _$ a  f, s6 ?4 [- a5 c4 _0 g/ RIf RecordCount <> 0 then
Rs_tmp.AbsolutePage = PageNo
2 ~5 G1 q! l' n, v  [, j1 FEnd If

'获取当前文件名，使得每次翻页都在当前页面进行；
Dim fileName,postion
0 Y$ @8 V; f% K; b" U" r/ d, WfileName = Request.ServerVariables("script_name")
) F9 h8 v. X7 W; e& Apostion = InstrRev(fileName,"/")+1
'取得当前的文件名称，使翻页的链接指向当前文件；
fileName = Mid(fileName,postion)
%>
! b( H7 C. `2 A: L6 V<table border=0 width='100%'>
! h7 ]* i# n6 H<tr>
" U. V+ ^: [9 U6 S<td align=left> 总页数：<font color=#ff3333><%=TotalPage%></font>页
% Z: r- y7 O8 M* X当前第<font color=#ff3333><%=PageNo%></font>页</td>
. Z  |. r- Y5 \! V, f<td align="right">
* }* m+ w8 `" |0 m3 f9 ?7 h<%If RecordCount = 0 or TotalPage = 1 Then
. v: Z7 M, v4 L5 Z; G& IResponse.Write "首页|前页|后页|末页"
  A( v, }; Z2 V' ^Else%>
: Y) {& v( V: r0 o<a href="<%=fileName%>?PageNo=1">首页|</a>
<%If PageNo - 1 = 0 Then
Response.Write "前页|"
2 V: {# m5 L- q  ~Else%>
<a href="<%=fileName%>?PageNo=<%=PageNo-1%>">前页|</a>
  P' t3 x6 m/ ]9 @! u1 F; o<%End If

3 B& w' \' _. D: o- F& _If PageNo+1 > TotalPage Then
6 K; o; P  i8 X9 @+ R5 [7 LResponse.Write "后页|"
9 x8 Z0 l/ S9 t" T% o7 ~) cElse%>
! s/ c6 l5 x/ K1 K$ T4 Z<a href="<%=fileName%>?PageNo=<%=PageNo+1%>">后页|</a>
- i" a8 p1 y: G5 f7 X<%End If%>
: T# C5 T' z: Y# `) J$ f
<a href="<%=fileName%>?PageNo=<%=TotalPage%>">末页</a>
<%End If%></td>
. o# g3 a, u( e- u<td width=95>转到第
<%If TotalPage = 1 Then%>
) F6 ]5 C3 ^* y8 r<input type=text name=PageNo size=3 readonly disabled style="background:#d3d3d3">
<%Else%>
7 B3 h! \/ a. ?- G6 F! A7 m<input type=text name=PageNo size=3 value="" title=请输入页号,然后回车>
" B/ @. x1 J% Q; t0 W1 D- M<%End If%>页
' Q7 d6 B& R% ^9 W4 l' l2 Z( ~</td>
</tr>
1 D. Q; A; Z6 }; ?</table>
- l- i3 W" o. H4 ]<%End Sub%>
. }) l- C9 x4 A
6 A! F9 d+ u2 k+ ~& u& Y　　当然，大家可以把翻页的链接做成图片按钮，这样的话也面就更加美观了。
- J: V* w6 I  l3 x: v' j2 F7 n　　调用方法:
　　1、在程序开始或要使用翻页的地方包含翻页模块文件；
　　2、定义变量：RowCount，每页显示的记录条数
) e1 j0 k2 x9 |; _6 R　　3、调用翻页过程：Call TurnPage(记录集,RowCount)
; ]) ]. k- m, @$ N, V4 \　　4、在Do While 循环输出记录集的条件中加上" RowCount > 0 " 条件
　　5、在循环结束 "Loop前" 加上： RowCount = RowCount - 1
% [# W. N2 [# }. c3 p* S; }
( B( ~, S; S7 l' d'-----------------------------------------------------
' B8 e/ u, {9 K0 w* z2 [0 c调用范例：
) Z6 V8 l2 o+ F文件名：News.asp
3 K5 n- x* R  l8 i5 t) e; ^<%
Dim Conn，Rs_News
Set Conn = server.CreateObject("ADODB.CONNECTION")
Conn.Open "cpm","cpm","cpm"
  ~) t7 G$ r5 C8 W
Dim Sql
" I+ y2 @% ?; d1 e8 T9 o4 tSql = "Select * from News"
. L7 v# y, x# \Set Rs_News = Server.CreateObject("ADODB.RECORDSET")
Rs_News.Open Sql,Conn,1,3 '获取的记录集

'公共翻页模块开始%>
; q* c7 F% x: y7 S) \- \$ B- X<!--#include file=../Public/TurnPage.asp-->
# I  ~+ n% `: E<%
Dim RowCount
RowCount = 10 '每页显示的记录条数
) t9 \: E, U/ ?5 Z  c# ?Call TurnPage(Rs_News,RowCount)
'公共翻页模块结束%>

<table width=100%>
9 W& R: `9 z$ q+ Z<tr>
3 A; I6 i' L( r$ F- L<td>新闻编号</td>
8 ^8 x9 R# r2 j0 }# Q% S<td>新闻标题</td>
<td>发布日期</td>
" y. j$ @' j6 e2 Z2 I( U7 m<tr>
<%
& t, s/ V$ C+ X0 A/ h9 r; f7 V$ }/ @# OIf Not Rs_News.eof
Do while Not Rs_News.eof and RowCount>0
/ E, U' y5 G+ {- l  o) ^%>
<tr>
  `7 u, K. f9 v, p; d$ C0 f<td><%=Rs_News("ID")%></td>
<td><%=Rs_News("Name")%></td>
: f8 w( [, |( E9 _<td><%=Rs_News("Date")%></td>
<tr>
; t5 Y/ K6 L% G/ ^/ w* k2 _4 F<%
RowCount = RowCount - 1
Rs_News.MoveNext
! A1 B! Z. C: l4 e" l4 l/ \Loop
1 [% n1 j' Q# n" DEnd If
%>