案例:ASP/ADO案例     状态:不可编辑再运行    进入横版
x
 
1
2
<html>
3
<body>
4
5
<p>下面的例子构建了一个内容列表:</p>
6
7
<%
8
dim c
9
dim i
10
set nl=server.createobject("MSWC.Nextlink")
11
c = nl.GetListCount("/example/aspe/links.txt")
12
i = 1
13
%>
14
<ul>
15
<%do while (i <= c) %>
16
<li><a href="<%=nl.GetNthURL("/example/aspe/links.txt", i)%>">
17
<%=nl.GetNthDescription("/example/aspe/links.txt", i)%></a>
18
<%
19
i = (i + 1)
20
loop
21
%>
22
</ul>
23
24
<p>文本文件包含页面 URL 的列表和链接描述。

 运行结果 
 北美留学生论坛