asp入门之分页

zoukankan html css js c++ java

asp入门之分页

分页是十分重要的功能，到处都会用到

asp分页比较简单，下面一个简单的例子

代码

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
    <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
    <title>公司</title>
    <link rel="stylesheet" type="text/css" href="css/style.css" />
</head>
<body>

<table width="500" border="0" align="center" cellpadding="2" cellspacing="0">
<%
    dim conn,connstr

    Set conn = Server.CreateObject("ADODB.Connection")
    connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("d/d.mdb")
    conn.Open connstr

    set rs=server.CreateObject("adodb.recordset")
    rs.Open "select * from news order by createdate desc",conn,1,1
    if not rs.EOF then

        rs.PageSize=10
        page= clng(Request("page"))
        if page=""or page<1 then page=1
        if page>rs.PageCount then page=rs.PageCount
        rs.AbsolutePage=page

        pagec=rs.PageCount
        pagecurrent=page

        for i=1 to rs.PageSize
%>
    <tr>
        <td width="50" height="25" align="center">
            <%=rs("sid")%>
        </td>
        <td width="450">
            <a href="shownews.asp?id=<%=rs("sid")%>">
                <%=rs("title")%></a>
        </td>
        <td width="100" align="center">
            <%=rs("createdate")%>
        </td>
    </tr>
<%
            rs.MoveNext
            if rs.EOF then exit for
        next

    else
        response.Write("<tr><td align='center'>暂无记录</td></tr>")
    end if
%>
</table>
<table width="500" border="0" align="center">
  <tr>
    <td height="30" align="right">
      <%
        if page<>1 then
            response.Write("【<a href=l.asp?page=1>首页</a>】")
            response.Write("【<a href=l.asp?page="&(page-1)&">上一页</a>】")
        end if
        if page<>rs.pagecount then
            response.Write("【<a href=l.asp?page="&(page+1)&">下一页</a>】")
            response.Write("【<a href=l.asp?page="&rs.pagecount&">尾页</a>】")
        end if
        %>
      [ <font color="#cc3300"><%= page %></font> / <font color="#cc3300"><%= rs.pagecount %></font> ]</td>
    <td width="3%"></td>
  </tr>
</table>
<%
    rs.close
    set rs = nothing
%>
</body>
</html>

效果如下

另外一个封装了的分页function，很好用，代码如下

代码

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">

