手册

ASP 教程 ASP 简介 ASP安装 ASP 语法 ASP 变量 ASP 程序 ASP 表单 ASP Cookies ASP Session ASP Application ASP #include ASP Global.asa ASP 发送电子邮件

ASP 对象

ASP Response ASP Request ASP Application ASP Session ASP Server ASP ASPError ASP FileSystemObject ASP TextStream ASP Drive ASP File ASP Folder ASP Dictionary ASP ADO

ASP 组件

ASP AdRotator ASP Browser Capabilities ASP Content Linking ASP Content Rotator

ASP 与 AJAX

AJAX 简介 AJAX ASP AJAX 数据库

ASP 总结

ASP 快速参考 ASP总结

ASP 实例

首页后端开发 ASP ASP教程

ASP Content Linking

阅读15812

更新时间2022-04-18

ASP Browser Capabilities

ASP Content Rotator

尝试一下 - 实例

Content Linking 组件
本例构建一个内容列表。

Content Linking 组件 2
本例使用 Content Linking 组件在一个文本文件所列的页面间进行导航。

ASP Content Linking 组件

ASP Content Linking 组件用于创建快捷便利的导航系统！

Content Linking 组件会返回一个 Nextlink 对象，这个对象用于容纳需要导航网页的一个列表。

语法

<%
Set nl=Server.CreateObject("MSWC.NextLink")
%>

ASP Content Linking 实例

首先，我们会创建一个文本文件 - "links.txt"：

asp_intro.asp ASP 简介
asp_syntax.asp ASP 语法
asp_variables.asp ASP 变量
asp_procedures.asp ASP 程序

上面的文本文件包含需要导航的页面。页面的排列顺序应该与它们的显示顺序相同，并包含对每个文件名的描述（使用制表符来分隔文件名和描述信息）。

注释：如果您希望向列表添加页面，或者改变在列表中的页面顺序，那么您需要做的仅仅是修改这个文本文件而已！导航会自动更新！

然后我们创建一个引用文件，"nlcode.inc"。.inc 文件创建一个 NextLink 对象来在 "links.txt" 中列出的页面间进行导航。

"nlcode.inc":

<%
dim nl
Set nl=Server.CreateObject("MSWC.NextLink")
if (nl.GetListIndex("links.txt")>1) then
Response.Write("Response.Write("'>Previous Page")
end if
Response.Write("Response.Write("'>Next Page")
%>

请在文本文件 "links.txt" 列出的每个 .asp 页面中放置一行代码：。这行代码会在 "links.txt" 中列出每个页面上引用 "nlcode.inc" 中的代码，这样导航就可以工作了。

ASP Content Linking 组件的方法

方法	描述	实例
GetListCount	返回内容链接列表文件中所列项目的数量。	<% dim nl,c Set nl=Server.CreateObject("MSWC.NextLink") c=nl.GetListCount("links.txt") Response.Write("There are ") Response.Write(c) Response.Write(" items in the list") %> 输出： There are 4 items in the list
GetListIndex	返回在内容链接列表文件中当前条目的索引号。第一个条目的索引号是 1。如果当前页面不在内容链接列表文件中，则返回 0。	<% dim nl,c Set nl=Server.CreateObject("MSWC.NextLink") c=nl.GetListIndex("links.txt") Response.Write("Item number ") Response.Write(c) %> 输出： Item number 3
GetNextDescription	返回在内容链接列表文件中所列的下一个条目的文本描述。如果在列表文件中没有找到当前文件，则返回列表中最后一个页面的文本描述。	<% dim nl,c Set nl=Server.CreateObject("MSWC.NextLink") c=nl.GetNextDescription("links.txt") Response.Write("Next ") Response.Write("description is: ") Response.Write(c) %> 输出： Next description is: ASP Variables
GetNextURL	返回在内容链接列表文件中所列的下一个条目的 URL。如果在列表文件中没有找到当前文件，则返回列表中最后一个页面的 URL。	<% dim nl,c Set nl=Server.CreateObject("MSWC.NextLink") c=nl.GetNextURL("links.txt") Response.Write("Next ") Response.Write("URL is: ") Response.Write(c) %> 输出： Next URL is: asp_variables.asp
GetNthDescription	返在内容链接列表文件中所列的第 N 个页面的描述信息。	<% dim nl,c Set nl=Server.CreateObject("MSWC.NextLink") c=nl.GetNthDescription("links.txt",3) Response.Write("Third ") Response.Write("description is: ") Response.Write(c) %> 输出： Third description is: ASP Variables
GetNthURL	返回在内容链接列表文件中所列的第 N 个页面的 URL。	<% dim nl,c Set nl=Server.CreateObject("MSWC.NextLink") c=nl.GetNthURL("links.txt",3) Response.Write("Third ") Response.Write("URL is: ") Response.Write(c) %> 输出： Third URL is: asp_variables.asp
GetPreviousDescription	返回在内容链接列表文件中所列的前一个条目的文本描述。如果在列表文件中没有找到当前文件，则返回列表中第一个页面的文本描述。	<% dim nl,c Set nl=Server.CreateObject("MSWC.NextLink") c=nl.GetPreviousDescription("links.txt") Response.Write("Previous ") Response.Write("description is: ") Response.Write(c) %> 输出： Previous description is: ASP Variables
GetPreviousURL	返回在内容链接列表文件中所列的前一个条目的 URL。如果在列表文件中没有找到当前文件，则返回列表中第一个页面的 URL。	<% dim nl,c Set nl=Server.CreateObject("MSWC.NextLink") c=nl.GetPreviousURL("links.txt") Response.Write("Previous ") Response.Write("URL is: ") Response.Write(c) %> 输出： Previous URL is: asp_variables.asp

ASP Browser Capabilities

ASP Content Rotator