加入收藏 | 设为首页 | 会员中心 | 我要投稿 聊城站长网 (https://www.0635zz.com/)- 智能语音交互、行业智能、AI应用、云计算、5G!
当前位置: 首页 > 站长学院 > Asp教程 > 正文

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

发布时间:2023-10-07 15:10:57 所属栏目:Asp教程 来源:
导读:ASP Content Linking 组件用于创建快捷便利的导航系统!

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

语法

<%

Set nl=Server.CreateObject("MSWC.Nex

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("<a href='" & nl.GetPreviousURL("links.txt"))
 
Response.Write("'>Previous Page</a>")
 
end if
 
Response.Write("<a href='" & nl.GetNextURL("links.txt"))
 
Response.Write("'>Next Page</a>")
 
%>
 
请在文本文件 "links.txt" 列出的每个 .asp 页面中放置一行代码:<!-- #include file="nlcode.inc"-->。这行代码会在 "links.txt" 中列出每个页面上引用 "nlcode.inc" 中的代码,这样导航就可以工作了。
 

(编辑:聊城站长网)

【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!

    推荐文章