1    
<%
  rs.pagesize=10
  rs.cachesize=rs.pagesize
  Dim Totalcount
  Totalcount=INT(Rs.recordcount)
  startpagenum=1
  do while startpagenum+10<=curpage
  startpagenum=startpagenum+10
  loop
  endpagenum=startpagenum+9
  if  endpagenum>Rs.pagecount then
  Endpagenum=rs.pagecount
%>
2
<% 
  I=0
  p=rs.pagesize * (curpage-1)
  do  while (Not rs.Eof) and (I<rs.pagesize)
 p=p+1
%>
<%
  I=I+1
rs.movenext
loop
%>
帮忙详细解释一下上面代码的意思