ASP 内容链接 组件
更多示例
内容链接组件
构建目录。
内容链接组件 2
使用内容链接组件在文本文件中的页面之间进行导航。
ASP 内容链接组件
ASP 内容链接组件用于创建快速简便的导航系统！
内容链接组件返回一个 Nextlink 对象，该对象用于保存一组要导航的网页。
语法
<%
设置 nl=Server.CreateObject("MSWC.NextLink")
%>
ASP 内容链接示例
首先，我们创建一个文本文件 - "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
设置 nl=Server.CreateObject("MSWC.NextLink")
if (nl.GetListIndex("links.txt")>1) then
Response.Write("<a href='" & nl.GetPreviousURL("links.txt"))
Response.Write("'>上一页</a>")
end if
Response.Write("<a href='" & nl.GetNextURL("links.txt"))
Response.Write("'>下一页</a>")
%>
在 "links.txt" 文本文件中列出的每个 .asp 页面中，放置一行代码：<!-- #include file="nlcode.inc"-->。此行将在 "links.txt" 中列出的每个页面上包含 "nlcode.inc" 中的代码，并且导航将正常工作。
ASP 内容链接组件的方法
| 方法 | 描述 | 示例 |
|---|---|---|
| GetListCount | 返回内容链接列表文件中列出的项目数 | <% dim nl,c 设置 nl=Server.CreateObject("MSWC.NextLink") c=nl.GetListCount("links.txt") Response.Write("有") Response.Write(c) Response.Write("个项目在列表中") %> 输出 列表中有 4 个项目 |
| GetListIndex | 返回内容链接列表文件中当前项目的索引号。第一个项目的索引号是 1。如果当前页面不在内容链接列表文件中，则返回 0 | <% dim nl,c 设置 nl=Server.CreateObject("MSWC.NextLink") c=nl.GetListIndex("links.txt") Response.Write("项目编号") Response.Write(c) %> 输出 项目编号 3 |
| GetNextDescription | 返回内容链接列表文件中下一项的文本描述。如果当前页面在列表文件中找不到，它将返回列表的最后一页的文本描述 | <% dim nl,c 设置 nl=Server.CreateObject("MSWC.NextLink") c=nl.GetNextDescription("links.txt") Response.Write("下一个") Response.Write("描述是：") Response.Write(c) %> 下一个描述是：ASP 变量 |
| GetNextURL | 返回内容链接列表文件中下一项的 URL。如果当前页面在列表文件中找不到，它将返回列表的最后一页的 URL | <% dim nl,c 设置 nl=Server.CreateObject("MSWC.NextLink") c=nl.GetNextURL("links.txt") Response.Write("下一个") Response.Write("URL 是：") Response.Write(c) %> 下一个 URL 是：asp_variables.asp |
| GetNthDescription | 返回内容链接列表中第 N 页的描述 | <% dim nl,c 设置 nl=Server.CreateObject("MSWC.NextLink") c=nl.GetNthDescription("links.txt",3) Response.Write("第三个") Response.Write("描述是：") Response.Write(c) %> 第三个描述是：ASP 变量 |
| GetNthURL | 返回内容链接列表文件中第 N 页的 URL | <% dim nl,c 设置 nl=Server.CreateObject("MSWC.NextLink") c=nl.GetNthURL("links.txt",3) Response.Write("第三个") Response.Write("URL 是：") Response.Write(c) %> 第三个 URL 是：asp_variables.asp |
| GetPreviousDescription | 返回内容链接列表文件中上一项的文本描述。如果当前页面在列表文件中找不到，它将返回列表的第一页的文本描述 | <% dim nl,c 设置 nl=Server.CreateObject("MSWC.NextLink") c=nl.GetPreviousDescription("links.txt") Response.Write("上一个") Response.Write("描述是：") Response.Write(c) %> 上一个描述是：ASP 变量 |
| GetPreviousURL | 返回内容链接列表文件中上一项的 URL。如果当前页面在列表文件中找不到，它将返回列表的第一页的 URL | <% dim nl,c 设置 nl=Server.CreateObject("MSWC.NextLink") c=nl.GetPreviousURL("links.txt") Response.Write("上一个") Response.Write("URL 是：") Response.Write(c) %> 上一个 URL 是：asp_variables.asp |
