• ASP BrowserCap
• ASP ContentRotator

ASP Content Linking 組件

ASP Content Linking 組件用于創(chuàng)建快捷便利的導(dǎo)航系統(tǒng)。

Content Linking 組件會(huì)返回一個(gè) Nextlink 對(duì)象，這個(gè)對(duì)象用于容納需要導(dǎo)航網(wǎng)頁(yè)的一個(gè)列表。

語(yǔ)法

<%
Set nl=Server.CreateObject( "MSWC.NextLink" )
%>

首先，我們會(huì)創(chuàng)建文本文件 - "links.txt"。此文件包含需要導(dǎo)航的頁(yè)面的相關(guān)信息。頁(yè)面的排列順序應(yīng)該與它們的顯示順序相同，并包含對(duì)每個(gè)文件的描述（使用制表符來(lái)分隔文件名和描述信息）。

注釋：如果你希望向列表添加文件信息，或者改變?cè)诹斜碇械捻?yè)面順序，那么你需要做的所有事情僅僅是修改這個(gè)文本文件而已！然后導(dǎo)航系統(tǒng)會(huì)自動(dòng)地更新！

"links.txt":

asp_intro.asp ASP 簡(jiǎn)介
asp_syntax.asp ASP 語(yǔ)法
asp_variables.asp ASP 變量
asp_procedures.asp ASP 程序 

請(qǐng)?jiān)谏厦媪谐龅捻?yè)面中放置這行代碼：<!-- #include file="nlcode.inc"-->。這行代碼會(huì)在 "links.txt" 中列出每個(gè)頁(yè)面上引用下面這段代碼，這樣導(dǎo)航就可以工作了。

"nlcode.inc":

<%
'Use the Content Linking Component 
'to navigate between the pages listed
'in links.txt

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>")
%>

ASP Content Linking 組件的方法

GetListCount 方法

返回內(nèi)容鏈接列表文件中所列項(xiàng)目的數(shù)目：

<%
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 方法

返回在內(nèi)容鏈接列表文件中當(dāng)前文件的索引號(hào)。第一個(gè)條目的索引號(hào)是 1。假如當(dāng)前頁(yè)面不在列表文件中，則返回 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 方法

返回在內(nèi)容鏈接列表文件中所列的下一個(gè)條目的文本描述。假如在列表文件中沒(méi)有找到當(dāng)前文件，則列表中最后一個(gè)頁(yè)面的文本描述。

例子

<%
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 方法

返回在內(nèi)容鏈接列表文件中所列的下一個(gè)條目的 URL。假如在列表文件中沒(méi)有找到當(dāng)前文件，則列表中最后一個(gè)頁(yè)面的 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èi)容鏈接列表文件中所列的第 N 個(gè)頁(yè)面的描述信息。

例子

<%
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èi)容鏈接列表文件中所列的第 N 個(gè)頁(yè)面的 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 方法

返回在內(nèi)容鏈接列表文件中所列前一個(gè)條目的文本描述。假如在列表文件中沒(méi)有找到當(dāng)前文件，則列表中第一個(gè)頁(yè)面的文本描述。

例子

<%
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 方法

返回在內(nèi)容鏈接列表文件中所列前一個(gè)條目的 URL。假如在列表文件中沒(méi)有找到當(dāng)前文件，則列表中第一個(gè)頁(yè)面的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