繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > ASP实例教程：Content Linking组件
- ASP
- ASP视频教程:后台页面加入限制访问和禁用缓存功能
- ASP视频教程:制作网站前台首页
- ASP视频教程:备份和还原SQL Server 2000数据库
- ASP实例教程:asp无限级显示分类代码
- IIS无法启动错误的几种情况汇总
- asp Http_Referer,Server_Name和Http_Host
- ASP 调用带参数输出的COM接口
- 隐藏修改文件时间和文件属性的ASP脚本
- ASP Crazy 模版操作类(最简单的模板类、仅提供交流)
- asp 动态数组 提供Add、Insert、Remove、RemoveAt、Search等方法。
- asp 取一个数的整数 但不是四舍五入，只要有小数，就取大于这个数的整数
- asp 判断上传文件中是否存在危险代码
- asp 获取url函数小结
- ASP 调用dll及封装dll实例
- asp 实现的冒泡排序程序
- asp 自定义分段函数/求第N名成绩
- ASP 高级模板引擎实现类
- ASP 常见的连接字符串写法(access2007)
- ASP向Excel导数据(图片)终结版 ASP操作Excel
- ASP实现防止网站被采集代码
ASP实例教程：Content Linking组件
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-28 浏览: 254 ::
收藏到网摘: n/a
Content Linking 组件
本例会构建一个内容列表。
看到本信息说明该文是通过网页教学（www.ruanchen.com）整理发布的，请不要删掉！
本实例代码如下：
<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>
运行结果如下：
下面的例子构建了一个内容列表：
ASP 简介
ASP 语法
ASP 变量
ASP 程序
文本文件包含页面 URL 的列表和链接描述。每行文本针对一个页面。请注意，URL 和描述必须由 TAB 字符分隔。
查看 links.txt
Content Linking 组件 2
本例使用Content Linking 组件在一个文本文件所列的页面间进行导航。
本实例代码如下：
<html>
<body>
<h1>这是页面 1</h1>
<%
Set nl=Server.CreateObject("MSWC.NextLink")
If (nl.GetListIndex("/example/aspe/links2.txt")>1) Then
%>
<a href="<%Response.Write(nl.GetPreviousURL("/example/aspe/links2.txt"))%>">
上一页
</a>
<%End If%>
<a href="<%Response.Write(nl.GetNextURL("/example/aspe/links2.txt"))%>">
下一页
</a>
<p>本例使用 Content Linking 组件
对文本文件中的 URL 进行导航。</p>
<p><a href="/example/aspe/links2.txt">查看 links2.txt</a></p>
</body>
</html>
本实例运行结果如下：
这是页面 1
下一页
本例使用 Content Linking 组件对文本文件中的 URL 进行导航。
查看 links2.txt
评论 (0) All
