Asp 高效分页代码，带注释，收集中。。

<SCRIPT LANGUAGE=javascript>
<!--
function sss(i)
{
 document.s.pagelabel.value =i;
 document.s.submit();

}
//-->
</SCRIPT>

<%

mysql="select count(*) from youtableName "
rs.open mysql,conn,1
totalcount=rs(0)   '总记录数
rs.close

pagesize=30  '每页显示记录数
pagelabel=clear(request("pagelabel"))  '第pagelabel页
if pagelabel="" then
 pagelabel=1
end if

'***********************下面是关键，我们每页显示pagesize条数据，我们select的时候就只选择pagesize数量的记录。

if pagelabel<>1 then  '如果不是第一页，假设是第3页，那么你需要知道前(pagelabel-1)*pagesize条记录最大的ID（该ID是表自增加ID索引）
 mysql="select max(id) from (select top "&(pagelabel-1)*pagesize&" id from youtableName " )
 mysql=mysql&") ta" 
 rs.open mysql,conn,1
 pagelabel=rs(0)     
 rs.close()
 mysql="select top "&pagesize&" * from youtableName where id>"&pagelabel '取出大于ID的pagesize条记录
else
 mysql="select top "&pagesize&" * from youtableName " 
end if

set rs=conn.Execute(mysql)
%>
<table border=0 cellpadding=0 cellspacing=0 width="100%" class="big">
 <form name="s" action="" method="post">
 <tr class="head">
  <td align='center'>列名1</td>
  <td align='center'>列名2</td>
  <td align='center'>列名3</td>
 
 </tr>
 <input type="hidden" name="pagelabel">
 </form>
 
<%
if not rs.eof then
arrdata1=rs.GetRows()
rs.close
set rs=nothing

rowsA=ubound(arrdata1,2) '本页的记录数

pagecount=totalcount / pagesize  '页数
if ((totalcount mod pagesize)<>0) then
 pagecount=int(pagecount)+1
else
 pagecount=int(pagecount)
end if
 
  for i=0 to rowsA       
 
   Response.Write "<TR><TD  align=center>"&arrdata1(1,i)&"</td>"
   Response.Write "<td align='center'>"&arrdata1(2,i)&"</td>"
   Response.Write "<td align='center'>"&arrdata1(3,i)&"</td>"
   'Response.Write "<td align='center'>"&arrdata1(4,i)&"</td>"
   'Response.Write "<td align='center'>"&arrdata1(4,i)&"</td>"
   Response.Write "</tr>"
   Response.Write "<TR><TD colspan='5' height='1' bgcolor='#E6E7E4'></td></tR>"
  
  next 
  %>
  <tr><td height="30" align="center">
  <%
  Response.write "总条数：<font color=red>"&totalcount&"</font></td><td colspan=4>  分页</font>    "
  for i=1 to pagecount 
   Response.Write "<a href='javascript:sss("&i&")' style='color:#398CE7'>"&i&"</a>  "
  next
  %>
 
  </td></tr>
  <%
else
 Response.Write "<tr><td colspan=5 align=center>无纪录</td></tr>"
end if
%>
</table>