<H2>欢迎使用网上教室</H2>
<%
 Set mylink=Server.CreateObject("MSWC.Nextlink")
'取得列表文件中的项目数
 Count=mylink.GetlistCount("netlink.txt")
%>
本教室共有<%=count%>项内容：
<%'显示列表文件中的内容及超链接
   i=1
%>
<TABLE>
<% Do While(i<=count)%>
<TR><TD>
    <A HREF="<%=mylink.GetNthURL("netlink.txt",i)%>">
    <%= mylink.GetNthDescription("netlink.txt",i)%></A>
</TD>
<% i=i+1%>
   </TR>
<%Loop%>
</TABLE>

