link.asp

asp开发 asp开发 asp开发 asp开发

总文件个数为：
<%
Set Link = Server.CreateObject("MSWC.nextlink")
Response.Write(Link.GetListCount("link.txt"))
%><BR>
<%
Sum = Link.GetListCount("link.txt")	'返回文件总数
For I = 1 to Sum					'用循环依次写出所有的文件链接
%>
	<a href=" <%=Link.GetNthURL("link.txt",I)%>" target="_blank"> <%=Link.GetNthDescription("link.txt",I)%></a><br>
<% Next %>