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

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

< /ul>

< /body>

< /html>