[1][2][3][4][5]分页问题中有-1页的解决???

99percent 五邑大学 2004-04-05 09:01:33
rs.absolutepage = MyPage
为什么说这一句有错?怎么样才能正常运行?
=============================================
<%
If Not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Or Request("page") <=0 Then
MyPage=1
Else
MyPage=Int(Abs(Request("page")))
End if

PageShowSize = 10
MyPageSize = 5
rs.PageSize = MyPageSize
MaxPages = rs.PageCount
rs.absolutepage = MyPage
total = rs.RecordCount
i=0
do while not rs.eof or i = rs.PageSize
%>
循环
<%
rs.movenext
i=i+1
Loop
%>
<%
url="s_result.asp?BigClassName=" &xxx& "&keyword=" & keyword
PageNextSize=int((MyPage-1)/PageShowSize)+1
Pagetpage=int((total-1)/rs.PageSize)+1

if PageNextSize >1 then
PagePrev=PageShowSize*(PageNextSize-1)
Response.write "<a href='" & Url & "&page=" & PagePrev & "' title='上" & PageShowSize & "页'>上一翻页</a> "
Response.write "<a href='" & Url & "&page=1' title='第1页'>页首</a> "
end if
if MyPage-1 > 0 then
Prev_Page = MyPage - 1
Response.write "<a href='" & Url & "&page=" & Prev_Page & "' title='第" & Prev_Page & "页'>上一页</a> "
end if

if Maxpages>=PageNextSize*PageShowSize then
PageSizeShow = PageShowSize
Else
PageSizeShow = Maxpages-PageShowSize*(PageNextSize-1)
End if
If PageSizeShow < 1 Then PageSizeShow = 1
for PageCounterSize=1 to PageSizeShow
PageLink = (PageCounterSize+PageNextSize*PageShowSize)-PageShowSize
if PageLink <> MyPage Then
Response.write "<a href='" & Url & "&page=" & PageLink & "'>[" & PageLink & "]</a> "
else
Response.Write "<B>["& PageLink &"]</B> "
end if
If PageLink = MaxPages Then Exit for
Next

if Mypage+1 <=Pagetpage then
Next_Page = MyPage + 1
Response.write "<a href='" & Url & "&page=" & Next_Page & "' title='第" & Next_Page & "页'>下一页</A>"
end if

if MaxPages > PageShowSize*PageNextSize then
PageNext = PageShowSize * PageNextSize + 1
Response.write " <A href='" & Url & "&page=" & Pagetpage & "' title='第"& Pagetpage &"页'>页尾</A>"
Response.write " <a href='" & Url & "&page=" & PageNext & "' title='下" & PageShowSize & "页'>下一翻页</a>"
End if

%>
---------------------------------------
急求.
先谢/
...全文
64 点赞 收藏 5
写回复
5 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
99percent 2004-04-05
<%
if rs.eof and rs.bof then
recordcount=0
else
recordcount=rs.recordcount
end if
page=request("Page")
if Not IsNumeric(Page) then Page=1
if Page<1 then Page=1
if RecordCount mod 20 = 0 then PageCount=recordCount \ 20
else
pagecount=(recordCount \ 20)+1
end if
end if
end if
end if

rs.move((Page-1)*30)
i=0
do while (not rs.eof) and (i<30)
%>
<tr bgcolor="#FFFFFF">
<td height="30" width="130"><%=rs("gametype")%></td>
<td height="30" width="130"><%=rs("gameserver")%></td>
<td height="30" width="200"><%=rs("gn")%></td>
<td height="30" width="70"><%=rs("gs")%></td>
<td height="30" width="49"><%=rs("views")%></td>
<td width="50"><%=rs("name")%></td>
<td height="30"><%=rs("yuqi")%></td>
</tr>
<%
rs.movenext
loop

if cint(page)=1 then
第一页
else
下一页
end if

if Cint(Page)=Cint(PageCount) then
最后一页
else
上一页
end if
%>
回复
99percent 2004-04-05
aoenzh(独孤大虾)
这样是能解决-1的问题,
但是
我这个程序不能分到页,
就是说
PageShowSize = 10
MyPageSize = 5
不起作用.
回复
99percent 2004-04-05
那怎么样写法呢?
有更好的方法吗?
回复
aoenzh 2004-04-05
rs.open sql,conn,3,3
这样,就不会有-1了
昨天我也遇到这个问题,我就是这么解决的
注意一定要是 3,3
回复
a_zhe_20 2004-04-05
分页程序没必要写的这么复杂吧?

这里也问题
PageNextSize=int((MyPage-1)/PageShowSize)+1
Pagetpage=int((total-1)/rs.PageSize)+1
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

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