急求一个答案:有关ASP分页的问题!!!

<!--#include   file=conn.asp-->    
   
  <%'打开记录集    
  dim   strsql,rs,ab    
  strsql="select*from   manage   order   by   voteid   desc"    
  set   rs=db.execute(strsql)    
  %>    
  <%'分页    
  '查询记录    
  If   Not   rs.Bof   And   Not   rs.Eof   Then    
  '以下主要为了分页显示    
  dim   page_size   '定义每页多少条记录变量    
  dim   page_no   '定义当前是第几页变量    
  dim   page_total   '定义总页数变量    
  dim   page_to    
  page_size=10   '每页显示2条记录    
  '如果第一次打开，则page_no为1，否则由传回的参数决定    
  if   Request.QueryString("page_no")=""   then    
  page_no=1    
  else    
  page_no=Cint(Request.QueryString   ("page_no"))   '用Cint将字符串变为整数    
  end   if    
  rs.PageSize=page_size   '设置每页多少条记录    
  page_total=rs.PageCount   '返回总页数    
  rs.AbsolutePage=page_no   '设置当前显示第几页    
  '下面一段显示当前页的所有记录    
  Dim   I    
  I=page_size    
   
  '该变量用来控制显示当前页记录    
  %>    
   
  <%'盾环显示    
  Do   While   Not   rs.Eof   And   I>0    
  I=I-1    
  '过期自动删除    
  'dim   a1,a2,a3    
  'a1=rs("manage4")    
  'a2=date()    
  'a3=cint(dateiff("d",a1,a2))>1    
  'strsql="delete   from   manage   where   ab"    
  'db.execute(strsql)    
   
   
  %>    
   
  <tr>    
  <td><%=rs("manage4")%></td>    
  <td><%=rs("manage5")%></td>    
  </tr>    
  <%'盾环显示    
  rs.MoveNext    
  Loop    
   
  Response.Write   "请选择页面:   "    
  '输出有关页数信息，从1到总页数循环，如不是当前页，就加上超链接    

论坛热门帖子:	[lch203] 写得蛮好的linux学习笔记(10-21) [黑马制造] 学习java的30个目标(10-19) [笑傲股林] 做测试半年了，有点迷茫，应该再学些什么提高自己的测试水平和测试能力呢？(10-19) [udp8589] 大家用google的来吱一声? 用百度的~~也来报道下?(10-18) [沂偌掳兆] 本人总结的一些认为C++比较经典的书籍，希望对大家有用(10-18)
TAG标签:	问题 有关 答案 一个 page_no strsql 记录 当前 rs 显示