ASP/ADO案例 - W3xue在线HTML/CSS/JS运行工具

<html>
<body>

<p>下面的例子构建了一个内容列表：</p>

<%
dim c
dim i
set nl=server.createobject("MSWC.Nextlink")
c = nl.GetListCount("/example/aspe/links.txt")
i = 1
%>
<ul>
<%do while (i <= c) %>
<li><a href="<%=nl.GetNthURL("/example/aspe/links.txt", i)%>">
<%=nl.GetNthDescription("/example/aspe/links.txt", i)%></a>
<%
i = (i + 1)
loop
%>
</ul>

<p>文本文件包含页面 URL 的列表和链接描述。
每行文本针对一个页面。
请注意，URL 和描述必须由 TAB 字符分隔。
</p>

<p>
<a href="/example/aspe/links.txt">查看 links.txt</a>
</p>

</body>
</html>

​x
 
​
<html>
<body>
​
<p>下面的例子构建了一个内容列表：</p>
​
<%
dim c
dim i
set nl=server.createobject("MSWC.Nextlink")
c = nl.GetListCount("/example/aspe/links.txt")
i = 1
%>
<ul>
<%do while (i <= c) %>
<li><a href="<%=nl.GetNthURL("/example/aspe/links.txt", i)%>">
<%=nl.GetNthDescription("/example/aspe/links.txt", i)%></a>
<%
i = (i + 1)
loop
%>
</ul>
​
<p>文本文件包含页面 URL 的列表和链接描述。
每行文本针对一个页面。
请注意，URL 和描述必须由 TAB 字符分隔。
</p>
​
<p>
<a href="/example/aspe/links.txt">查看 links.txt</a>
</p>
​
</body>
</html>
​