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 < 1 then
pageno = 1
elseif pageno > pcount then
pageno = pcount
end if
thepage = (pageno-1)*psize
if not rs.eof then rs.absolutepage = pageno
%>
 

 
 
   
   

<% for i = 1 to psize if rs.eof then exit for %>                                                                                                                                                                                                                                                                                                <% rs.movenext next %>                                                                                           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> jsp教程?id=<%=rs("id")%>"><%=rs("userid")%>  <%=rs("company")%>  <%=rs("truename")%>                   src="images/break-el.gif" width=1>  <%=rs("tel2")%>                   src="images/break-el.gif" width=1> <%=rs("regtime")%> <%=rs("dltime")%>                   src="images/break-el.gif" width=1> <%if rs("zt")=0 then                     response.write "正常"                     else                       response.write "禁止"                       end if%>                                                                                                                                                                                         共<%= rcount %>条 分<%= pcount %>页 | 当前第<%= pageno %>页                             <%           if pageno > 1 then            response.write "首页 "            response.write "上页 "              else            response.write "首页 "            response.write "上页 "           end if            %>                                                           <% for i = 1 to pcount %>                               ><%=i%>                               <% next %>                                                                                       <%           if pageno < pcount then            response.write "下页 "            response.write "尾页"             else            response.write "下页 "            response.write "尾页"           end if            %>

<%
rs.close
set rs = nothing
%>