[求助]ASP中"上一页"，下一页的代码怎样写？(问题问的有点不清！) - ASP技术论坛

问题点数：0 回复次数：5

[求助]ASP中"上一页"，下一页的代码怎样写？(问题问的有点不清！)

<% '连接数据库
set myconn=Server.CreateObject("ADODB.Connection")
myconn.open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = "&server.Mappath("fenye.mdb")
set rs=server.CreateObject("ADODB.RecordSet")
%>
<% 　'接收参数
dim num
num="1"
if request.QueryString("num")<> "" then
num=request.QueryString("num")
end if

'输出一条记录
rs.open "select * from fenye where num="&num,myconn,3,3
response.write "姓名:"&rs("name")
response.write " 出生日期;"&rs("born")
response.write " 年龄;"&rs("sex")
response.write "<P>简介;"&rs("jj")

<body>

<a href="xx.asp?num=<%=rs("num")-1%>">上一页</a> '如果这里是第一条记录，那么点击“上一页时，会出错！”
<a href="xx.asp?num=<%=rs("num")+1%>">下一页</a> '同上，如果是最后一页，点击也会出错！

</P>
<%
rs.close
set rs=nothing
%>
</body>
</html>

谢谢各位，给说明一下，该怎样做，或给个代码也行，　谢谢你们！

搜索更多相关主题的帖子: ASP　代码　

第 2 楼

得分:0

判断num是否为空，如果num为空则为1
如果num大于最大页数，num就等于最大页数。
把这两个判断加上。

第 3 楼

得分:0

怎样判断写清楚点！
而且又出现问题了：　当当前记录参数是5时，　而下一条是7　，刚也会出错！我感觉到应该用　rs.movenext，可我不知道该咋用，
知道的哥们给说一下啊！！

第 4 楼

得分:0

[url]http://bbs.bc-cn.net/viewthread.php?tid=180496&star=at#[/url]
看看上面这个贴子，应该对你有帮助的。我这边不方便调试asp

第 5 楼

得分:0

<%set rs = conn.execute("select * from fenye")
if not rs.eof then
count = ubound(rs.getrows,2) + 1
pagesize = 10
if count mod pagesize = 0 then
pagecount = count\pagesize
else
pagecount = count\pagesize + 1
end if
page = request("page")
if isnull(page) or page="" then
page = 1
else
if not isnumeric(page) then
page = 1
else
page= int(page)
if page < 1 then page = 1
if page > pagecount then page = pagecount
end if
end if
rs.movefirst
rs.move pagesize*(page - 1)
for i = 1 to pagesize
if rs.eof then exit for

response.write "姓名:"&rs("name")
response.write " 出生日期;"&rs("born")
response.write " 年龄;"&rs("sex")
response.write "<P>简介;"&rs("jj")

rs.movenext
next

if page <= 1 then
x = " 首页上页 "
else
x = " <a href=?page=1>首页</a> <a href=?page="&page - 1&">上页</a> "
end if
if page >= pagecount then
y = " 下页末页 "
else
y = " <a href=?page="&page + 1&">下页</a> <a href=?page="&pagecount&">末页</a> "
end if
z = " 每页显示 "&pagesize&" 条当前第 "&page&" 页共 "&pagecount&" 页 "&count&" 条 "

end if%>
----------------------------------------
<% = x %> <% = y %> <% = z %>

第 6 楼

得分:0

建议看一下http://bbs.bc-cn.net/viewthread.php?tid=184504这个帖子的四楼可能对你对分页的理解会有所帮助

要想飞的更高，就把地平线忘掉！