asp分页程序

<%

sql="select * from table where ... order by zcrq desc"
  rs.open sql,conn,1
  if not rs.eof Then
   rs.PageSize = 30      '每页显示的记录数
   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
i=0
Do While Not Rs.EOF and i<rs.PageSize            '循环显示记录
i=i+1 

%>

<table>..........循环显示的记录内容

</table>

  <%
   rs.movenext
   loop
 %>

---------------------------------分页表格----------------------------------------------------------   

  <%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="yizhuce.asp?page=1">首页</a>|
     <%if pre then%>
     <a href="yizhuce.asp?page=<%=intpage -1%>">上页</a>| <%end if%>
     <%if last then%>
      <a href="yizhuce.asp?page=<%=intpage +1%>">下页</a> |<%end if%>
      <a href="yizhuce.asp?page=<%=rs.PageCount%>">尾页</a>|转到第
      <select name="sel_page" οnchange="javascript:location=this.options[this.selectedIndex].value;">
      <%
       for i = 1 to rs.PageCount
       if i = intpage then%>
       <option value="yizhuce.asp?page=<%=i%>" selected><%=i%></option>
     <%else%>
       <option value="yizhuce.asp?page=<%=i%>"><%=i%></option>
        <%
          end if
        next
        %>
     </select>页</font>