Asp与导航文件

网络整理 - 08-19

    如果你站点中的页面数很多的话,用手工的方法建立导航栏是很麻烦的,而用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


原作者:不详
来 源:不详