完整分页函数

<%'连接数据库 

 Set rs = Server.CreateObject("ADODB.Recordset") 
 sql = "Select * FROM baseset" 
 rs.open sql,conn,1,1 
    IF not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Then 
      page=1 
    Else 
      Page=Int(Abs(Request("page")))                  '取的page的值 
    End if 
 rs.pagesize = 20                                     '设置分页大小 
 total  = rs.RecordCount                              '总数据量 
 mypagesize = rs.pagesize 
 rs.absolutepage = page 
 'rs.pagecount                                        '总页数 

                                                      '循环开始 
 dim i  
 i=1 
 do while not rs.eof and mypagesize > 0 

'输出数据 

   mypagesize=mypagesize-1 
   i=i+1 
 rs.movenext 
 loop 
%> 

<% if page>1 then %> 
    [<a href="?page=1">首页</a>] [<a href="?page=<%=page-1%>">上页</a>] 
<% end if %> 

<% if page<rs.pagecount then %> 
      [<a href="?page=<%=page+1%>">下页</a>] [<a href="?page=<%=rs.pagecount%>">尾页</a>] 
<% end if %> 
<%'关闭数据库%>