5-3.asp

来自「《动态网页设计基础教程》,胡杰,科学出版社」· ASP 代码 · 共 32 行

<h2>网上教程示例</h2>
<%
Dim items,item_i
'取得列表文件中的类别项目数

Set xLink=Server.CreateObject("MSWC.NextLink")
items=xlink.getlistcount("Catalog.txt")
%>
目录共有<%=items%>项： 
<%
'显示列表文件catalog.txt中的内容及超链接
item_i=1
%>
<table>
  <%
    do while (item_i<=items)%>
  <tr>
    <td>
       <a href="<%=xlink.getnthurl("catalog.txt",item_i)%>">
       <%=xlink.getnthdescription("catalog.txt",item_i)%></a>
    </td> 
    <%item_i=item_i+1%>
  </tr>
<%
loop
%>
</table>