翻页问题
一个翻页的问题:
共有28条记录
每页10条
那么就应该分为3页.
我的页面里,分页计算是对了的.
只是在显示的时候有问题.
问题如下:
当定位到第一页的时候,第一页不是显示10条.
而是所有的记录(28),点击下页,又显示18条而不是10条
再转到第三页(末页),显示8条!~~~

------解决方案--------------------
'**************************************************
'函数名：ShowPage
'作 用：显示“上一页 下一页”等信息
'参 数：sFileName ----链接地址
' TotalNumber ----总数量
' MaxPerPage ----每页数量
' ShowTotal ----是否显示总数量
' ShowAllPages ----是否用下拉列表显示所有页面以供跳转。有某些页面不能使用，否则会出现JS错误。
' strUnit ----计数单位
'返回值：“上一页 下一页”等信息的HTML代码
'**************************************************
function ShowPage(sFileName,CurrentPage,TotalNumber,MaxPerPage,ShowTotal,ShowAllPages,strUnit)
dim TotalPage,strTemp,strUrl,i

if TotalNumber=0 or MaxPerPage=0 or isNull(MaxPerPage) then
ShowPage= " "
exit function
end if
if totalnumber mod maxperpage=0 then
TotalPage= totalnumber \ maxperpage
else
TotalPage= totalnumber \ maxperpage+1
end if
if CurrentPage> TotalPage then CurrentPage=TotalPage

strTemp= " <table align= 'center '> <tr> <td> "
if ShowTotal=true then
strTemp=strTemp & "共 <b> " & totalnumber & " </b> " & strUnit & "&nbsp;&nbsp; "
end if
strUrl=JoinChar(sfilename)
if CurrentPage <2 then
strTemp=strTemp & "首页 上一页&nbsp; "
else
strTemp=strTemp & " <a href= ' " & strUrl & "page=1 '> 首页 </a> &nbsp; "
strTemp=strTemp & " <a href= ' " & strUrl & "page= " & (CurrentPage-1) & " '> 上一页 </a> &nbsp; "
end if

if CurrentPage> =TotalPage then
strTemp=strTemp & "下一页 尾页 "
else
strTemp=strTemp & " <a href= ' " & strUrl & "page= " & (CurrentPage+1) & " '> 下一页 </a> &nbsp; "
strTemp=strTemp & " <a href= ' " & strUrl & "page= " & TotalPage & " '> 尾页 </a> "
end if
strTemp=strTemp & "&nbsp;页次： <strong> <font color=red> " & CurrentPage & " </font> / " & TotalPage & " </strong> 页 "
strTemp=strTemp & "&nbsp; <b> " & maxperpage & " </b> " & strUnit & "/页 "
if ShowAllPages=True then
strTemp=strTemp & "&nbsp;&nbsp;转到第 <input type= 'text ' name= 'page ' size= '3 ' maxlength= '5 ' value= ' " & CurrentPage & " ' onKeyPress= " "if (event.keyCode==13) window.location= ' " & strUrl & "page= " & " '+this.value; " " '> 页 "
end if
strTemp=strTemp & " </td> </tr> </table> "
ShowPage=strTemp
end function
------解决方案--------------------
飘
------解决方案--------------------
你没给出你的代码
------解决方案--------------------
为什么要那样去分页啊,直接像楼上写的那样就可以啊