记录集分页问题

答案:1 悬赏:10 手机版

解决时间 2021-05-06 10:59

提问者网友：藍了天白赴美
2021-05-05 14:53

ASP网页记录集分页效果以下为代码

<%
if rs.recordcount > 0 then
rs.pagesize=4
num=rs.recordcount
pagenum=rs.pagecount
page=4
if page <> "" then
    page =cint(page)
if err.number <> 0 then
    err clear
page=1
end if
if page < 1 then
    page =1
end if
end if
else
page=1
end if
if page*pagesize > num and not ((page-1)*rs.pagesize < num) then
page=1
end if
rs.absolutepage = page
%>

显示区域代码：

<%
if rs.eof then
response.Write("暂无内容，欢迎留言")
else
if page<>pagenum then
lablenum=rs.pagesize
else
labelnum=num-(page-1)*rs.pagesize
end if
for i=1 to labelnum
%>

rs.movenext

end if

最佳答案

五星知识达人网友：等灯
2021-05-05 16:31

我有个差不多的一个分页程序，你拿去参考一下吧建立access的数据库news,还有表news,表的字段(id,title),id唯一,输入数据保存,用下面代码可查询,可分页 -----------------------下面保存为search.asp-------------------------- <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>文件</title> </head> <body bgcolor="#ffffff"> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <script> function btn_ck_bh_Click() </script> <table border="1" cellspacing="0" bgcolor="#F0F8FF" bordercolorlight="#4DA6FF" bordercolordark="#ECF5FF" width="88%" style="word-break:break-all"> <tr> <td width="778" align="center" colspan="7"> <form method="POST" name="form1" action=search.asp> <p>输入搜索内容:<input type="text" name="cxsj" size="20"><input type="submit" value="提交" name="B1" LANGUAGE="javascript" onclick="btn_ck_bh_Click()"> <input type="reset" value="重写" name="B2"></p> </form> </td> </tr> </table> <table border="1" cellspacing="0" bgcolor="#F0F8FF" bordercolorlight="#4DA6FF" bordercolordark="#ECF5FF" width="88%" style="word-break:break-all"> <tr> <td width="8%" align="center"><strong><font color="#0080C0">ID 号</font></strong></td> <td width="58%" align="center"><strong><font color="#0080C0">标题</font></strong></td> <td width="8%" align="center"><strong><font color="#0080C0">修改</font></strong></td> <td width="8%" align="center"><strong><font color="#0080C0">删除</font></strong></td> </tr> <% '数据库查询 '获得搜索内容 cx = request("cx") dim pageCount '把page转换成整数 page = cint(request("page")) set conn=server.createobject("adodb.c

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息