 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
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.eof tatalrecord=tatalrecord+1 rs.movenext loop num=tatalrecord Mod 15 if num>0 then i=1 else i=0 end if tatalpage=int(tatalrecord/15+i) rs.movefirst page=request.querystring("page") if page="" then page=1 end 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 %> <a href="bbs.asp?page=<%=page+1%>">下一页</a> <a href="bbs.asp?page=<%=tatalpage%>">尾页</a> <% elseif int(page)=int(tatalpage) then %> <a href="bbs.asp?page=1">首页</a> <a href="bbs.asp?page=<%=page-1%>">上一页</a> <%else %> <a href="bbs.asp?page=1">首页</a> <a href="bbs.asp?page=<%=page-1%>">上一页</a> <a href="bbs.asp?page=<%=page+1%>">下一页</a> <a href="bbs.asp?page=<%=tatalpage%>">尾页</a> <% end if %> 共<b><%=tatalrecord %></b>条记录 第<b><%=page%>/<%=tatalpage% ></b>页 每页<b>15</b>条记录 <form action="bbs.asp" style="position: relative"> <p align="right"> 跳转到第<input type="text" name="page" size="4">页<input type="submit" value="确定" name="B1" style="border-style: solid"> </form> 返回类别: 教程 上一教程: 初学者必读 ASP运行环境的搭建 下一教程: 支持中文的无组件文件上传 您可以阅读与"不用组件的简朴分页"相关的教程: · 不用组件实现上载功能(1) · 不用图像组件的ASP图像计数器 · 不用组件实现上载功能(2) · 一个用组件动态创建EXCEL文件的实例 · ADODB.STREAM 组件的使用说明 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
