ASP通用分页代码

帅哥

在大型的ASP项目中，很多的页面都涉及到翻页功能。如果每个页面都写一个翻页的程序的话，这样的工作即降低了工作效率，也不利于工程的模块化，不能使代码重用。因此，把翻页这样的功能模块化是很有必要的。
5 ^! D" K- Q( W
7 e7 T0 S3 z& g0 ^9 T: u& Z2 x# }& {　　设计方法：
- j; W: K4 l7 k/ @' G+ S4 b1 m
　　1、调用该模块时，只需要传递记录集和每页显示的记录的条数；
　　2、可以点击链接进行翻页，也可以直接输入页码，回车后翻页；
　　3、不要考虑文件名，程序的每次翻页都能在当前页面。
( m" Y0 |4 x9 `/ F7 s　　想清楚了上面3个问题，我们的公共翻页模块就可以动手了。
  Z& S' n( [+ M4 A8 `: o8 i
, V- b6 B; p1 Y& m- Z: C* X. e<%
: M* p# g% v" U* k% W) \. r* I'+++++++++++++++++++++++++++++++++++++
'◆模块名称： 公共翻页模块
, |1 f# d5 J* o3 _1 _9 n5 d'◆文 件 名： TurnPage.asp
'◆传入参数： Rs_tmp (记录集), PageSize (每页显示的记录条数)
'◆输 出： 记录集翻页显示功能
2 J5 ~2 z2 D/ e6 t'+++++++++++++++++++++++++++++++++++++
'
Sub TurnPage(ByRef Rs_tmp,PageSize) 'Rs_tmp 记录集 ; PageSize 每页显示的记录条数;
Dim TotalPage '总页数
Dim PageNo '当前显示的是第几页
5 I+ e1 w4 I. i9 sDim RecordCount '总记录条数
1 \9 Q$ d% I9 y' PRs_tmp.PageSize = PageSize
' v3 d( D" `5 y2 k: }8 b8 KRecordCount = Rs_tmp.RecordCount
TotalPage = INT(RecordCount / PageSize * -1)*-1
3 j3 ^# J0 x6 w1 R4 L. D# y! }/ aPageNo = Request.QueryString ("PageNo")
/ J7 G) i3 _' `/ x'直接输入页数跳转；
% W7 ~1 W+ X" AIf Request.Form("PageNo")<>"" Then PageNo = Request.Form("PageNo")
'如果没有选择第几页，则默认显示第一页；
! R# b  O0 Z) l  U3 }/ {/ @/ |5 J# NIf PageNo = "" then PageNo = 1
, \# i2 G: N. Z) A- aIf RecordCount <> 0 then
  G, |! [0 e" n0 {Rs_tmp.AbsolutePage = PageNo
End If

" Q  W: Z, s+ M'获取当前文件名，使得每次翻页都在当前页面进行；
* R8 ~( m2 t4 ^$ k9 t1 y6 M0 ]) ADim fileName,postion
, v: g  S! b; z: c7 ^% P% zfileName = Request.ServerVariables("script_name")
postion = InstrRev(fileName,"/")+1
  O5 [4 [4 j" `. b. D- N'取得当前的文件名称，使翻页的链接指向当前文件；
fileName = Mid(fileName,postion)
6 y# u% F7 v6 \( a- {! V9 A%>
3 x0 D6 U9 R3 R<table border=0 width='100%'>
<tr>
<td align=left> 总页数：<font color=#ff3333><%=TotalPage%></font>页
当前第<font color=#ff3333><%=PageNo%></font>页</td>
5 \' j& \, R2 V6 d4 J<td align="right">
<%If RecordCount = 0 or TotalPage = 1 Then
Response.Write "首页|前页|后页|末页"
2 U  q- E; v  FElse%>
<a href="<%=fileName%>?PageNo=1">首页|</a>
<%If PageNo - 1 = 0 Then
Response.Write "前页|"
Else%>
<a href="<%=fileName%>?PageNo=<%=PageNo-1%>">前页|</a>
<%End If
& K+ V2 g4 K- `
If PageNo+1 > TotalPage Then
Response.Write "后页|"
2 N4 f3 _: F; I4 _" {* q% KElse%>
" j, v6 m/ ^$ S0 M& I8 b7 x<a href="<%=fileName%>?PageNo=<%=PageNo+1%>">后页|</a>
<%End If%>
- Z9 a, ?0 _, K) i) O. L
<a href="<%=fileName%>?PageNo=<%=TotalPage%>">末页</a>
<%End If%></td>
9 G  a  ~! f- M<td width=95>转到第
- i" M% D! H" k. o. r<%If TotalPage = 1 Then%>
2 \5 G8 s7 F% Q9 k8 `<input type=text name=PageNo size=3 readonly disabled style="background:#d3d3d3">
1 i/ Y; H7 P9 R4 ?2 `4 t( d<%Else%>
& k# F* C2 V4 R2 C. x6 f<input type=text name=PageNo size=3 value="" title=请输入页号,然后回车>
( v9 j- m/ q; g7 @6 q( X<%End If%>页
</td>
: U: C! H' D" ~</tr>
</table>
6 m& Y6 {2 [& a8 y. Q<%End Sub%>
( X# }! P1 _0 ]) l, L, A0 z+ M
/ a  P% Y5 z/ q; z  {　　当然，大家可以把翻页的链接做成图片按钮，这样的话也面就更加美观了。
% h& ?; |( ]: M0 ]　　调用方法:
+ |3 N4 p( N% X$ K% O" y　　1、在程序开始或要使用翻页的地方包含翻页模块文件；
4 q5 E. x3 S0 e( }4 u　　2、定义变量：RowCount，每页显示的记录条数
: s0 C  P. O' L9 j4 w3 O2 @0 c　　3、调用翻页过程：Call TurnPage(记录集,RowCount)
/ N# k9 [3 h4 f3 @, i& y　　4、在Do While 循环输出记录集的条件中加上" RowCount > 0 " 条件
　　5、在循环结束 "Loop前" 加上： RowCount = RowCount - 1

1 _' W' F0 z6 @: ]' ]% T0 ]+ Q'-----------------------------------------------------
调用范例：
6 j9 W2 ?! r* t  [文件名：News.asp
<%
+ l0 C3 [* D7 Y% {Dim Conn，Rs_News
Set Conn = server.CreateObject("ADODB.CONNECTION")
# [5 s* l  w: ^" q3 }% FConn.Open "cpm","cpm","cpm"

Dim Sql
Sql = "Select * from News"
Set Rs_News = Server.CreateObject("ADODB.RECORDSET")
Rs_News.Open Sql,Conn,1,3 '获取的记录集

) t% t, h4 f" c4 I' M'公共翻页模块开始%>
  ^8 B) ]; u7 |# w7 n+ G7 x' }6 K<!--#include file=../Public/TurnPage.asp-->
<%
Dim RowCount
RowCount = 10 '每页显示的记录条数
7 r- M1 @( p9 r3 {  Q2 b' O+ C* {Call TurnPage(Rs_News,RowCount)
'公共翻页模块结束%>
3 t. b+ }# a3 B8 w4 t! y( Z
<table width=100%>
<tr>
* [* F3 N1 s8 N" b8 e7 c1 o7 ?  `+ p6 r<td>新闻编号</td>
<td>新闻标题</td>
<td>发布日期</td>
<tr>
<%
, U+ u3 i9 K, W6 _; N8 W5 `$ cIf Not Rs_News.eof
Do while Not Rs_News.eof and RowCount>0
+ U" k. k' }: o# E" _" O%>
<tr>
/ k5 B+ e/ b* M; h- k6 A# J<td><%=Rs_News("ID")%></td>
<td><%=Rs_News("Name")%></td>
6 T) L' z% n! ]3 ~. s4 ~<td><%=Rs_News("Date")%></td>
<tr>
$ B5 \9 I* }. o* T/ b<%
1 K) k% E6 o4 t& M9 X; gRowCount = RowCount - 1
Rs_News.MoveNext
Loop
End If
%>