UC知道求助，ASP分页问题
来源：百度知道 编辑：UC知道 时间：2024/06/21 23:09:18
<!--#include file="dbconn.asp"-->
<title>商品列表</title>
<body>
<%
Set rs=Server.CreateObject("Adodb.Recordset")
sql="Select * from product order by p_name desc"
rs.open sql,conn,1,3
rs.pagesize=10
curpage=Request.QueryString("curpage")
if curpage="" then curpage=1
rs.absolutepage=curpage
%>
<%
for i= 1 to rs.pagesize
if rs.eof then
exit for
end if
%>
<%=rs("p_name")%><br>
<%
rs.movenext
next
%>
<%if curpage=1 then%>
首页
<%else%>
<a href="?curpage=1">首页</a>
<%end if%>
<%if curpage=1 then%>
上一页
<%else%>
<a href="?curpage=<%=curpage-1%>">上一页</a>
<%end if%>
<%if rs.pagecount<curpage+1 then%>
下一页
&l
<title>商品列表</title>
<body>
<%
Set rs=Server.CreateObject("Adodb.Recordset")
sql="Select * from product order by p_name desc"
rs.open sql,conn,1,3
rs.pagesize=10
curpage=Request.QueryString("curpage")
if curpage="" then curpage=1
rs.absolutepage=curpage
%>
<%
for i= 1 to rs.pagesize
if rs.eof then
exit for
end if
%>
<%=rs("p_name")%><br>
<%
rs.movenext
next
%>
<%if curpage=1 then%>
首页
<%else%>
<a href="?curpage=1">首页</a>
<%end if%>
<%if curpage=1 then%>
上一页
<%else%>
<a href="?curpage=<%=curpage-1%>">上一页</a>
<%end if%>
<%if rs.pagecount<curpage+1 then%>
下一页
&l
rs.absolutepage=curpage
是不是这句出错了，是的话，那是因为你的数据库里没有数据的原因。
可以加个判断啊
if curpage="" then curpage=1
if rs.eof and rs.bof then
response.write"没有记录"
else
rs.absolutepage=curpage
后面记得在你语句完了时加多个end if
试下行不
把这句
rs.open sql,conn,1,3
改为
rs.open sql,conn,3,3
试下
1，3好像也应该没问题的吧
可能是你传入的参数有问题，用下Cint（）
完整代码：
<!--#include file="dbconn.asp"-->
<title>商品列表</title>
<body>
<%
Set rs=Server.CreateObject("Adodb.Recordset")
sql="Select * from product order by p_name desc"
rs.open sql,conn,3,3
if rs.eof or rs.bof then
response.write "没有数据"
else
rs.pagesize=10
curpage=Request.QueryString("curpage")
if curpage="" then curpage=1
rs.absolutepage=cint(curpage)
%>
<%
for i= 1