模仿PHP写的ASP分页

 1   
 2' 分页程序   
 3' total_records 总记录数   
 4' everypage_records 每页显示条数   
 5' current_page 当前页数   
 6' url 要传递的url，这里可以含有要传递的变量，比如 "list.asp?" 或者"list.asp?keyword=key&"   
 7' 程序调用比较简单，不过还是比PHP的麻烦，继续努力中 
 8
 9sub show_page(total_records,everypage_records,current_page,url) 
10
11if IsNumeric (total_records) then   
12total_records=Int(total_records)   
13else   
14total_records=0   
15end if   
16  
17if IsNumeric (everypage_records) then   
18everypage_records=Int(everypage_records)   
19if everypage_records<=0 then   
20everypage_records=10   
21end if   
22else   
23everypage_records=10   
24end if   
25  
26if IsNumeric (current_page) then   
27current_page=Int(current_page)   
28else   
29current_page=1   
30end if   
31  
32'取总页数，即最后一页   
33if total_records mod everypage_records=0 then   
34last_page=Int(total_records/everypage_records)   
35else   
36last_page=Int(total_records/everypage_records)+1   
37end if   
38  
39'判断 current_page 是否符合标准,并附值给page   
40if current_page>=last_page then   
41page=last_page   
42elseif current_page<=1 then   
43page=1   
44else   
45page=current_page   
46end if   
47  
48'上一页   
49if page<=0 then   
50prepg=0   
51else   
52prepg=page-1   
53end if   
54'下一页   
55if page=last_page then   
56nextpg=0   
57else   
58nextpg=page+1   
59end if   
60  
61'本页开始记录   
62firstcount=prepg*everypage_records   
63'本页结束记录   
64if nextpg>=1 then   
65lastcount=(nextpg-1)*everypage_records   
66else   
67lastcount=total_records   
68end if   
69'开始分页导航条代码   
70pagenav=""   
71pagenav1=""   
72pagenav=pagenav&"显示第

<b>"&firstcount&"-"&lastcount&"</b>

1条记录 共

<b>"&total_records&"</b>

1条记录"   
2pagenav1=pagenav1&"显示第

<b>"&firstcount&"-"&lastcount&"</b>

1条记录 共

<b>"&total_records&"</b>

1条记录"   
2  
3if last_page>1 then   
4'当有前后页时   
5pagenav=pagenav&"

1"   
2pagenav1=pagenav1&"

1"   
2if prepg>=1 then   
3pagenav=pagenav&"

1"   
2pagenav1=pagenav1&"

1"   
2else   
3pagenav=pagenav&" 前页 "   
4pagenav1=pagenav1&" 前页 "   
5end if   
6if nextpg>=1 then   
7pagenav=pagenav&"

1"   
2pagenav1=pagenav1&"

1"   
2else   
3pagenav=pagenav&" 后页 "   
4pagenav1=pagenav1&" 后页 "   
5end if   
6pagenav=pagenav&"

1"   
2pagenav1=pagenav1&"

1"   
2  
3pagenav=pagenav&"到第

1页

1"   
2pagenav=pagenav&" 共 "&last_page&" 页" 
3
4pagenav1=pagenav1&"到第

1页

1"   
2pagenav1=pagenav1&" 共 "&last_page&" 页"   
3end if 
4
5end sub