• 分类

  • 重置

如何自动更新导航栏?

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

    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 %>

    GetNthURLGetNthDescription方法逐一将存储在conlink.txt 文件的URL和文本信息读出并显示给客户端浏览器,循环执行.
        < /ul>
        < /body>
        < /html>