通用分页实现(ASP版)
自己写的通用分页,可设置显示的分页链接数,带下拉选择:
1
<%
2
'Written by Shaoyun 20:17 2008年5月29日 0:38
3
'Email:shaoyun at yeah.net
4
'Blog:http://shaoyun.cnblogs.com
5
'分页函数:splitpage(记录总数,每页显示记录数,显示几条分页链接)
6
Function splitpage(rscount,pagesize,shownum)
7![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
8
Dim pagenum,curpage,first_page,last_page,up_page,down_page,idx,addr_url,splitpage_html
9![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
10
addr_url=Request.ServerVariables("URL")
11
addr_url=Mid(addr_url,InstrRev(addr_url,"/")+1)
12
addr_url=addr_url & "?page="
13![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
14
if (rscount mod pagesize)=0 then
15
pagenum=rscount/pagesize
16
else
17
pagenum=rscount/pagesize+1
18
end if
19
first_page=1
20
last_page=pagenum
21![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
22
curpage=1
23
if isnumeric(trim(request.QueryString("page"))) then
24
curpage=trim(request.QueryString("page"))
25
if pagenum-curpage<0 then curpage=pagenum
26
else
27
curpage=1
28
end if
29![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
30
up_page=curpage-1
31
down_page=curpage+1
32![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
33
splitpage_html="共$rscount$条记录 $pagesize$条/页 第$curpage$/$pagenum$页 "
34
splitpage_html=replace(splitpage_html,"$rscount$",rscount)
35
splitpage_html=replace(splitpage_html,"$pagesize$",pagesize)
36
splitpage_html=replace(splitpage_html,"$curpage$",curpage)
37
splitpage_html=replace(splitpage_html,"$pagenum$",pagenum)
38![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
39
splitpage_html=splitpage_html & "<a href='" & addr_url & first_page & "'>首页</a> "
40
if curpage>1 then
41
splitpage_html=splitpage_html & "<a href='" & addr_url & up_page & "'>上一页</a> "
42
else
43
splitpage_html=splitpage_html & "上一页 "
44
end if
45![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
46
dim fbegin,fend
47
if shownum mod 2 then
48
show_front_num=int(shownum/2)
49
show_back_num=int(shownum/2)
50
else
51
show_front_num=int(shownum/2)-1
52
show_back_num=int(shownum/2)
53
end if
54
if curpage-1<show_front_num then
55
fbegin=1
56
fend=shownum
57
elseif curpage+show_back_num>pagenum then
58
fend=pagenum
59
fbegin=pagenum-shownum+1
60
else
61
fbegin=curpage-show_front_num
62
fend=curpage+show_back_num
63
end if
64
for idx=fbegin to fend
65
if curpage-idx=0 then
66
splitpage_html=splitpage_html & "<b>" & idx & "</b> "
67
else
68
splitpage_html=splitpage_html & "<a href='" & addr_url & idx & "'>" & idx & "</a> "
69
end if
70
next
71![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
72
if pagenum-curpage>0 then
73
splitpage_html=splitpage_html & "<a href='" & addr_url & down_page & "'>下一页</a> "
74
else
75
splitpage_html=splitpage_html & "下一页 "
76
end if
77
splitpage_html=splitpage_html & "<a href='" & addr_url & last_page & "'>尾页</a> "
78![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
79
splitpage_html=splitpage_html & "跳转到 "
80
splitpage_html=splitpage_html & "<select onChange=window.location.href=this.options[this.selectedIndex].value>"
81
For idx=1 To pagenum
82
If curpage-idx=0 Then
83
splitpage_html=splitpage_html & "<option value='" & addr_url & idx & "' selected>第" & idx & "页</option>"
84
Else
85
splitpage_html=splitpage_html & "<option value='" & addr_url & idx & "'>第" & idx & "页</option>"
86
End if
87
Next
88
splitpage_html=splitpage_html & "</select>"
89![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
90
response.Write splitpage_html
91![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
92
End Function
93
%>
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
2
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
3
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
4
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
5
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
6
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
7
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
8
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
9
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
10
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
11
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
12
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
13
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
14
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
15
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
16
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
17
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
18
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
19
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
20
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
21
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
22
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
23
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
24
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
25
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
26
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
27
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
28
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
29
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
30
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
31
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
32
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
33
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
34
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
35
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
36
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
37
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
38
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
39
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
40
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
41
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
42
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
43
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
44
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
45
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
46
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
47
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
48
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
49
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
50
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
51
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
52
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
53
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
54
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
55
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
56
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
57
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
58
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
59
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
60
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
61
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
62
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
63
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
64
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
65
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
66
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
67
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
68
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
69
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
70
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
71
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
72
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
73
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
74
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
75
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
76
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
77
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
78
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
79
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
80
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
81
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
82
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
83
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
84
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
85
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
86
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
87
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
88
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
89
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
90
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
91
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
92
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
93
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)