简单分页函数一 常用

答案：
[复制此代码]CODE:

<% 
      page=trim(request("page")) 
      maxperpage=40 
      first=true 
      last=true 
      dim rs 
      set rs=server.CreateObject("adodb.recordset") 
      sql="select id,title,add1,cartype,isred,enterdate,hits from newnews where classtype=0 and pass=1 order by id desc" 
rs.open sql,conn,1,1 
        rs.pagesize=maxperpage 
        totalpage=rs.pagecount 
        if len(page)=0 then 
        intpage=1 
        first=false 
        else 
            if cint(page)<=1 then 
            intpage=1 
            first=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 a=1 to maxperpage 
        if rs.eof then exit for 
        %> 
        <tr <%if (a mod 2)=0 then 
      response.write "bgcolor=#ffffff" 
      else 
      response.write "bgcolor=#f6f6f6" 
      end if 
      %>> 
          <td height="20"><div align="center"><%=a%></div></td> 
          <td><div align="center"> 
            <%add=rs("add1") 
        substring add,4 
        %> 
          </div></td> 
          <td> 
          <a href=>         <% 
        if rs("isred")=True then 
        %> 
        <font color="red"> 
        <%title=rs("title") 
        substring title,20 
        %></font> 
        <%else 
        title=rs("title") 
        substring title,20 
        %> 
        <% 
        end if 
        %>         
        </a></td> 
          <td><div align="center"><%=rs("cartype")%></div></td> 
          <td><div align="center"> 
              <%thetime=rs("enterdate") 
                    themon=datepart("m",thetime) 
                    if len(themon)<2 then themon="0"&themon 
                    theday=datepart("d",thetime) 
                    if len(theday)<2 then theday="0"&theday 
                    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=>page=1">首页</a> 
              <%else%> 
              首页 
              <%end if%> 
              <%if first then%> 
              <a href=>page=<%=intpage-1%>">上一页</a> 
              <%else%> 
              上一页 
              <%end if%> 
              <%if last and intpage<rs.pagecount then%> 
              <a href=>page=<%=intpage+1%>">下一页</a> 
              <%else%> 
              下一页 
              <%end if%> 
              <%if intpage<rs.pagecount then%> 
              <a href=>page=<%=rs.pagecount%>">尾页</a> 
              <%else%> 
              尾页 
              <%end if%> 
              转到 
              <select onChange="location=this.options 
[this.selectedIndex].value"> 
                <%for b=1 to rs.pagecount 
     if b=intpage then%> 
                <option value="<%request.ServerVariables("SCRIPT_NAME")%>?page=<%=b%>" selected> 
                第<%=b%>页</option> 
                <% else %> 
                <option value="<%request.ServerVariables("SCRIPT_NAME")%>?page=<%=b%>">第<%=b%>页 
                </option> 
                <%end if 
     next%> 
              </select> 
    </div></td> 
            </tr> 
      </table>     
</body> 
<% 
rs.close 
set rs=nothing 
conn.close 
set conn=nothing 
%>

上一个：asp最常用的分页函数
下一个：pjblog2的参数第1/2页