不用组件的简单分页

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>条记录&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>