ASP数字分页的实现方法

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

dim c1,c2       '定义两个变量，分别表示前后两部分的开始页码   
dim cc1,cc2     '分别定义前后两部分的结束页码   
'完成以上部分实际是限制导航范围的关键,   
'下面限制导航条显示15个页码链接，nowPage是当前页数，已经过正确性处理   
c1 = nowPage - 7     
c2 = nowPage + 7   
cc1 = nowPage - 1   
cc2 = nowPage + 1   
if c1 < 1 then    '此处很关键，它符合页数不小于1的要求   
    c1 = 1   
end if   
'开始第一部分的循环***************   
'由于要符合页数不小于1的要求，所以设置循环的step为-1   
    for i = cc1 to c1 step -1  
'pp是最后显示的数字。这一步不好理解。
但如果不这样处理，则会出现…  5.4.3.2.1的情况。
不符合我们1.2.3.4.5……的要求。
         pp = cc1 + c1 - i       
         Response.write "<a href=?Page=" & pp &">" & pp & ""    
    next   
    '本页页码加为红色，且不带链接   
    Response.write "<font color='red'>" & nowPage & "</font>" 
 
    '开始后部分的循环***************   
    for j = cc2 to c2   
         if j > theRs.pageCount then exit for   
         Response.write <a .................................(省略咯) & j & "</a>" 
    next
</a>

dim c1,c2 '定义两个变量，分别表示前后两部分的开始页码 dim cc1,cc2 '分别定义前后两部分的结束页码 '完成以上部分实际是限制导航范围的关键, '下面限制导航条显示15个页码链接，nowPage是当前页数，已经过正确性处理 c1 = nowPage - 7 c2 = nowPage + 7 cc1 = nowPage - 1 cc2 = nowPage + 1 if c1 < 1 then '此处很关键，它符合页数不小于1的要求 c1 = 1 end if '开始第一部分的循环*************** '由于要符合页数不小于1的要求，所以设置循环的step为-1 for i = cc1 to c1 step -1 'pp是最后显示的数字。这一步不好理解。 但如果不这样处理，则会出现… 5.4.3.2.1的情况。 不符合我们1.2.3.4.5……的要求。 pp = cc1 + c1 - i Response.write "<a href=?Page=" & pp &">" & pp & "" next '本页页码加为红色，且不带链接 Response.write "<font color='red'>" & nowPage & "</font>" '开始后部分的循环*************** for j = cc2 to c2 if j > theRs.pageCount then exit for Response.write <a .................................(省略咯) & j & "</a>" next </a>