asp分页方法

来源：百度知道 编辑：UC知道 时间：2024/05/20 04:09:01
不用recordset是否可以实现分页?如果可以怎样实现,实现代码是?谢谢!!

set db=server.CreateObject("ADODB.Connection")
set rs=server.CreateObject("ADODB.RecordSet")
rs.open sqltxt,db,1 'sqltxt 就是SQL 语句
page=cint(request.querystring("page"))

if request.querystring("page")="" then '如果接收page 为空则page 等于1，显示第一页。
page=1
end if

rs.PageSize=12 '设置每页显示几条记录
rs.AbsolutePage=page '设置当前显示第几页
I=rs.PageSize
s=1
while not rs.eof and i>0

'这里显示每页的内容

I=I-1
rs.movenext
wend

'下面是页码选择代码

<%
if rs.PageCount>15 then
if page=1 then
response.write("<font color='#FF0000'>已至首页 </font>")
else
%>
<a href='?page=1&nx=5&id=<%=request.QueryString("id")%>'><font color='#000000'> 首页 </font></a>
<a href='?page=<%=page-1%>&nx=5&id=<%