我想做类似百度的分页，有人在我基础上给改改吗
<%
    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
%>

<%
      page_size=5
      'response.Write(page_count)
          for   j=1   to   page_size
%>
        <a   href= "a.asp?page= <%=j%> "> <%=j%> </a>
      <%   next   %>
  <a   href= "a.asp?page= <%=page+1%> "> 下一页 </a>

------解决方案--------------------
估计没有人.
------解决方案--------------------
因为,那是无意义的劳动..
你首先要自己弄懂程序.
然后把你思考的问题提出来...
是什么地方卡住你了.
你有什么问题.

这样才表明,至少你思考过这个问题了.