欢迎来到代码驿站!

ASP代码

当前位置:首页 > 软件编程 > ASP代码

简单分页函数一 常用

时间:2021-11-24 13:58:39|栏目:ASP代码|点击:
复制代码 代码如下:

<%
      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="displaynews.asp?id=<%=rs("id")%>" target="_blank">          
         <%
        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="<%request.ServerVariables("SCRIPT_NAME")%>?

page=1">首页</a>
              <%else%>
              首页
              <%end if%>
              <%if first then%>
              <a href="<%request.ServerVariables("SCRIPT_NAME")%>?

page=<%=intpage-1%>">上一页</a>
              <%else%>
              上一页
              <%end if%>
              <%if last and intpage<rs.pagecount then%>
              <a href="<%request.ServerVariables("SCRIPT_NAME")%>?

page=<%=intpage+1%>">下一页</a>
              <%else%>
              下一页
              <%end if%>
              <%if intpage<rs.pagecount then%>
              <a href="<%request.ServerVariables("SCRIPT_NAME")%>?

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>
&nbsp;&nbsp;&nbsp;&nbsp;</div></td>
            </tr>
      </table>    
</body>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>

上一篇:一种理论上最快的Web数据库分页方法

栏    目:ASP代码

下一篇:ASP小偷(远程数据获取)程序入门教程

本文标题:简单分页函数一 常用

本文地址:http://www.codeinn.net/misctech/184640.html

推荐教程

广告投放 | 联系我们 | 版权申明

重要申明:本站所有的文章、图片、评论等,均由网友发表或上传并维护或收集自网络,属个人行为,与本站立场无关。

如果侵犯了您的权利,请与我们联系,我们将在24小时内进行处理、任何非本站因素导致的法律后果,本站均不负任何责任。

联系QQ:914707363 | 邮箱:codeinn#126.com(#换成@)

Copyright © 2020 代码驿站 版权所有