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

[leo1985129]

假如有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


是真排列的？请问程序改怎么写啊？

[leo1985129]

怎么没有人吗？

[dcwang]

写一个循环，就如产品展示的页面显示的3Ｘ4效果．

1～～～25可用自动累加．

[heezi]

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
%>