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