asp 大数据量分页实例代码

set rs=server.createobject("adodb.recordset")
sql = "select userid,company,truename,tel,regtime,dltime,zt,id from [usertable] order by id desc"
rs.open sql,conn,1,1
rs.pagesize = 10
ps教程ize = rs.pagesize
pcount = rs.pagecount
rcount = rs.recordcount
action=request("action")
key=request("key")
pageno = cint(request.querystring("pageno"))
if pageno pageno = 1
elseif pageno > pcount then
pageno = pcount
end if
thepage = (pageno-1)*psize
if not rs.eof then rs.absolutepage = pageno
%>

height=24 align=middle background=images/stab-ub.gif>帐号 src="images/break-el.gif" width=1> background=images/stab-ub.gif>公司 src="images/break-el.gif" width=1> background=images/stab-ub.gif>联系人 src="images/break-el.gif" width=1> background=images/stab-ub.gif>移动电话 src="images/break-el.gif" width=1> background=images/stab-ub.gif>注册时间 background=images/stab-ub.gif>登陆时间 background=images/stab-ub.gif> src="images/break-el.gif" width=1> background=images/stab-ub.gif>状态 src="images/break-el.gif" width=1> background=images/stab-ub.gif> src="images/break-el.gif" width=1> for i = 1 to psize if rs.eof then exit for %> rs.movenext next %> ?id="> src="images/break-el.gif" width=1> src="images/break-el.gif" width=1> src="images/break-el.gif" width=1> response.write "正常" else response.write "禁止" end if%> 共条 分页 | 当前第页 if pageno > 1 then response.write " " response.write " " else response.write "首页 " response.write "上页 " end if %> > if pageno response.write " " response.write "" else response.write "下页 " response.write "尾页" end if %>

rs.close
set rs = nothing
%>