Asp与导航文件

March 25,2004

如果你站点中的页面数很多的话，用手工的方法建立导航栏是很麻烦的，而用Asp 内
置的Content Linking 则可帮你的大忙（当然不是越帮越忙的那种），只要你更新你存有
网页URL 的文本文件，那么它就可以根据你的文本文件自动更新导航链接。
Content Linking创建管理导航链接的Nextlink对象，要使用Content Linking组件，
必须需要先建立 Content Linking List文本文件。Content Linking通过读取这个文件来
获得链接我们希望链接的所有页面的信息。
Content Linking List文件格式如下：
URL 说明行注释
其中的URL 当然是与页面相关的超链地址，“说明行”就是在显示超级链接的时候显
示的文本信息，后面的“注释”是不被使用的。
下面看看如何具体使用Content Linking组件：
< html>
< head>
< meta http-equiv="Content-Type" content="text/html; charset=gb2312">
< title>Content Linking组件使用实例< /title>
< /head>
< body>
< center>< font color=red>Content Linking组件使用实例< /font>< /center>
< ul>
< %
Set Link=Server.CreateObject("MSWC.NextLink")
lcount=Link.GetListCount("conlink.txt")
Dim i
For i=1 to lcount
   < li>< a href="< % =Link.GetNthURL("conlink.txt", i) %>" >< %=Link.GetNt
         hDescription("conlink.txt", i) %>< /a>
< % Next %>
< /ul>
< /body>
< /html>

上例中，先用GetListCount方法确定在文件conlink.txt 中有多少条超链，然后利用
循环语句，并使用GetNthURL、GetNthDescription方法逐一将存储在conlink.txt 文件中
的URL和“文本信息”读出并显示给客户端浏览器。
Content Linking组件的方法：
GetListCount(file)  统计超链个数
GetNextURL(file)  取得下一页的URL
GetPreviousDescription(file)  取得上一页的说明行
GetListIndex(file)  取得当前页的索引
GetNthDescription(file,n)  取得第n页的说明行
GetPreviousURL(file)  取得上一页的URL
GetNextDescription(file)  取得下一页的说明行
GetNthURL(file,n)  取得第n页的说明行

如何在每一页中增加形如“上一页”、“下一页”的导航栏
栏是很麻烦的，而用Asp内置的 Content Linking 则可帮你的大忙（当然不是越帮越忙的
如果你的站点中有上千或更多的页面，你就不可能在每一个页面中都编写实现导航超
链的ASP代码。你必须利用服务器端包容SSI，从而避免大量的重复作业。实现方法如下：
将代码< !--#include file="nextprev.inc"-->放在每个页面，在文件nextprev.inc
文件的内容如下:
< %
Set Link=Server.CreateObject("MSWC.NextLink")
count=Link.GetListCount("conlink.txt")
current=link.GetListIndex("conlink.txt")
If current > 1 Then
   %>
   < a href="< %= Link.GetPreviousURL("conlink.txt") %>">上一页< /a>
   < %
End If
If current < count Then
%>
< a href="< %= Link.GetNextURL("conlink.txt") %>">下一页< /a>
< % End If %>

FROM http://swuse.yeah.net/