</style>
<%
    function wzdataset(WzDsRs,WzPageSize,linkStr,wztablewidth)
        %>
        <TABLE width="<%=wztablewidth%>" border="1" cellpadding="0" cellspacing="0" style="border-collapse:collapse;">
        <%
        if WzDsRs.eof then
        %>
        <TR align="center">
            <TD height="50">暂时无信息</TD>
        </TR>
        <%
        else
            WzDsRs.PageSize=WzPageSize
            WzDsRs_Page= clng(Request("page"))
            if WzDsRs_Page=""or WzDsRs_Page<1 then WzDsRs_Page=1
            if WzDsRs_Page>WzDsRs.PageCount then WzDsRs_Page=WzDsRs.PageCount
            WzDsRs.AbsolutePage=WzDsRs_Page

        %>
        <tr height="25">
        <%
            for WzDsRsTd_i=0 to WzDsRs.Fields.count-1
        %>
            <td nowrap align="center"><b><%=WzDsRs.fields(WzDsRsTd_i).name%></b></td>
        <%
            next
        %>
        </tr>
        <%
            for WzDsRsTr_i=1 to WzDsRs.PageSize
            %>
            <TR onMouseOver="ItemOver(this)"<%if WzDsRsTr_i mod 2 = 0 then%> style="background-color:#F2F2F2 "<%end if%>>
                <%
                    for WzDsRsTd_i=0 to WzDsRs.Fields.count-1
                %>
                <TD height="25" align="center"><%=WzDsRs.fields(WzDsRsTd_i).value%></TD>
                <%
                    next
                %>
            </TR>
            <%
                WzDsRs.MoveNext
                if WzDsRs.EOF then exit for
            next
                if WzDsRs.pagecount>1 then
                    %>
                    <TR align="center">
                        <TD colspan="<%=WzDsRs.Fields.count%>">
                            <table width="98%" border="0">
                                <tr>
                                 <td height="50" align="center">
                                  <%
                                 dim wzleft,wzright,wzpagecount,wzcurrentpage
                                 wzcurrentpage= WzDsRs_Page
                                 wzpagecount=WzDsRs.pagecount
                                 if len(wzcurrentpage)<2 then
                                     wzleft=0
                                 else
                                     wzleft=left(wzcurrentpage,len(wzcurrentpage)-1)
                                 end if
                                 wzright=right(wzcurrentpage,1)
                                 if wzright=0 then
                                     wzleft=cint(wzleft)-1
                                 end if

                                 if cint(wzcurrentpage)<>1 then
                                     response.Write("<a class=pagenum title=首页 href="&linkStr&"&page=1> << </a>")
                                 end if

                                 if WzDsRs_Page>10 then
                                     response.Write("<a class=pagenum title=上十页 href="&linkStr&"&page="&wzleft*10&"> < </a> ")
                                 end if

                                 for i=1 to 10
                                         if  wzleft*10+i=WzDsRs_Page then
                                             response.Write("<font class=pagecur>"&wzleft*10+i&"</font>")
                                        else
                                            response.Write("<a class=pagenum href="&linkStr&"&page="&wzleft*10+i&">"&wzleft*10+i&"</a>")
                                        end if
                                        if wzleft*10+i=wzpagecount then exit for
                                 next

                                 dim wzpagecountleft
                                 wzpagecountleft=left(wzpagecount,len(wzpagecount)-1)
                                 if right(wzpagecount,1)=0 then
                                     wzpagecountleft=cint(wzpagecountleft)-1
                                 end if
                                 if wzpagecountleft="" then
                                     wzpagecountleft=0
                                 end if
                                 if cint(wzleft)<cint(wzpagecountleft) then
                                     response.Write("<a class=pagenum title=下十页 href="&linkStr&"&page="&wzleft*10+11&"> > </a>")
                                 end if

                                 if wzcurrentpage<>wzpagecount then
                                      response.Write("<a class=pagenum title=尾页 href="&linkStr&"&page="&wzpagecount&"> >> </a>")
                                  end if
                                  %>
                                    <span class=pagenum>【<%=WzDsRs_Page%>/<%=WzDsRs.pagecount%>】【总记录：<%=WzDsRs.recordcount%>】</span>
                                    </td>
                                </tr>
                            </table>
                        </TD>
                    </TR>
                    <%
                end if
        end if
        %>
</TABLE>
<%
    end function
%>

<script language="javascript" type="text/javascript">
    // 鼠标经过改变行的颜色
    if (!objbeforeItem)
    {
        var objbeforeItem=null;
        var objbeforeItembackgroundColor=null;
    }
    function ItemOver(obj)
    {
        if(objbeforeItem)
        {
            objbeforeItem.style.backgroundColor = objbeforeItembackgroundColor;
        }
        objbeforeItembackgroundColor = obj.style.backgroundColor;
        objbeforeItem = obj;
        obj.style.backgroundColor = "#B9D1F3";
    }
    //
</script>

调用代码：

代码


        <%
            set rs=server.CreateObject("adodb.recordset")
            rs.Open "select sid as 编号,title as 标题,createdate as 建立时间 from news order by createdate desc",conn,1,1
            if not rs.EOF then

                wzdataset rs,11,"list.asp?1=1",800
            end if
        %>

wzdataset.asp文件是function的文件

效果如下：

查看全文

相关阅读:
haproxy实现负载均衡集群
 docker私有仓库搭建，证书认证，鉴权管理
 dockerhub私有镜像仓库harbor部署
 Delphi用窗体类名创建窗体(需要用到GetClass)
Delphi中Class of 第二篇
 Delphi中Class of
Delphi中ADO之初识
 Delphi遍历枚举
 二进制乘除的原理
 Delphi图像处理之图像着色

原文地址：https://www.cnblogs.com/weekzero/p/1799139.html