asp content linking 组件
尝试一下 - 实例
content linking 组件
本例构建一个内容列表。
<p>
the example below builds a table of contents.
</p>
<%
dim c
dim i
set nl=server.createobject("mswc.nextlink")
c = nl.getlistcount("text\links.txt")
i = 1
%>
<ul>
<%do while (i <= c) %>
<li><a href="<%=nl.getnthurl("text\links.txt", i)%>">
<%=nl.getnthdescription("text\links.txt", i)%></a>
<%
i = (i + 1)
loop
%>
</ul>
<p>
the text file contains a list of page urls
and link descriptions. it contains one line of text for each page. note that the url and
description must be separated by the tab character.
</p>
<p>
<a href="text/links.txt"><img src="/images/btn_view_text.gif"></a>
</p>
content linking 组件 2
本例使用 content linking 组件在一个文本文件所列的页面间进行导航。
<h1>
this is page 1!
</h1>
<%
set nl=server.createobject("mswc.nextlink")
if (nl.getlistindex("text/links2.txt")>1) then
%>
<a href="<%response.write(nl.getpreviousurl("text/links2.txt"))%>">previous page</a>
<%end if%>
<a href="<%response.write(nl.getnexturl("text/links2.txt"))%>">next page</a>
<p>the example uses the content linking component
to navigate between the pages in a text file.</p>
<p>
<a href="text/links2.txt"><img src="/images/btn_view_text.gif"></a>
</p>
asp content linking 组件
asp content linking 组件用于创建快捷便利的导航系统!
content linking 组件会返回一个 nextlink 对象,这个对象用于容纳需要导航网页的一个列表。
语法
set nl=server.createobject("mswc.nextlink")
%>
asp content linking 实例
首先,我们会创建一个文本文件 - "links.txt":
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("previous page")
end if
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 使用 CDOSYS 发送电子邮件
- ASP Server 对象
- ASP AdRotator
- ASP Browser Capabilities
- AJAX 简介
- ASP 总结
- ASP ReadAll 方法
- ASP ShortPath 属性
- ASP CompareMode 属性
- ASP Exists 方法
- ASP Keys 方法
- ASP Expires 属性
- ASP ServerVariables 集合
- ASP Contents.RemoveAll 方法
- ASP Application_OnStart 和 Application_OnEnd 事件
- ASP CreateObject 方法
- ASP Execute 方法
- ASP CreateFolder 方法
- ASP GetDriveName 方法
- ASP MoveFolder 方法