link.asp

来自「实验教学系统 很好用 有学生 老师 管理等模块 便于学校使用」· ASP 代码 · 共 13 行

总文件个数为：
<%
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 %>