如何自动更新导航栏？ -电脑资料

    作者： 字体：[增加 减小] 类型：转载

    < html>

    < head>

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

    < 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")

    ‘用GetListCount方法确定在conlink.txt中有多少条超链.

    Dim i

    For i=1 to lcount

    < li>< a href="< % =Link.GetNthURL("conlink.txt", i) %>" >

    < %=Link.GetNthDescription("conlink.txt", i) %>< /a>

    < % Next %>

    ‘用GetNthURL、GetNthDescription方法逐一将存储在conlink.txt文件的URL和文本信息读出并显示给客户端浏览器,循环执行.

    < /ul>

    < /body>

    < /html>