[原创]ASP动态网页的分页技术

<>动态网页的数据处理速度直接影响到整个电子商务系统的性能！</P>
<>在数据量处理相对较大的分页技术上，更能体现出数据控制的重要性！</P>
<>这里发一份用ADO控制数据库数据的分页方法。不知道哪位还能呈现更好的分页技术！？</P>
3 H. v$ w$ |4 B9 b<>为了方便，我把几个文件合在一起，而去掉了INCLUDE包含文件！</P>
+ E3 I  c. [9 p<>&lt;%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%&gt;</P>
<>&lt;%sub showlist(rs,page)%&gt;
8 B8 H0 J4 v3 n* T&lt;center&gt;&lt;font size=9 color=#3300cc&gt;漳州师范学院毕业生数据表&lt;/font&gt;&lt;/center&gt;&lt;br&gt;
; E) i6 R1 @$ L# J4 N# X! X&lt;ceter&gt;
2 C9 ~9 B1 C9 U. L3 @; k&lt;table border=1 cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" cellpadding="0" width="900"&gt;
& S( j2 O' E. A* o &lt;tr bgcolor=#00ffff&gt;
' u3 ], Z# G: Q) k) G! K& E2 H &lt;td height="16"&gt;编号&lt;/td&gt;
! K8 U1 n. P- y" Y&lt;%
for i=0 to rs.fields.count-1
3 N% |) t% u- x* L%&gt;
0 ]( U% z* V1 y0 ]3 W &lt;td height="16"&gt;  &lt;%=rs.fields(i).name%&gt;&lt;/td&gt;
&lt;%next%&gt;
&lt;/tr&gt;
&lt;%
. t0 u) O5 n5 w/ J( B- u  A( D! [1 r dim i
9 H9 Q' ?$ R  x2 U' R8 z8 T rs.absolutepage=page
for thepage=1 to rs.pagesize
response.write "&lt;/tr&gt;"
recnum=(page-1) * rs.pagesize + thepage
' I, h. x  q! w  C response.write "&lt;td&gt;" &amp; recnum &amp; "&lt;/td&gt;"
for i=0 to rs.fields.count-1
%&gt;
  &lt;td height="10"&gt;&lt;%=rs.Fields(i).value %&gt;&lt;/td&gt;
) i: r; ~  p6 o &lt;% next %&gt;
  &lt;/tr&gt;
9 D4 E! o0 b6 l' t &lt;%
5 V; n$ K# o% @: N  B5 ^; s  rs.movenext
  d+ |9 @" Q$ z  T' v7 Y! {  if rs.eof then exit for
  next
%&gt;
&lt;/table&gt;
&lt;/center&gt;
  ~8 m$ s3 [- K! n6 z9 m; p# O: t&lt;%end sub%&gt;</P>
6 o# v7 W" P; m0 O" u$ D( E<>&lt;%
, p& O6 A. Y: i" k9 V3 t    connstr="DBQ="+server.mappath("data/database.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
! i9 `; j+ [/ m. e  _2 N- N  n/ m    set conn=server.createobject("ADODB.CONNECTION")
    conn.open connstr</P>
; }2 H$ U; p" t8 s9 o% T% E<> sql="select * from 漳州师范学院师范类毕业生"
5 _* Q$ m2 k7 a' w; Z. a4 V Set rs= Server.CreateObject("ADODB.Recordset")
rs.PageSize=20
rs.open sql,conn,1,1
" O& q+ }7 |& c( T
%&gt;
# q( }0 V5 e+ M&lt;% If rs.RecordCount=0 then %&gt;
9 p  y, s  a8 i4 j&lt;%
2 t/ T7 p& d$ S. V' }8 M) J     response.write ("对不起，数据库中没有相关信息！")
%&gt;   
4 o- s! X7 }9 \0 B1 \" d2 i  v+ ?&lt;%else%&gt;
&lt;%
rs.pagesize=22
page=clng(request("page"))
" I: f  f" \2 O( F7 P& Oif page&lt;1 then page=1
if page&gt;rs.pagecount then page=rs.pagecount
) C2 l/ _6 {0 E2 h4 Cshowlist rs,page
%&gt;
&lt;html&gt;
0 G: u1 }% A# I! F: C! H&lt;head&gt;&lt;/head&gt;
# J( P. M! K! @. P: i' e&lt;body&gt;
/ ^* s& S* S$ d, s2 |3 \( ]9 M&lt;form action=show.asp method=get&gt;
&lt;center&gt;
&lt;%
if page&lt;&gt;1 then
  C6 M) r/ ?! \5 @. c  H response.write("&lt;a href=show.asp?page=1&gt;第一页&lt;/a&gt;")
response.write"&amp;nbsp;&amp;nbsp;&amp;nbsp;"
3 A* L; w0 _- a; j: }8 j( Z2 g response.write("&lt;a href=show.asp?page=" &amp; (page-1) &amp; "&gt;上一页&lt;/a&gt;")
end if
* n+ e' J8 a5 r% D
if page&lt;&gt;rs.pagecount then
response.write"&amp;nbsp;&amp;nbsp;&amp;nbsp;"
response.write("&lt;a href=show.asp?page=" &amp; (page+1) &amp; "&gt;下一页&lt;/a&gt;")
8 w7 f2 e, ~3 Y2 p3 x7 S* \7 C* I response.write"&amp;nbsp;&amp;nbsp;&amp;nbsp;"
: e; j% X. l/ |4 V7 W/ ?9 k7 R response.write("&lt;a href=show.asp?page=" &amp; rs.pagecount &amp; "&gt;最后一页&lt;/a&gt;")
end if
- ~0 W* x4 C+ k0 `%&gt;
  a0 e7 [2 s# d; w# Z&lt;%end if%&gt;
请输入页码&lt;input type="text" name=page size=2&gt;
, L% _3 w; d7 V页码:&lt;font color="red"&gt;&lt;% =page%&gt;/&lt;%=rs.pagecount%&gt;&lt;/font&gt;
&lt;/center&gt;
&lt;/form&gt;
&lt;/p&gt;&lt;/div&gt;
2 f1 H8 b1 |: x&lt;/body&gt;</P>
<>&lt;/html&gt;</P>

<>大家看看下面这种分页方法，是用SQL语言进行优化。号称史上最强的分页方法。</P><>不过这属于SQL的技巧，而不是ASP的优化了！当然这个执行效率的确快很多！</P><>ASP学习:史上最强的数据分页方法 </P><>1.有一sql语句将产生1000条记录 (select 唯一ID，其他字段 from 表集 where 条件 order by 排序)
　　 2.每页显示20条记录
　　 3.当前显示第5页
2 @( t1 r5 K( s& j　　
　　实现如下：
0 D2 N* V' N) ]- h3 o' z　　 select * from
　　 (
　　 select * from (select top 20*4 唯一ID，其他字段 from 表集 where 条件 order by 排序) as a
　　 union all
　　 select * from (select top 20*5 唯一ID，其他字段 from 表集 where 条件 order by 排序) as b
' D3 j8 g+ v* z+ S: H' F　　 )
　　 a
# j/ Z6 X4 v: y/ W" r4 K( @　　 group by 唯一ID，其他字段 having count(唯一ID)=1 order by 排序
9 P! Z9 s7 A; G0 ^　　
2 h/ c1 ?  G4 L+ F, W$ M* @$ V　　运行此SQL，至此取记录集后N条记录大法就些完毕
　　
　　详细说明：
  [% \  g1 h. n' [* V) W- Z　　
　　此SQL语句的关键应用技巧在于union all和分组上的条件过滤语句
　　
　　大家可以根据此技巧完全可以做出一个通用的分页方法，如直接由用户传入sqlstr(sql语句)，NumPerPage（每页显示数），currpage（当前页），自己在再函数内组织成通成的SQL分页语句
$ B& ]  y& |" V# ]" c9 e　　
　　备注：
　　
　　当前页为1的话就不需要运行该SQL了，直接TOP一下就OK了
　　由于没有环境，该SQL性能无法测试，但相信不会低效
  W8 B5 K/ u9 j. O' S1 d1 `　　运行平台在access,sqlserver上都可运行，其它数据库平台只需改top关键字应该就可以就地运行了</P>

<>大哥呀</P><>我要这些我也有啊</P><>但是现实和理想是有一定的区别的啊</P>

这些东东我喜欢！