简单分页函数一 常用(3)

                    ther=themon&"-"&theday
                    response.write ther
                %>
          </div></td>
          <td><div align="center"><%=rs("hits")%></div></td>
        </tr>
        <%
      rs.movenext
      if rs.eof then exit for
      next        
      %>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td height="5"></td>
      </tr>
    </table>
     <table width="100%" border="0" cellpadding="0" cellspacing="0">
            <tr>
              <td height="20" bgcolor="#f6f6f6">
                  <div align="center">
                    <%if rs.pagecount>0 then %>
              共有<%=rs.recordcount%>条|当前页<%=intpage%>/
              <%

=rs.pagecount%>

              <% end if %>
              <%if intpage>1 then%>
              <a href="<%request.ServerVariables("SCRIPT_NAME")%>?

page=1">首页</a>
              <%else%>
              首页
              <%end if%>