内容链接组件(Content Linking) 用于创建管理 URL 列表的内容链接 (NextLink )对象,通过该对象可以自动生成和更新目录表及先前和后续的 Web 页的导航链接。使用内容链接组件的步骤如下:
1) 创建内容链接(NextLink) 对象实例;
2) 创建内容链接列表文件;
3) 使用内容链接( NextLink) 对象的方法生成导航链接。
1、创建内容链接对象实例
内容链接组件包含在 nextlink.dll 文件中。使用内容链接组件时,首先基于该组件创建一个内容链接( NextLink) 对象实例。其语法格式如下:
Set NextLink=Server.CreateObject("MSWC.NextLink")
其中参数 NextLink 指定由 Server.CreateObject 方法创建的对象的名称。该方法没有注册表项。
2、创建链接列表文件
要使用内容链接组件(Content Linking),必须需要先创建链接列表文件(Content Linking List )。内容链接组件正是通过读取这个文件来获得并处理我们希望链接的所有页面的信息。事实上该文件是一个纯文本文件,此文件必须在 Web 服务器的虚拟路径上使用。内容链接列表文件为列表中的每个 URL 包含一行文字,每行以回车换行结束,行中的每一项以 Tab 制表符分隔。其语法格式如下:
Web-page-URL [text-description [comment]]
注:其中Web-page-URL 参数指定要链接的 Web 页的路径,可以是 Web 页的虚拟或相对 URL ,不支持以 ”http:" 、"//“或"\”开始的绝对 URL;text-description 参数给出 Web-page-URL 的描述文字;comment 给出注释性文字,内容链接组件不处理这些文字。
3、检索内容链接列表文件
内容链接文件提供了一系列的方法,使用这些方法可以从内容链接列表文件中获取 Web 页的 URL、描述文字和其他相关信息。在.asp 文件中使用这些方法可以自动生成 Web 页的导航链接。各方法的描述见下表:
方 法 | 描 述 | 语 法 格 式 |
GetListCount | 获取内容链接列表文件中所列的 Web 页总数。 | GetListCount(listURL) |
GetListIndex | 获取在内容链接列表文件中的当前项目的索引号。 | GetListIndex(listURL) |
GetNextDescription | 获取内容链接列表文件中下一个项目的描述文字。 | GetNextURL(listURL) |
GetNextURL | 获取内容链接列表文件中下一项的URL。 | GetNextURL(listURL) |
GetNthURL | 返回内容链接列表文件中某项的 URL。 | GetNthURL(listURL,i) |
GetNthDescription | 获取内容链接列表文件中某项的描述文字。 | GetNthDescription(listURL,i) |
GetPreviousDescription | 获取内容链接列表文件中前一项的描述文字。 | GetPreviousDescription(listURL) |
GetPreviousURL | 获取内容链接列表文件中前一项的URL。 | GetPreviousURL(listURL) |
注:listURL 参数指定内容链接文件的位置; i 参数第 i 个项目的索引号。 |
4、实例1:在本例中使用内容链接组件将“上一页”和“下一页”链接添加到 Web 页中。(在链接列表 [ nextlink.txt ] 文件中每行以回车换行结束,行中的每一项以 Tab 制表符分隔。)
-----------------nextlink.txt----------------------
5-02a.asp contentLinking组件应用示例之一
5-02b.asp content Linking应用示例之二
5-02c.asp content Linking应用示例之三
------------------nextlink.inc----------------------
<% Set NextLink=Server.CreateObject("MSWC.NextLink") %>
<% if NextLink.GetListIndex ("Nextlink.txt")>1 Then %>
<p>上一页:<A HREF="<%=NextLink.GetPreviousURL("Nextlink.txt") %>"><%=NextLink.GetPreviousDescription("Nextlink.txt") %></A>
<% End if %>
下一页:<A HREF="<%=NextLink.GetNextURL("Nextlink.txt")%>"><%=NextLink.GetNextDescription("Nextlink.txt") %></A>
-------------------5-02a.asp------------------------
<html>
<head>
<title>Content Linking组件应用示例</title>
</head>
<body>
<h3>这是第一个网页。</h3><hr>
<!-- #include file="nextlink.inc" -->
</body>
</html>
-------------------5-02b.asp------------------------
<html>
<head>
<title>Content Linking组件应用示例</title>
</head>
<body>
<h3>这是第二个网页。</h3><hr>
<!-- #include file="nextlink.inc" -->
</body>
</html>
-------------------5-02c.asp------------------------
<html>
<head>
<title>Content Linking组件应用示例</title>
</head>
<body>
<h3>这是第三个网页。</h3><hr>
<!-- #include file="nextlink.inc" -->
</body>
</html>