案例:ASP/ADO案例     状态:不可编辑再运行    进入竖版
 运行结果 
x
 
1
2
<html>
3
<body>
4
5
<h1>这是页面 1</h1>
6
7
<%
8
Set nl=Server.CreateObject("MSWC.NextLink")
9
If (nl.GetListIndex("/example/aspe/links2.txt")>1) Then
10
%>
11
<a href="<%Response.Write(nl.GetPreviousURL("/example/aspe/links2.txt"))%>">
12
上一页
13
</a>
14
<%End If%>
15
16
<a href="<%Response.Write(nl.GetNextURL("/example/aspe/links2.txt"))%>">
17
下一页
18
</a>
19
20
<p>本例使用 Content Linking 组件
21
对文本文件中的 URL 进行导航。</p>
22
23
<p><a href="/example/aspe/links2.txt">查看 links2.txt</a></p>
24
</body>
25
</html>
26