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

