【100分】请教ASP分页的问题！高手进来！

来源：百度知道编辑：UC知道时间：2024/05/18 22:15:39

为什么我的分页程序的【上一页】和【下一页】不正常啊！
按道理说，【上一页】应该是：<a href="photo.asp?page=<%= page-1 %>">上一页</a>但预览的时候，状态烂上显示却是：photo.asp?page=-2
======================================
而【下一页】却始终是page=0，
请哪位高手给修改一下

没有上一页的时候，【上一页不可用】，下一页也是下面是我的代码：
================================================
set rs= Server.CreateObject("adodb.recordset")
sql="select top 6 * from zhuanji where yhm='"&session("username")&"'"
rs.open sql,conn,1,3
page=1 ' 设置变量PAGE=1
rs.PageSize = 1 '每页显示记录数
pagezs=rs.pagecount
if Not IsEmpty(Request("Page")) then '如果PAGE已经初始化...
Page = CInt(Request("Page")) '接收PAGE并化为数字型赋给PAGE变量
if Page > rs.PageCount then '如果接收的页数大于总页数
rs.AbsolutePage = rs.PageCount '设置当前显示页等于最后页
elseif Page <= 0 then '如果page小于等于0
Page = 1

if Not IsEmpty(Request("Page")) then '如果PAGE已经初始化...
Page = CInt(Request("Page")) '接收PAGE并化为数字型赋给PAGE变量
if Page > rs.PageCount then '如果接收的页数大于总页数
rs.AbsolutePage = rs.PageCount '设置当前显示页等于最后页
elseif Page <= 0 then '如果page小于等于0
Page = 1 '设置PAGE等于第一页
else
rs.AbsolutePage = Page '如果大于零,显示当前页等于接收的页数
end if
End if
Page = rs.AbsolutePage

这段改成

Page = Request("Page")
if isnumeric(Page) then
Page = cint(Page)
else
Page = 1
end if

if Page > rs.PageCount then '如果接收的页数大于总页数
Page = rs.PageCount '设置当前显示页等于最后页
elseif Page <= 0 then '如果page小于等于0
Page = 1 '设置PAGE等于第一页
end if
rs.AbsolutePage = Page

发一个我写好了的给你用
<%
dim sz,pg,maxpg,total
set rs=server.CreateObject("adodb.recordset")
sql="select * from news order by id desc"

请教 asp 分页的问题 ASP内容分页问题请教高手请教高手，关于asp分页技术问题 ASP分页问题，高手进·！ 100分求解决asp中分页，还有传递参数问题？是高手就留下你的QQ 请教ASP高手,关于ASP分页技术 asp分页的问题 asp的分页问题。。。。 ASP的分页问题 ASP分页问题,求高手