最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
不用组件的简单分页
时间：2022-07-02 22:58:35 编辑：袖梨 来源：一聚教程网
set conn=server.CreateObject("adodb.connection") set rs=server.CreateObject("adodb.recordset") cnpath="data source=" & server.MapPath("question.mdb") conn.open "provider=microsoft.jet.oledb.4.0;" & cnpath rs.open "bbs",conn,3,3 set rs=conn.execute("select * From mytable") do until rs.eoftatalrecord=tatalrecord+1rs.movenextloopnum=tatalrecord Mod 15if num>0 theni=1elsei=0end iftatalpage=int(tatalrecord/15+i)rs.movefirstpage=request.querystring("page")
if page="" thenpage=1end if if not rs.eof then if page=1 then rs.movefirst else
rs.move((page-1)*15)
end if for iPage=1 to 15 if rs.eof then exit for
response.end end if rs("xxxxx")
rs.movenext next end if
if page=1 then %> 下一页 尾页 <% elseif int(page)=int(tatalpage) then %> 首页 上一页 <%else %> 首页 上一页 下一页 尾页 <% end if %> 共<%=tatalrecord%>条记录 第<%=page%>/<%=tatalpage%>页 每页15条记录
if page="" thenpage=1end if if not rs.eof then if page=1 then rs.movefirst else
rs.move((page-1)*15)
end if for iPage=1 to 15 if rs.eof then exit for
response.end end if rs("xxxxx")
rs.movenext next end if
if page=1 then %> 下一页 尾页 <% elseif int(page)=int(tatalpage) then %> 首页 上一页 <%else %> 首页 上一页 下一页 尾页 <% end if %> 共<%=tatalrecord%>条记录 第<%=page%>/<%=tatalpage%>页 每页15条记录
相关文章
- 三国天下归心武将怎么养成 武将养成攻略 11-04
- 三国天下归心经济怎么提升 经济提升方法 11-04
- 妇女节必点赞的朋友圈说说(精选90句) 11-04
- 镭明闪击ssr角色怎么选 ssr角色选择推荐 11-04
- 植物大战僵尸融合版雪兽骑士怎么样 雪兽骑士属性介绍 11-04
- 植物大战僵尸融合版旅行模式关卡有哪些 旅行模式关卡介绍一览 11-04