不用组件的简单分页

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 %> <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>条记录&nbsp;第<b><%=page%>/<%=tatalpage%></b>页&nbsp;每页<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>

您可能感兴趣的文章：
JQuery Pager Plugin
div css网页布局时如何合理架构css？
带滑动条的jQuery分页插件 jPaginator
DWZ table的原生分页浅谈
django的内置组件有什么
django的内置组件有什么用
jquery easyui 分页的使用方法
jQuery 弹出日历组件 lhgCalendar
用LibTemplate实现静态网页的生成
ASP 3.0高级编程（二十九）