请教：用ado和vb如何实现分页，谢谢!在线等候！

Question

自己整理下代码，比较乱pagesize=20
Set rs = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM dingpiao WHERE num=" & num
sql =sql & " order by time desc"
rs.open sql,con,1,3
if rs.recordcount>0 then
   rs.pagesize=pagesize
   page=request("page")
   if isempty(page) then
      page=1
   end if
   page=cint(page)
   rs.absolutepage=page
   pagecount=rs.pagecount
else
   page=1
   pagecount=1
end if
                <% 
                i=0 
                do while (not rs.eof and i<rs.pagesize) 
                i=i+1
%> 
<%sub head()%>
<div align="center">
<table border="0" width="600" bordercolor="#FFffff" align="center" >                       
  <tr>
     <td width="100%" height="20" nowrap  bgcolor="#FFcc00" class=p1>              
      <font style="font-size:10pt">
        <%
          st="&num=" & num 
          filestring="dinglist.asp"
          if page>1 then
          response.write "[<a href="&filestring&"?page=1"&st&">"
          response.write "首页"                    
          response.write "</a>]"                    
          response.write "&nbsp;"                    
          else                    
          response.write "[首页]"                    
          response.write "&nbsp;"                    
          end if                    
          if page-1>0 then                    
          response.write "[<a href="&filestring&"?page="&cstr(page-1)&st&">"
          response.write "上一页]"                    
          response.write "</a>"                    
          response.write "&nbsp;"                    
          else                    
          response.write "[上一页]"                    
          response.write "&nbsp;"                    
          end if                    
          if page+1<=pagecount then                    
          response.write "[<a href="&filestring&"?page="&cstr(page+1)&st&">"
          response.write "下一页"                    
          response.write "</a>]"                    
          response.write "&nbsp;"                    
          else                    
          response.write "[下一页]"                    
          response.write "&nbsp;"                    
          end if                    
          if page<pagecount then                    
          response.write "[<a href="&filestring&"?page="&cstr(pagecount)&st&">"
          response.write "尾页"                    
          response.write "</a>]"                    
          response.write "&nbsp;"                    
          else                    
          response.write "[尾页]"                    
          response.write "&nbsp;"                    
          end if                    
        %>      
      页次：<font color="#FF0000"><%=page%></font>/<font color="#0000FF"><%=pagecount%></font>页
      共<font color="#0000FF"><%=rs.recordcount%></font>人
      <font color="#0000FF"><%=pagesize%></font>人/页
      </font>                                
     </td>  
  </tr>                                
</table>                                  
</div>                              
<%end sub%>