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>笔记录