asp+acess数据库~~ asp分页时,第一页可以显示数据,点击下一页却没有记录了,请各位帮忙解决一下,谢谢~
以下是相关代码:<divclass="pageContent"><divclass="position">当前位置:<ahref='index.asp'>首页</a>><...
以下是相关代码:
<div class="pageContent"><div class="position">当前位置: <a href='index.asp'>首页</a> > <a href="camp.asp">清迈夏令营 清迈冬令营</a> > 精彩回顾</div>
<%SmallClassName=request("SmallClassName")
Set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from Product where SmallClassName='"+SmallClassName+"' order by updatetime DESC"
rs.open sql,conn,1,1
rs.pagesize=4 '每页记录条数curpage=Request.QueryString("curpage") '将URL参数curpage传给curpage变量
if curpage="" then curpage=1
rs.absolutepage=curpage '将本页设为curpage设置的页数
%>
<%
for i= 1 to rs.pagesize
if rs.eof then
exit for
end if
%>
<div class="listbox">
<ul>
<li><span>日期:<%response.Write( right(0&year(rs("UpdateTime")),4)&"-"&right(0&month(rs("UpdateTime")),2)&"-"&right(0&day(rs("UpdateTime")),2) ) %></span>
<a href="diary.asp?id=<%= rs("id") %>" class="title" style="color:#FF6633"><%=rs("Title") %></a>
<div class="listIntro">
<%=cutstr(rs("Memo"),100)%>...
</div></li>
</ul>
</div>
<%rs.movenext
next
%>
<div class="i_pages"><div style="float:left;padding-left:10px;">当前第<%=curpage%>页,共有<%=rs.pagecount%>页,共有:<%=rs.recordcount%>条记录</div>
<div style="float:right;padding-right:10px;" >
<%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%>
下一页
<%else%>
<a href="?curpage=<%=curpage+1%>">下一页 </a>
<%end if%>
<%if rs.pagecount<curpage+1 then%>
尾页
<%else%>
<a href="?curpage=<%=rs.pagecount%>">尾页 </a>
<%end if%>
</div>
</div>
</div> 展开
<div class="pageContent"><div class="position">当前位置: <a href='index.asp'>首页</a> > <a href="camp.asp">清迈夏令营 清迈冬令营</a> > 精彩回顾</div>
<%SmallClassName=request("SmallClassName")
Set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from Product where SmallClassName='"+SmallClassName+"' order by updatetime DESC"
rs.open sql,conn,1,1
rs.pagesize=4 '每页记录条数curpage=Request.QueryString("curpage") '将URL参数curpage传给curpage变量
if curpage="" then curpage=1
rs.absolutepage=curpage '将本页设为curpage设置的页数
%>
<%
for i= 1 to rs.pagesize
if rs.eof then
exit for
end if
%>
<div class="listbox">
<ul>
<li><span>日期:<%response.Write( right(0&year(rs("UpdateTime")),4)&"-"&right(0&month(rs("UpdateTime")),2)&"-"&right(0&day(rs("UpdateTime")),2) ) %></span>
<a href="diary.asp?id=<%= rs("id") %>" class="title" style="color:#FF6633"><%=rs("Title") %></a>
<div class="listIntro">
<%=cutstr(rs("Memo"),100)%>...
</div></li>
</ul>
</div>
<%rs.movenext
next
%>
<div class="i_pages"><div style="float:left;padding-left:10px;">当前第<%=curpage%>页,共有<%=rs.pagecount%>页,共有:<%=rs.recordcount%>条记录</div>
<div style="float:right;padding-right:10px;" >
<%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%>
下一页
<%else%>
<a href="?curpage=<%=curpage+1%>">下一页 </a>
<%end if%>
<%if rs.pagecount<curpage+1 then%>
尾页
<%else%>
<a href="?curpage=<%=rs.pagecount%>">尾页 </a>
<%end if%>
</div>
</div>
</div> 展开
3个回答
展开全部
有可能是你下一页链接没有加上SmallClassName值 所以你点之后这个值就没啦
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
if curpage="" then curpage=1 'curpage到底是什么变量?rs.absolutepage 是一个数值型变量
把这一行改成
curpageStr = request("curpage")
if curpage="" then
curpage = 1
else
curpage = CInt(curpageStr)
end if
把这一行改成
curpageStr = request("curpage")
if curpage="" then
curpage = 1
else
curpage = CInt(curpageStr)
end if
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
page后加上参数,?page=5&SmallClassName=XXXXX
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询