Question

ASP语言 请教翻页代码问题。

以下代码 请帮忙解决。 现状： 按下一页按钮 是6页 6页下翻。 请问 如何 变成一页一页

function viewpage(p_c,p_n,p_x,p_p,Dreamsun_cls,p_z,showfile)
'总记录,显示记录数,显示页数,当前页,传替参数,总数说明,当前页面名称
dim p_k,p_y,p_p2,p_p3,p_m
'计算页数相关
if p_c/p_n = int(p_c/p_n) then
p_y=int(p_c/p_n)
else
p_y=int(p_c/p_n)+1
end if
if p_p>p_y then p_p=p_y
p_p2= int(p_p/p_x)
if p_p/p_x>p_p2 then p_p2=p_p2+1
p_k=p_p2*p_x
if p_k>p_y then p_k=p_y
If Dreamsun_cls<>"" And Left(Dreamsun_cls,1)<>"&" Then Dreamsun_cls="&"&Dreamsun_cls
viewpage=viewpage& "<div class=""meneame""><em> " & p_c &"/ "&p_y&"</em> "
if p_p2>0 then
viewpage=viewpage& "<a href='"&showfile&"?CurPage=1" & Dreamsun_cls&"'>首页</a>"
viewpage=viewpage& "<a href='"&showfile&"?CurPage="& p_p2*p_x-p_x & Dreamsun_cls&"'>上一页</a>"
end if
For p_m =p_p2*p_x-(p_x-1) To p_k
if p_m=p_p then
viewpage=viewpage& "<strong>"& p_m &"</strong>"
else
viewpage=viewpage& "<a href='"&showfile&"?CurPage="& p_m & Dreamsun_cls&"'>"& p_m &"</a>"
end if
Next
if p_p2*p_x < p_y then
viewpage=viewpage& "<a href='"&showfile&"?CurPage="&p_m & Dreamsun_cls&"'>下一页</a>"
viewpage=viewpage& "<a href='"&showfile&"?CurPage="&p_y & Dreamsun_cls&"'>尾页</a>"
end if
'***************************************
' viewpage=viewpage& "<input type=""text"" name=""custompage"" size=""3"" onkeydown=""if(event.keyCode==13) {window.location='"&showfile&"?abc=1"&Dreamsun_cls&"&CurPage='+this.value; return false;}""/></div>"& vbCrLf
'***************************************
End Function

Answer 1

viewpage=viewpage& "<a href='"&showfile&"?CurPage="&p_m & Dreamsun_cls&"'>下一页</a>"
错了. 怎么能用p_m 呢.
把 p_m 改成 p_p+1 试试看.
并且还要加个超出索引值的判断.
那个上一页的地方 p_p-1就行了. 写这么复杂....
记得要加超出索引值的判断

追问

改成 p_p+1 是对的，，请问你说的 超出索引值的判断 该怎么写？

还有一个问题，，现在 页码是 首页 上一页 1 2 3 4 5 下一页 尾页 当按下一页到 6页码时 就不显示 下一页按钮了。 变成 首页 上一页 6 7 。。 如何将下一页 还显示出来。。到7页码才没有 下一页按钮。

追答

比如你只有7页内容. 传入一个 索引8或者索引-1. 肯定会出问题了. 所以要判断一下. 保证程序稳定性.
不显示下一页 是由于有判断
if p_p2*p_x < p_y then
限制了. 这个判断是表示. 如果分页的分组不是最后一组.才显示下一页和尾页.
可以改为
if p_p<p_y then
表示 当前页小于总页数 就显示下一页和尾页.

命名好混乱.. -_-!!

Answer 2

Dreamsun_cls应该有个取值的吧