ASP 内容链接 组件
更多示例
内容链接组件
构建目录。
内容链接组件 2
使用内容链接组件在文本文件中的页面之间导航。
ASP 内容链接组件
ASP 内容链接组件用于创建快速简便的导航系统！
内容链接组件返回一个 Nextlink 对象，用于保存要导航的网页列表。
语法
<%
Set nl=Server.CreateObject("MSWC.NextLink")
%>
ASP 内容链接示例
首先，我们创建一个文本文件 - "links.txt"
asp_intro.asp ASP 简介
asp_syntax.asp ASP 语法
asp_variables.asp ASP 变量
asp_procedures.asp ASP 过程
上面的文本文件包含要导航的页面。页面必须按您希望显示的顺序排列，并且还必须包含每个文件名的描述（使用 Tab 键将文件名与描述分开）。
注意：如果您想添加页面或更改列表中页面的顺序；您只需修改文本文件！导航将自动修正！
然后我们创建一个包含文件，“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("<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 Set nl=Server.CreateObject("MSWC.NextLink") c=nl.GetListCount("links.txt") Response.Write("列表中有 ") Response.Write(c) Response.Write(" 个项目") %> 输出 列表中有 4 个项目 |
| GetListIndex | 返回内容链接列表文件中当前项目的索引号。第一个项目的索引号为 1。如果当前页面不在内容链接列表文件中，则返回 0 | <% dim nl,c Set nl=Server.CreateObject("MSWC.NextLink") c=nl.GetListIndex("links.txt") Response.Write("项目编号 ") Response.Write(c) %> 输出 项目编号 3 |
| GetNextDescription | 返回内容链接列表文件中下一个项目的文本描述。如果当前页面未在列表文件中找到，则返回列表中最后一个页面的文本描述 | <% dim nl,c Set nl=Server.CreateObject("MSWC.NextLink") c=nl.GetNextDescription("links.txt") Response.Write("下一个 ") Response.Write("描述是： ") Response.Write(c) %> 下一个描述是：ASP 变量 |
| GetNextURL | 返回内容链接列表文件中下一个项目的 URL。如果当前页面未在列表文件中找到，则返回列表中最后一个页面的 URL | <% dim nl,c Set 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 Set 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 Set 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 Set nl=Server.CreateObject("MSWC.NextLink") c=nl.GetPreviousDescription("links.txt") Response.Write("上一个 ") Response.Write("描述是： ") Response.Write(c) %> 上一个描述是：ASP 变量 |
| GetPreviousURL | 返回内容链接列表文件中上一个项目的 URL。如果当前页面未在列表文件中找到，则返回列表中第一个页面的 URL | <% dim nl,c Set nl=Server.CreateObject("MSWC.NextLink") c=nl.GetPreviousURL("links.txt") Response.Write("上一个 ") Response.Write("URL 是： ") Response.Write(c) %> 上一个 URL 是：asp_variables.asp |
