asp14.htm

简明ASP教程,适合初学者

      Recordset 
      对象有一些属性，可用于精确地控制指针的行为，提高您检查<br>
      和更新结果的能力。   
      <p>　　 Recordset 的使用方法如下 : </p>   
      <p>　　 Set rs = Server.CreateObject(&quot;ADODB.Recordset&quot;) </p>   
      <p>　　 rs.Open SQL 指令 , Conn, 1, 1 ' 读取 </p>   
      <p>　　 或 </p>   
      <p>　　 rs.Open SQL 指令 , Conn, 1, 3 ' 新增、修改、或删除 </p>   
      <p>　　第三步 : 使用 RecordSet 属性和方法，并显示执行的结果。 </p>   
      　　通过以上指令，我们创建了一个包含数据的游标 (RecordSet)“rs”，事实上游标是存储在<br>
      活动内存中的类似记录和字段的数组的东西，当通过    
      RecordSet 组件创建一个游标时，它从数据<br>
      提供者的得到一个数据集，并用它来充实游标，我们可以想象 ADO 产生的 RecordSet 
      是一个象<br>
      电子表格的记录，它有一行行的记录，在任何时候都有一行是它的当前行，而    
      RecordSet 的字段<br>
      是用 RecordSet 的 Field 集合表示的。下面列出了所创建的 RecordSet 对象 ( 游标 ) 
      的一些<br>
      属性和方法    
      :    
      <p>　　 rs.Fields.Count: RecordSet 对象的字段总数。 </p>   
      <p>　　 rs(i).Name: 第 i 个字段的名称， i 由 0 算起到 rs.Fields.Count-1。 </p>   
      <p>　　 rs(i): 读取第 i 个字段的数据， i 由 0 算起到 rs.Fields.Count-1。 </p>   
      <p>　　 rs(&quot; 字段名称 &quot;): 读取指定字段的数据。 </p>   
      <p>　　 rs.RecordCount: 游标中的数据记录总数。 </p>   
      <p>　　 rs.EOF: 是否已指到最后一条记录。 </p>   
      <p>　　 rs.MoveNext: 将指标移到下一笔记录。 </p>   
      <p>　　 rs.MovePrev: 将指标移到上一笔记录。 </p>   
      <p>　　 rs.MoveFirst: 将指标移到第一笔记录。 </p>   
      <p>　　 rs.MoveLast: 将指标移到最后一笔记录。 </p>   
      <p>　　 rs.Close: 关闭 RecordSet 对象 </p>   
      <p>　　 有关 ADO 的其他介绍，作者将在今后给大家详细讲解。 </p>   
      <p>　　二、 Content Linking 组件 </p>   
      　　如果你的网站有一系列相互关联的页面的话， Content Linking 
      组件将非常适合你的需求，<br>
      它非但可以使你在这些页面中建立一个目录表，而且还可以在它们中间建立动态连接，并自动生成<br>
      和更新目录表及先前和后续的    
      Web 
      页的导航链接。这对于列出联机报刊、电子读物网站以及论坛<br>
      邮件是十分理想的选择。<br>  
      <br>  
      　　Content Linking 组件创建管理 URL 列表的 Nextlink 对象，要使用 Content Linking&nbsp;<br>
 组件，必须需要先创建    
      Content Linking List 文件。 Content Linking 
      组件正是通过读取这个<br>
      文件来获得处理我们希望链接的所有页面的信息。事实上该文件是一个纯文本文件，其内容如下    
      : <br>   
      page1.htm one <br>   
      page2.htm two <br>   
      page3.htm three <br>   
      page4.htm four <br>   
      page5.htm five <br>   
      page6.htm six <br>   
      <br>   
      <p>　　 这个文本文件的每行有如下形式 : </p>   
      <p>　　 url description comment </p>   
      <p>　　其中， URL 是与页面相关的超链地址， description 提供了能被超链使用的文本信息，&nbsp;<br>
 comment 则包含了不被 Content    
        Linking 组件解释的注释信息，它的作用如同程序中的注释。&nbsp;<br>
 description 和 comment 参数是可选的。 </p>   
      <p>　　 下面我们来看看如何具体使用 Content Linking 组件 : </p>   
      &lt; html&gt;<br>   
      &lt; head&gt;<br>   
      &lt; meta http-equiv=&quot;Content-Type&quot; content=&quot;text/html; charset=gb2312&quot;&gt;<br>   
      &lt; title&gt; 网络电子读物宝藏 &lt; /title&gt;<br>   
      &lt; /head&gt;<br>   
      &lt; body&gt;<br>   
      &lt; p&gt; 网络电子读物导航 <br>   
      &lt; %<br>   
      Set Link = Server.CreateObject(&quot;MSWC.NextLink&quot;)<br>   
      count = Link.GetListCount(&quot;nextlink.txt&quot;) <br>   
      Dim I<br>   
      For I=1 to count<br>   
      %&gt;<br>   
      &lt; ul&gt;&lt; li&gt;&lt; a href=&quot;&lt; %= Link.GetNthURL(&quot;nextlink.txt&quot;,    
      I) %&gt;&quot;&gt;&lt; %= Link.GetNthDescription(&quot;nextlink.txt&quot;,    
      I) %&gt;&lt; /a&gt;<br>   
      &lt; % Next %&gt;<br>   
      &lt; /body&gt;<br>   
      &lt; /html&gt;<br>   
      <br>   
      <p>　　 在以上代码中，我们先用 GetListCount 方法确定在文件 nextlink.txt 
      中有多少条项目，<br>
      然后利用循环语句，并使用    
        GetNthURL、 GetNthDescription 方法逐一将存储在 nextlink.txt<br> 
      文件中的内容读出并显示给客户端浏览器。    
      </p>   
      <p>　　 下面列出了 Content Linking 组件所有可使用的方法 GetListCount(file) 
      统计内容链接列表<br>
      文件中链接的项目数。   
      </p>  
      <p>　　 GetNextURL(file) 获取内容链接列表文件中所列的下一页的 URL。 </p>   
      <p>　　 GetPreviousDescription(file) 获取内容链接列表文件中所列的上一页的说明行。 </p>   
      <p>　　 GetListIndex(file) 获取内容链接列表文件中当前页的索引。 </p>   
      <p>　　 GetNthDescription(file,index) 获取内容链接列表文件中所列的第 N 页的说明。 </p>   
      <p>　　 GetPreviousUR(file) 获取内容链接列表文件中所列的上一页的 URL。 </p>   
      <p>　　 GetNextDescription(file) 获取内容链接列表文件中所列的下一页的说明。 </p>   
      <p>　　 GetNthURL(file,index) 获取内容链接列表文件中所列的第 N 页的说明。 </p>   
      　　在我们创建了网站的总导航页面后，我们当然还希望在每一页中添加一个“上一页”、“下一页”<br>
      的导航超链，下面我们就来看看如何实现导航超链。<br>
      <br>
      　　由于考虑到你的网站可能包含了上千或更多的页面，所以我们不可能在每一个页面中都编写<br>
      实现导航超链的 ASP 代码。因此，我们必须利用前几篇中所学到的服务器端包容    
      SSI，这样就避免了<br>
      大量的重复作业，请看下例 :    
      <p>　　 &lt; !--#include file=&quot;nextprev.inc&quot;--&gt; </p>   
      <p>　　 只要将这端代码放在每个页面中即可。 nextprev.inc 文件的内容如下 : </p>   
      &lt; %<br>   
      Set Link = Server.CreateObject(&quot;MSWC.NextLink&quot;)<br>   
      count = Link.GetListCount(&quot;nextlink.txt&quot;) <br>   
      current = link.GetListIndex(&quot;nextlink.txt&quot;)<br>   
      If current &gt; 1 Then<br>   
      %&gt;<br>   
      &lt; a href=&quot;&lt; %= Link.GetPreviousURL(&quot;nextlink.txt&quot;)    
      %&gt;&quot;&gt; 上一页 &lt; /a&gt;<br>   
      &lt; %<br>   
      End If<br>   
      If current &lt; count Then<br>   
      %&gt;<br>   
      &lt; a href=&quot;&lt; %= Link.GetNextURL(&quot;nextlink.txt&quot;) %&gt;&quot;&gt;    
      下一页 &lt; /a&gt;<br>   
      &lt; % End If %&gt;<br>   
      <br>   
      　　今天的学习又到此结束了，在这里我要再次感谢所有关心我的文章的朋友们，你们的来信给了<br>
      我很大的鼓舞，不过请大家不要再称我为“老师”，其实我也和你们一样是在不断的学习和摸索中，<br>
      有问题我们可以一起探讨，我的文章中肯定还存在很多不足或漏洞，也希望大家发现后能及时向我<br>
      提出。由于近来    
      ASP 已经在国内的网站中广泛运用起来，所以应朋友们的要求，在国内 ASP 
      高手<br>
      飞鸟的热情帮助下，我决定写一些 ASP 
      应用实例作为现在这篇文章的姊妹篇，这样也就可以为大家<br>
      提供一些真正实用的东西了，敬请关注。   
      <p align="CENTER">  
        <a href="asp13.htm">上一节</a> <a href="asp15.htm">下一节</a></p>  
      <p align="CENTER"><a href="index.asp">在线教程首页</a></p>  
      </td>  
  </tr>  
</table>  
</BODY>  
</HTML>