对于ASP下的分页问题

来源：互联网发布：淘宝二维码生成器编辑：程序博客网时间：2024/04/29 09:16

对于分页网上有不少说法，而最终我还是喜欢要用如下的方式进行。在这个基础上还是需要思考将代码固化与独立的问题，以便减少引用时的重复性！！

<body  bgcolor="#4B9385"><div id="dv1"><form method="post"><table width="1048" height="25" border="0"><tr><th width="286"><strong class="t">申请单号</strong>  <input type="text" name="vNid" /></th><th width="287"><strong class="t">收款方</strong>  <input type="text" name="v1" /></th><th width="213"><strong class="t">摘要</strong>  <input type="text" name="v3" /></th><th width="244"><strong class="t">申请人</strong>  <input type="text" name="v5" /></th></tr><tr>  <th><strong class="t">备注</strong>    <input type="text" name="v4"/></th>  <th><input type="checkbox" value="1" name="p1"/>    <strong class="t">是否审核</strong>    <input type="checkbox" value="1" name="p2"/>    <strong class="t">是否审批</strong>    <input type="checkbox" value="1" name="p3"/>    <strong class="t">是否支付</strong></th>  <th><input type="submit" value="查询" />  </th>  <th> </th>  </tr></table></form></div><%dim sWset Rbx=server.CreateObject("adodb.recordset")if request.form("vNid")<>"" thensW=" (rtrim(vNid) like '%"+trim(request.form("vNid"))+"%')"elsesW=" (1=1)"end ifif request.form("v1")<>"" thensW=sW & " and (rtrim(v1) like '%"+trim(request.form("v1"))+"%')"end ifif request.form("v3")<>"" thensW=sW & " and (rtrim(v3) like '%"+trim(request.form("v3"))+"%')"end ifif request.form("v4")<>"" thensW=sW & " and (rtrim(v4) like '%"+trim(request.form("v4"))+"%')"end ifif request.form("v5")<>"" thensW=sW & " and (rtrim(vx1) like '%"+trim(request.form("v5"))+"%')"end ifif request.form("p1")=1 thensW=sW & " and (isnull(vx2,N'')<>N'')"end ifif request.form("p2")=1 thensW=sW & " and (isnull(vx3,N'')<>N'')"end ifif request.form("p3")=1 thensW=sW & " and (isnull(vx4,N'')<>N'')"end ifPgSz=20 '设定开关，指定每一页所显示的帖子数目，默认为20帖一页Set RS = Server.CreateObject("ADODB.RecordSet")sql = "SELECT * FROM bxv  where " + SW'查询所有帖子，并按帖子的ID倒序排列RS.open sql,cN,1,1If RS.RecordCount=0 then     response.write "<P><center>对不起，数据库中没有相关信息！</center></P>"  else    RS.PageSize = Cint(PgSz) '设定PageSize属性的值    Total=INT(RS.recordcount / PgSz * -1)*-1 '计算可显示页面的总数    PageNo=Request("pageno")    if PageNo="" Then       PageNo = 1        else       PageNo=PageNo+1       PageNo=PageNo-1        end if    ScrollAction = Request("ScrollAction")    if ScrollAction = " 上一页 " Then    PageNo=PageNo-1    end if        if ScrollAction = " 下一页 " Then    PageNo=PageNo+1    end if    if PageNo <1 Then     PageNo = 1    end if    n=1    RS.AbsolutePage = PageNo    Response.Write "<CENTER>"    position=RS.PageSize*PageNo    pagebegin=position-RS.PageSize+1    if position <RS.RecordCount then      pagend=position    else        pagend= RS.RecordCount        end if  %><TABLE BORDER=1 CELLPADDING=4 CELLSPACING=0 BGCOLOR=#FFFFFF color=#F00 class="tx"><TR class="t2"><TD><B>序号</B></TD><TD><B>申请单号</B></TD><TD><B>收款方</B></TD><TD><B>款项</B></TD><TD><B>摘要</B></TD><TD><B>备注</B></TD><TD><B>申请情况</B></TD><TD><B>审核情况</B></TD><TD><B>审批情况</B></TD><TD><B>支持情况</B></TD><TR><%   Do while not (RS is nothing)     RowCount = RS.PageSize    Do While Not RS.EOF and rowcount > 0      If n=1 then         Response.Write "<TR BGCOLOR=#FFFFFF>"     ELSE         Response.Write "<TR BGCOLOR=#EEEEEE>"     End If     n=1-n %>     <TD><span style="font-size:9pt"><% =RS("id")%></span></td>      <TD><span style="font-size:9pt"><% =RS("vNid")%></span> </TD>     <TD><span style="font-size:9pt"><% =RS("v1")%></span> </td>     <TD><span style="font-size:9pt"><% =RS("v2")%></span> </td>     <TD><span style="font-size:9pt"><% =RS("v3")%></span> </td>     <TD><span style="font-size:9pt"><% =RS("v4")%></span> </td>     <TD><span style="font-size:9pt"><% =RS("vx1")%></span> </td>          <TD><span style="font-size:9pt"><% =RS("vx2")%></span> </td>          <TD><span style="font-size:9pt"><% =RS("vx3")%></span> </td>          <TD><span style="font-size:9pt"><% =RS("vx4")%></span> </td>         </TR>    <%    RowCount = RowCount - 1    RS.MoveNext    Loop    set RS = RS.NextRecordSet    Loop      cN.Close      set rs = nothing      set cN = nothing%></TABLE><FORM method="get" action="#"><INPUT TYPE="HIDDEN" NAME="pageno" VALUE="<% =PageNo %>"><%   if PageNo > 1 Then     response.write "<INPUT TYPE=SUBMIT NAME='ScrollAction' VALUE=' 上一页 '>"  end if   if RowCount = 0 and PageNo <>Total then     response.write "<INPUT TYPE=SUBMIT NAME='ScrollAction' VALUE=' 下一页 '>"  end if     End if%></FORM></body>

0 0