ASP Content Linking

asp content linking 组件

examples

尝试一下 - 实例

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_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("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


相关文章