给大家一个简单的分页。

[xyp730000]

先说明。我是一个菜鸟。大家不要骂我哦（如果代码有问题的话^_^）。


<%
'分页函数
Function New_URL(page,pages,MaxShowPage) 'MaxShowPage 为前后显示几个页面的参数，函数需要的参数有：page(当前页);pages(总页数)
if page>pages then page=pages
New_URL_left="<a href=main.asp?id=" &id 'id为函数外参数
L_L =page-MaxShowPage
R_R =page+MaxShowPage
if L_L<2 then L_L=2
if R_R>pages-1 then R_R=pages-1
'分页第一页代码
if page=1 then
aaa_aaa="<font color=red><b>1</b></font></a>"
else
aaa_aaa="[1]</a>"
end if
New_URL=New_URL_left &"&page=1 title='第1页'>" &aaa_aaa
if L_L>2 then New_URL=New_URL &" …"
'中间页面代码
for i =L_L to R_R
if page=i then
bbb_bbb="<font color=red><b>"&i&"</b></font></a>"
else
bbb_bbb="[" &i& "]</a>"
end if
New_URL=New_URL &" "& New_URL_left &"&page=" &i& " title='第" &i& "页'>" &bbb_bbb
next
if R_R<pages-1 then New_URL=New_URL &" …"
'分页最后一页代码
if page=pages then
ccc_ccc="<font color=red><b>" &pages& "</b></font></a>"
else
ccc_ccc="[" &pages& "]</a>"
end if
if pages >1 then New_URL=New_URL &" "& New_URL_left &"&page="&pages&" title='第" &pages& "页'>" &ccc_ccc
End Function

page=cint(request("page"))
if page<1 then page=1
%>

<%=New_URL(page,20,3)%>

[xyp730000]

你如果要一次全部显示，啦你只要使 MaxShowPage 的值 大于 pages的值就行了。

[xyp730000]

不是吧，这个分页函数竟然没有人要。

艾。

[dullwolf]

这个价值超过200分！！超级大笨狼 制作
2万行数据巨快，SQL存储过程分页演示，通用表维护
http://www.adr.gov.cn/download/panyuguang/adrnew/dict_List.asp
下载
http://www.adr.gov.cn/download/panyuguang/adrnew.rar

[xyp730000]

没有理我。好伤心哦。