<html>
<head>
<title>文件链接组件示例</title>
</head>
<body>
<%
Set Link = Server.CreateObject("MSWC.nextlink")'创建文件链接组件对象实例
Sum = Link.GetListCount("6-03.txt")	'返回文件总数
%>
总文件个数为：<% =sum %><BR>
<% For I = 1 to Sum					'用循环依次写出所有的文件链接 %>
<a href="<% =Link.GetNthURL("6-03.txt",I) %>" target="_blank"> 
 <% =Link.GetNthDescription("6-03.txt",I) %>
</a>
<br>
<% Next %>
</body>
</html>

