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

　　 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 应用实例作为现在这篇文章的姊妹篇，这样也就可以为大家
提供一些真正实用的东西了，敬请关注。

上一页  [1] [2] [3]