本人常用的分页代码 日期:2020-05-13 栏目:程序人生 浏览:次 个人会员管理 个人会员列表 序号 用户名 加入日期 等级 操作 <% dim maxperpage maxperpage=20 if not isempty(request("page")) then currentPage=cint(request("page")) else currentPage=1 end if filename="gr_member.asp" dim rs set rs=server.CreateObject("adodb.recordset") sql="select id,dxy_username,datetime,dj from "&gr_membertable&" order by id desc" rs.open sql,conn,1,1 if rs.eof then response.write "没有相关信息" else totalPut=rs.recordcount if currentpage<1 then currentpage=1 end if if (currentpage-1)*maxperpage>totalput then if (totalput mod maxperpage)=0 then currentpage=totalput\maxperpage else currentpage=totalput\maxperpage+1 end if end if if currentpage=1 then showcontent() showpage totalput,maxperpage,filename else if (currentpage-1)*maxperpage "> <%=rs("dxy_username")%> 共2页: 上一页12下一页 上一篇:浏览文件夹下面所有图片 下一篇:asp防止刷新功能实现代码 内容版权声明:除非注明,否则皆为本站原创文章。 转载注明出处:http://www.heiqu.com/3506.html 相关推荐 2021-04-091vue.js在标签属性中插入变量参数的方法 2021-04-092cli 打包时抽离项目相关配置文件详解 2021-04-093解决iview打包时UglifyJs报错的问题 2021-04-094Ubuntu 编译运行C笔记 2021-04-095Android 多线程断点续传下载器