asp 实现数字分页

<%
  set rs=server.CreateObject("adodb.recordset")
  sql="select * from message"
  rs.open sql,conn,1,3
  page=request.QueryString("page")
  everypage=3
  rs.pagesize=everypage
  if rs.bof and rs.eof then
  response.Write("没有数据")
  else
  page_count=rs.pagecount
  rs.AbsolutePage=page
  do while not rs.eof and j<rs.pagesize
  response.Write(rs("username")&"<br>") 
  j=j+1
  rs.movenext
  loop
  end if
%>
<%
   'response.Write(page_count)
    for i=1 to page_count
 %>
    <a href="a.asp?page=<%=i%>"><%=i%></a>
   <% next %>