ASP通用分页代码

帅哥

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

+ w& K1 P4 v+ q( m8 m) N　　设计方法：
0 z5 {3 J& J; K8 o
/ }& q% e3 Q5 b7 {0 Q" \: F　　1、调用该模块时，只需要传递记录集和每页显示的记录的条数；
- n  G* r+ O. b# m　　2、可以点击链接进行翻页，也可以直接输入页码，回车后翻页；
　　3、不要考虑文件名，程序的每次翻页都能在当前页面。
　　想清楚了上面3个问题，我们的公共翻页模块就可以动手了。

<%
# ~9 i, N* M) I) v$ ^'+++++++++++++++++++++++++++++++++++++
4 s* i+ w( G. F+ e! T" N& B6 X'◆模块名称： 公共翻页模块
9 A+ b" ~$ z7 \: Q5 g'◆文 件 名： TurnPage.asp
'◆传入参数： Rs_tmp (记录集), PageSize (每页显示的记录条数)
'◆输 出： 记录集翻页显示功能
! i1 S1 c* H8 Q'+++++++++++++++++++++++++++++++++++++
'
. J; g5 ~) j9 W  |5 L, ^Sub TurnPage(ByRef Rs_tmp,PageSize) 'Rs_tmp 记录集 ; PageSize 每页显示的记录条数;
# r5 N0 L* t$ Z, [2 vDim TotalPage '总页数
Dim PageNo '当前显示的是第几页
9 |% F3 S% Q; O5 J8 MDim RecordCount '总记录条数
" S0 r& |& s' j* c: BRs_tmp.PageSize = PageSize
2 `' j/ s/ @3 b5 d& v% F! eRecordCount = Rs_tmp.RecordCount
$ r' y- z; w8 I5 j+ n5 h# sTotalPage = INT(RecordCount / PageSize * -1)*-1
PageNo = Request.QueryString ("PageNo")
'直接输入页数跳转；
If Request.Form("PageNo")<>"" Then PageNo = Request.Form("PageNo")
7 s  K; g6 I! P'如果没有选择第几页，则默认显示第一页；
0 H$ J' P0 S+ I/ R% e$ WIf PageNo = "" then PageNo = 1
0 }" ~+ K; Y" N1 |" F& }: SIf RecordCount <> 0 then
Rs_tmp.AbsolutePage = PageNo
  C4 T$ \% Y, O* D8 ?. P6 \End If
+ m+ _$ w, ~9 m" g
'获取当前文件名，使得每次翻页都在当前页面进行；
Dim fileName,postion
fileName = Request.ServerVariables("script_name")
" a9 `: u' d0 l. dpostion = InstrRev(fileName,"/")+1
'取得当前的文件名称，使翻页的链接指向当前文件；
  V0 R; b. t) n9 i$ m7 P- ?fileName = Mid(fileName,postion)
%>
<table border=0 width='100%'>
<tr>
<td align=left> 总页数：<font color=#ff3333><%=TotalPage%></font>页
! V' Y1 v% v. @$ }当前第<font color=#ff3333><%=PageNo%></font>页</td>
<td align="right">
; l: }* N6 _  f. B  |6 m' s<%If RecordCount = 0 or TotalPage = 1 Then
1 m& \, J6 ]5 A5 K0 E9 i2 EResponse.Write "首页|前页|后页|末页"
Else%>
* w. t% v; d4 z- S* L" G<a href="<%=fileName%>?PageNo=1">首页|</a>
# J# ?$ c3 E; ?4 [2 y  I6 i) v% M<%If PageNo - 1 = 0 Then
Response.Write "前页|"
# [2 O( P, D1 ^8 ^  @, @Else%>
<a href="<%=fileName%>?PageNo=<%=PageNo-1%>">前页|</a>
$ @/ b* k  Z* p<%End If

7 J" N$ X1 {8 W8 F% CIf PageNo+1 > TotalPage Then
Response.Write "后页|"
Else%>
<a href="<%=fileName%>?PageNo=<%=PageNo+1%>">后页|</a>
<%End If%>

<a href="<%=fileName%>?PageNo=<%=TotalPage%>">末页</a>
<%End If%></td>
<td width=95>转到第
' X# t9 s8 u. [<%If TotalPage = 1 Then%>
3 A# M, J/ }" X: F& O) G<input type=text name=PageNo size=3 readonly disabled style="background:#d3d3d3">
+ l  V% u/ D7 o/ \% ^<%Else%>
<input type=text name=PageNo size=3 value="" title=请输入页号,然后回车>
<%End If%>页
0 u$ I) x$ v9 `; ]$ c$ L/ n</td>
</tr>
5 K6 T" b% r0 g</table>
<%End Sub%>

* b/ c" ~# t: x　　当然，大家可以把翻页的链接做成图片按钮，这样的话也面就更加美观了。
　　调用方法:
　　1、在程序开始或要使用翻页的地方包含翻页模块文件；
2 R: l- o. ^! ]. U* ]9 m' F　　2、定义变量：RowCount，每页显示的记录条数
　　3、调用翻页过程：Call TurnPage(记录集,RowCount)
　　4、在Do While 循环输出记录集的条件中加上" RowCount > 0 " 条件
　　5、在循环结束 "Loop前" 加上： RowCount = RowCount - 1

'-----------------------------------------------------
( ?, l+ K* _4 A- L/ P. y调用范例：
文件名：News.asp
, `: V1 }1 \' ^<%
9 L# f7 Q# y/ jDim Conn，Rs_News
Set Conn = server.CreateObject("ADODB.CONNECTION")
  A" _* c6 o5 z  h2 T/ P2 D3 `( wConn.Open "cpm","cpm","cpm"

1 ]2 G2 f, v; k, p6 {, Y8 ADim Sql
Sql = "Select * from News"
$ k, ]8 L( t  LSet Rs_News = Server.CreateObject("ADODB.RECORDSET")
Rs_News.Open Sql,Conn,1,3 '获取的记录集
& {( `- B% g5 c0 t/ |
3 W$ ]- [6 P+ T8 s, x'公共翻页模块开始%>
<!--#include file=../Public/TurnPage.asp-->
<%
/ |) C& k6 l1 ?' p! q7 f  xDim RowCount
RowCount = 10 '每页显示的记录条数
) h1 U# B+ {, I1 G; DCall TurnPage(Rs_News,RowCount)
! {7 ?$ u1 w* |$ R'公共翻页模块结束%>

<table width=100%>
) {3 n0 b$ G" X+ u3 n<tr>
, q5 q$ v; g# |7 k) D' n" P<td>新闻编号</td>
9 m" `6 a' j; p) b5 Y, b/ ^# D+ A<td>新闻标题</td>
9 D0 R' v% U; F2 a<td>发布日期</td>
<tr>
<%
If Not Rs_News.eof
Do while Not Rs_News.eof and RowCount>0
, N3 C1 |$ @# y7 c# p- Q# j%>
<tr>
9 {0 O- j0 Y, p, K5 O2 d<td><%=Rs_News("ID")%></td>
' f2 G( n# G8 H- T: L<td><%=Rs_News("Name")%></td>
' M3 T" L- ?! O$ [: N# v<td><%=Rs_News("Date")%></td>
<tr>
<%
RowCount = RowCount - 1
Rs_News.MoveNext
0 G3 L4 b7 `% SLoop
End If
%>
9 t/ h+ M5 l7 V! w) P6 B