asp16.htm

简明ASP教程,适合初学者

      RS.open sql,Conn,1,1<br>
      If RS.RecordCount=0 then<br>
      response.write &quot;&lt; P&gt;&lt; center&gt;对不起，数据库中没有相关信息！&lt; /center&gt;&lt; 
      /P&gt;&quot;<br>
      else<br>
      RS.PageSize = Cint(PgSz) '设定PageSize属性的值<br>
      Total=INT(RS.recordcount / PgSz * -1)*-1 '计算可显示页面的总数<br>
      PageNo=Request(&quot;pageno&quot;)<br>
      if PageNo=&quot;&quot; Then<br>
      PageNo = 1<br>
      else<br>
      PageNo=PageNo+1<br>
      PageNo=PageNo-1<br>
      end if<br>
      ScrollAction = Request(&quot;ScrollAction&quot;)<br>
      if ScrollAction = &quot; 上一页 &quot; Then<br>
      PageNo=PageNo-1<br>
      end if<br>
      if ScrollAction = &quot; 下一页 &quot; Then<br>
      PageNo=PageNo+1<br>
      end if<br>
      if PageNo &lt; 1 Then <br>
      PageNo = 1<br>
      end if<br>
      n=1<br>
      RS.AbsolutePage = PageNo<br>
      Response.Write &quot;&lt; CENTER&gt;&quot;<br>
      position=RS.PageSize*PageNo<br>
      pagebegin=position-RS.PageSize+1<br>
      if position &lt; RS.RecordCount then<br>
      pagend=position<br>
      else <br>
      pagend= RS.RecordCount<br>
      end if <br>
      Response.Write &quot;&lt; P&gt;&lt; font color='Navy'&gt;&lt; B&gt;数据库查询结果:&lt; 
      /B&gt;&quot;<br>
      Response.Write &quot;(共有&quot;&amp;RS.RecordCount &amp;&quot;条符合条件的信息,显示&quot;&amp;pagebegin&amp;&quot;-&quot;&amp;pagend&amp;&quot;)&lt; 
      /font&gt;&lt; /p&gt;&quot;<br>
      Response.Write &quot;&lt; TABLE WIDTH=600 BORDER=1 CELLPADDING=4 CELLSPACING=0 
      BGCOLOR=#FFFFFF&gt;&quot;<br>
      Response.Write &quot;&lt; TR BGCOLOR=#5FB5E2&gt;&lt; FONT SIZE=2&gt;&lt; 
      TD&gt;&lt; B&gt;主题&lt; /B&gt;&lt; /TD&gt;&lt; TD&gt;&lt; B&gt;用户&lt; /B&gt;&lt; 
      /TD&gt;&lt; TD&gt;&lt; B&gt;Email&lt; /B&gt;&lt; /TD&gt;&lt; TD&gt;&lt; 
      B&gt;发布日期&lt; /B&gt;&lt; /TD&gt;&lt; /FONT&gt;&lt; TR BGCOLOR=#FFFFFF&gt;&quot;<br>
      Do while not (RS is nothing) <br>
      RowCount = RS.PageSize<br>
      Do While Not RS.EOF and rowcount &gt; 0 <br>
      If n=1 then<br>
      Response.Write &quot;&lt; TR BGCOLOR=#FFFFFF&gt;&quot;<br>
      ELSE<br>
      Response.Write &quot;&lt; TR BGCOLOR=#EEEEEE&gt;&quot;<br>
      End If<br>
      n=1-n %&gt;<br>
      &lt; TD&gt;&lt; span style=&quot;font-size:9pt&quot;&gt;&lt; A href='view.asp?key=&lt; 
      % =RS(&quot;ID&quot;)%&gt;'&gt;&lt; % =RS(&quot;subject&quot;)%&gt;&lt; 
      /A&gt;&lt; /span&gt;&lt; /td&gt; <br>
      &lt; TD&gt;&lt; span style=&quot;font-size:9pt&quot;&gt;&lt; % =RS(&quot;name&quot;)%&gt;&lt; 
      /A&gt;&lt; /span&gt;&lt; /td&gt; <br>
      &lt; TD&gt;&lt; span style=&quot;font-size:9pt&quot;&gt;&lt; a href=&quot;mailto:&lt; 
      % =RS(&quot;email&quot;)%&gt;&quot;&gt;&lt; % =RS(&quot;email&quot;)%&gt;&lt; 
      /a&gt;&lt; /span&gt; &lt; /TD&gt;<br>
      &lt; TD&gt;&lt; span style=&quot;font-size:9pt&quot;&gt;&lt; % =RS(&quot;postdate&quot;)%&gt;&lt; 
      /span&gt; &lt; /td&gt;<br>
      &lt; /TR&gt;<br>
      &lt; %<br>
      RowCount = RowCount - 1<br>
      RS.MoveNext<br>
      Loop<br>
      set RS = RS.NextRecordSet<br>
      Loop<br>
      Conn.Close<br>
      set rs = nothing<br>
      set Conn = nothing<br>
      %&gt;<br>
      &lt; /TABLE&gt;<br>
      &lt; FORM METHOD=GET ACTION=&quot;list.asp&quot;&gt;<br>
      &lt; INPUT TYPE=&quot;HIDDEN&quot; NAME=&quot;pageno&quot; VALUE=&quot;&lt; 
      % =PageNo %&gt;&quot;&gt;<br>
      &lt; % <br>
      if PageNo &gt; 1 Then <br>
      response.write &quot;&lt; INPUT TYPE=SUBMIT NAME='ScrollAction' VALUE=' 
      上一页 '&gt;&quot;<br>
      end if <br>
      if RowCount = 0 and PageNo &lt; &gt;Total then <br>
      response.write &quot;&lt; INPUT TYPE=SUBMIT NAME='ScrollAction' VALUE=' 
      下一页 '&gt;&quot;<br>
      end if <br>
      response.write &quot;&lt; /FORM&gt;&quot;<br>
      End if<br>
      %&gt;<br>
      &lt; % End Sub %&gt;<br>
      <br>
      　　相信大家都应该能完全读懂上面的程序，因此作者就不在此详细解释了。值得注意的是在这段程序中运用了一个小技巧 &lt; INPUT TYPE=&quot;HIDDEN&quot; 
      NAME=&quot;pageno&quot; VALUE=&quot;&lt; % =PageNo %&gt;&quot;&gt;，这是用来在每次调用该 
      ASP 文件时传递数据的“暗道”，由于我们需要在每次调用程序时传递代表当前页码的参数，可能大家会想到使用 session，但是从节省系统资源和通用性来讲，用这样一个隐藏的 
      form 来传递数据将会达到更好的效果。<br>
      <br>
      　　好了，又到了说再见的时候了，如果你没完全看懂本篇中所列的程序，那你必须加把油，看一看 VbScript 的语法；如果你还有某些疑问，可以“妹儿”我，我将尽力解答；如果你有什么更好的建议也千万要来信告诉我哦 
      :) 
      <p align="CENTER">
        <a href="asp15.htm">上一节</a> <a href="asp17.htm">下一节</a></p>
      <p align="CENTER"><a href="index.asp">在线教程首页</a></p>
      </td>
  </tr>
</table>
</BODY>
</HTML>