关于分页的问题?????好急 啊?

leo1985129 2004-08-02 04:02:01
假如有100页信息,不显示“上一页”和“下一页” ,而是从1到8拍开

如:

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


是真排列的?请问程序改怎么写啊?
...全文
57 点赞 收藏 3
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
heezi 2004-08-02
Private function f_page(pageurl,showpage,urlother,page_cc)
'必须首先呼叫函数page_c(page_count)
'参数pageurl为页面地址
'参数showpage为显示多少页,数据类型为Int,最好能为2整除
'参数other为?后page以外的其他地址参数,数据类型string
'参数page_cc为总页数,建议用 select count(*) from table取出记录总数然后再计算出总页数
Dim page1,page2, writepage
writepage=""
writepage=writepage & "页次:" & page & "/" & page_cc & " | 分页:"
if page>1 then
writepage=writepage & "<a href='" & pageurl & "?page=1"
writepage=writepage & urlother & "' title='第一页'><font face=webdings>9</font></a> "
writepage=writepage & "<a href='" & pageurl & "?page=" & page-1
writepage=writepage & urlother & "'><上一页</a>"
end if
if page_cc<=showpage then
page2=page_cc
else
page2=page+round(showpage/2)
if page2<showpage then
page2=showpage
elseif page2>page_cc then
page2=page_cc
end if
end if
if page2-showpage<1 then
page1=1
else
page1=page-(showpage/2-1)
if page1>page_cc-showpage then
page1=page_cc-showpage
end if
end if
Dim p_i, rp, pagetemp
rp="<strong>"
for p_i=page1 to page2
if page=p_i then
pagetemp=" <font color=#ff0000>" & p_i & "</font>"
else
pagetemp=" <a href='" & pageurl & "?page=" & p_i & urlother &"'>"& p_i & "</a>"
end if
rp=rp & pagetemp
next
writepage=writepage & rp &"</strong>"
if page<page_cc then
writepage=writepage & " <a href='" & pageurl & "?page=" & page+1
writepage=writepage & urlother & "'>下一页></a>"
writepage=writepage & " <a href='" & pageurl & "?page=" & page_cc
writepage=writepage & urlother & "' title='最后页'><font face=webdings>:</font></a> "
end if
response.write(writepage)
end function
%>
回复
dcwang 2004-08-02
写一个循环,就如产品展示的页面显示的3X4效果.

1~~~25可用自动累加.
回复
leo1985129 2004-08-02
怎么没有人吗?
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2004-08-02 04:02
社区公告
暂无公告