一个不错的ASP分页程序

<!-- #include file="../Inc/conn.asp" -->
<%
dim i,intPage,page,pre,last,filepath
  set rs = server.CreateObject("adodb.recordset")
   sql="select * from user order by user_ID desc"
      rs.PageSize = 20  '这里设定每页显示的记录数
      rs.CursorLocation = 3
      rs.Open sql,conn,0,2,1  '这里执行你查询SQL并获得结果记录集
      pre = true
      last = true
      page = trim(Request.QueryString("page"))
     
      if len(page) = 0 then
                  intpage = 1
                  pre = false
      else
          if cint(page) =< 1 then
               intpage = 1
               pre = false
          else
              if cint(page) >= rs.PageCount then
                  intpage = rs.PageCount
                  last = false
              else
                   intpage = cint(page)
             end if
         end if
      end if
    if not rs.eof then
         rs.AbsolutePage = intpage
    end if
%>
循环体开始：
 <%   
   for i=1 to rs.PageSize
     if rs.EOF or rs.BOF then exit for
  %>
      ..................
      ..................
      ...................
   <%  
     rs.movenext
    next
   %>
循环体结束
分页部分：
 <table width="99%" border="1" cellpadding="2" cellspacing="2" borderColorLight=#808080 borderColorDark=#ffffff>
   <tr>
     <%if rs.pagecount > 0 then%>
     <td width="13%" align="left">当前页<%=intpage%>/<%=rs.PageCount%></td>
     <%else%>
    <td width="41%" align="left">当前页0/0</td><%end if%>
    <td width="46%" align="right"> <a href="document_manage.asp?page=1">首页</a>|
     <%if pre then%>
     <a href="document_manage.asp?page=<%=intpage -1%>">上页</a>| <%end if%>
     <%if last then%>
      <a href="document_manage.asp?page=<%=intpage +1%>">下页</a> |<%end if%>
      <a href="document_manage.asp?page=<%=rs.PageCount%>">尾页</a>|转到第
      <select name="sel_page" onchange="javascript:location=this.options[this.selectedIndex].value;">
      <%
       for i = 1 to rs.PageCount
       if i = intpage then%>
       <option value="document_manage.asp?page=<%=i%>" selected><%=i%></option>
     <%else%>
       <option value="document_manage.asp?page=<%=i%>"><%=i%></option>
        <%
          end if
        next
        %>
     </select>页</font>
    </td>
    </tr>
   </table>
分页是下拉显示的，很好用！