Content Linking 组件

　　如果你的网站有一系列相互关联的页面的话， Content Linking 组件将非常适合你的需求，它非但可以使你在这些页面中建立一个目录表，而且还可以在它们中间建立动态连接，并自动生成和更新目录表及先前和后续的 Web 页的导航链接。这对于列出联机报刊、电子读物网站以及论坛邮件是十分理想的选择。

　　Content Linking 组件创建管理 URL 列表的 Nextlink 对象，要使用 Content Linking 组件，必须需要先创建 Content Linking List 文件。 Content Linking 组件正是通过读取这个文件来获得处理我们希望链接的所有页面的信息。事实上该文件是一个纯文本文件，其内容如下 :

page1.htm one

page2.htm two

page3.htm three

page4.htm four

page5.htm five

page6.htm six

　　这个文本文件的每行有如下形式 :

　　url description comment

　　其中， URL 是与页面相关的超链地址， description 提供了能被超链使用的文本信息， comment 则包含了不被 Content Linking 组件解释的注释信息，它的作用如同程序中的注释。 description 和 comment 参数是可选的。

　　下面我们来看看如何具体使用 Content Linking 组件 :

< html>

< head>

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

< title> 网络电子读物宝藏 < /title>

< /head>

< body>

< p> 网络电子读物导航

< %

Set Link = Server.CreateObject("MSWC.NextLink")

count = Link.GetListCount("nextlink.txt")

Dim I

For I=1 to count

%>

< ul>< li>< a href="< %= Link.GetNthURL("nextlink.txt", I) %>">< %= Link.GetNthDescription("nextlink.txt", I) %>< /a>

< % Next %>

< /body>

< /html>

　　在以上代码中，我们先用 GetListCount 方法确定在文件 nextlink.txt 中有多少条项目，然后利用循环语句，并使用 GetNthURL、 GetNthDescription 方法逐一将存储在 nextlink.txt 文件中的内容读出并显示给客户端浏览器。

　　下面列出了 Content Linking 组件所有可使用的方法 GetListCount(file) 统计内容链接列表文件中链接的项目数。

　　GetNextURL(file) 获取内容链接列表文件中所列的下一页的 URL。

　　GetPreviousDescription(file) 获取内容链接列表文件中所列的上一页的说明行。

　　GetListIndex(file) 获取内容链接列表文件中当前页的索引。

　　GetNthDescription(file,index) 获取内容链接列表文件中所列的第 N 页的说明。

　　GetPreviousUR(file) 获取内容链接列表文件中所列的上一页的 URL。

　　GetNextDescription(file) 获取内容链接列表文件中所列的下一页的说明。

　　GetNthURL(file,index) 获取内容链接列表文件中所列的第 N 页的说明。

　　在我们创建了网站的总导航页面后，我们当然还希望在每一页中添加一个“上一页”、“下一页”的导航超链，下面我们就来看看如何实现导航超链。

　　由于考虑到你的网站可能包含了上千或更多的页面，所以我们不可能在每一个页面中都编写实现导航超链的 ASP 代码。因此，我们必须利用前几篇中所学到的服务器端包容 SSI，这样就避免了大量的重复作业，请看下例 :

　　< !--#include file="nextprev.inc"-->

　　只要将这端代码放在每个页面中即可。 nextprev.inc 文件的内容如下 :

< %

Set Link = Server.CreateObject("MSWC.NextLink")

count = Link.GetListCount("nextlink.txt")

current = link.GetListIndex("nextlink.txt")

If current > 1 Then

%>

< a href="< %= Link.GetPreviousURL("nextlink.txt") %>"> 上一页 < /a>

< %

End If

If current < count Then

%>

< a href="< %= Link.GetNextURL("nextlink.txt") %>"> 下一页 < /a>

< % End If %>

　　今天的学习又到此结束了，在这里我要再次感谢所有关心我的文章的朋友们，你们的来信给了我很大的鼓舞，不过请大家不要再称我为“老师”，其实我也和你们一样是在不断的学习和摸索中，有问题我们可以一起探讨，我的文章中肯定还存在很多不足或漏洞，也希望大家发现后能及时向我提出。由于近来 ASP 已经在国内的网站中广泛运用起来，所以应朋友们的要求，在国内 ASP 高手飞鸟的热情帮助下，我决定写一些 ASP 应用实例作为现在这篇文章的姊妹篇，这样也就可以为大家提供一些真正实用的东西了，敬请关注。