在ASP中自动分页的实现
发布时间：2023-08-07 14:13:11 所属栏目：Asp教程 来源：
导读：＜%
If rs1.recordcount＞0 Then ' 记录集不为空则处理记录
rs1.pagesize = 10 ' 设置每页显示的记录数
num=rs1.recordcount ' 记录总数
pagenum=rs1.pagecount ' 页
If rs1.recordcount＞0 Then ' 记录集不为空则处理记录
rs1.pagesize = 10 ' 设置每页显示的记录数
num=rs1.recordcount ' 记录总数
pagenum=rs1.pagecount ' 页
|
＜% If rs1.recordcount＞0 Then ' 记录集不为空则处理记录 rs1.pagesize = 10 ' 设置每页显示的记录数 num=rs1.recordcount ' 记录总数 pagenum=rs1.pagecount ' 页总数 page=request("page") ' 获取页码的原始信息 ' 处理页码原始信息的开始！ 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 else page = 1 End if if page*rs1.pagesize ＞ num and not((page-1)*rs1.pagesize ＜ num)then page=1 end if ' 处理页码原始信息的结束！设置当前页码 rs1.absolutepage = page %＞ ＜!--判断当前页是否是最后一页，并根据判断设置记录的重复显示--＞ ＜% if page＜＞pagenum then lablenum=rs1.pagesize else lablenum=num-(page-1)*rs1.pagesize end if for i=1 to lablenum %＞ ＜tr bgcolor="#FFFFFF"＞ ＜td height="25"＞＜div align="center"＞＜%=(rs1.Fields.Item("id").Value)%＞＜/div＞＜/td＞ ＜td＞＜div align="center"＞＜%=(rs1.Fields.Item("名称").Value)%＞＜/div＞＜/td＞ ＜td＞＜div align="center"＞＜%=(rs1.Fields.Item("地址").Value)%＞＜/div＞＜/td＞ ＜td＞＜div align="center"＞＜%=(rs1.Fields.Item("类别").Value)%＞＜/div＞＜/td＞ ＜td＞＜div align="center"＞＜%=(rs1.Fields.Item("最后修改").Value)%＞＜/div＞＜/td＞ ＜td＞＜div align="center"＞＜%=(rs1.Fields.Item("修改人").Value)%＞＜/div＞＜/td＞ ＜/tr＞ ＜% rs1.movenext next %＞ ＜!--当前页的记录显示结束，以下代码为记录集分页链接代码--＞ ＜table width="70%" border="0" align="center" cellpadding="0" cellspacing="0"＞ ＜tr＞ ＜td height="35"＞ ＜div align="right"＞ ＜font color="#333333"＞ 共有 ＜%=num%＞ 个链接 | ＜a href=linkadmin.asp?page=1＞首页＜/a＞ | ＜%if page＞1 then%＞＜a href=linkadmin.asp?page=＜%=page-1%＞＞＜%end if%＞上一页＜/a＞ | ＜%if page＜pagenum then%＞＜a href=linkadmin.asp?page=＜%=page 1%＞＞＜%end if%＞下一页＜/a＞ | ＜a href=linkadmin.asp?page=＜%=pagenum%＞＞尾页＜/a＞ | 页次:＜%=page%＞/＜%=pagenum%＞页 | 共＜%=pagenum%＞页 ＜/font＞ ＜/div＞ ＜/td＞ ＜/tr＞ ＜/table＞ ＜!--记录集分页链接代码结束，记录集为空时执行以下代码--＞ ＜%else%＞ ＜tr bgcolor="#FFFFFF"＞ ＜td height="25" colspan="6"＞＜div align="center"＞＜% response.Write("没有结果可显示！") %＞ ＜/div＞＜/td＞ ＜/tr＞ ＜% end if rs1.Close() Set rs1 = Nothing %＞ （编辑：聊城站长网） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |
推荐文章
站长推荐
