ASP基础教程：常用的 ASP ActiveX 组件

核心提示： page1.htm one page2.htm two page3.htm three page4.htm four page5.htm five page6.htm s

page1.htm one
page2.htm two
page3.htm three
page4.htm four
page5.htm five
page6.htm six

这个文本文件的每行有如下形式 :

url description comment

下面我们来看看如何具体使用 Content Linking 组件 :

< html>
< head>
< meta http-equiv="Content-Type" content="text/html; charset=gb2312">
< title>网络电子读物宝藏 < /title>
< /head>
< body>
< p>网络电子读物导航
< %
Set Link = Server.CreateObject("MSWC.NextLink")
count = Link.GetListCount("nextlink.txt")
Dim I
For I=1 to count
%>
< ul>< li>< a href="< %= Link.GetNthURL("nextlink.txt", I) %>">< %= Link.GetNthDescription("nextlink.txt", I) %>< /a>
< % Next %>
< /body>
< /html>

在以上代码中，我们先用 GetListCount 方法确定在文件 nextlink.txt 中有多少条项目，然后利用循环语句，并使用 GetNthURL、 GetNthDescription 方法逐一将存储在 nextlink.txt文件中的内容读出并显示给客户端浏览器。