例子
內容鏈接組件
建立一個目錄。
內容鏈接組件2
使用Content Linking組件在一個文本文件中的頁面之間進行導航。
ASP Content Linking組件
ASP的內容鏈接組件用於創建快捷便利的導航系統!
內容鏈接組件返回被導航用來保存Web頁面的列表中NEXTLINK對象。
句法
<%
Set nl=Server.CreateObject("MSWC.NextLink")
%>
ASP內容鏈接例
首先,我們創建一個文本文件- "links.txt"
asp_intro.asp ASP Intro
asp_syntax.asp ASP Syntax
asp_variables.asp ASP Variables
asp_procedures.asp ASP Procedures
上面的文本文件中包含的頁面來進行導航。 頁面必須在你要顯示他們同樣的順序列出,而且還必須包含每個文件的描述(use the tab key to separate file name from description) 。
Note:如果你想添加頁面,或更改列表中的頁面順序; 你只需要修改文本文件! 該導航系統會自動予以糾正!
然後,我們創建一個包含文件, "nlcode.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>")
%>
在每一個文本文件中列出的.asp頁的"links.txt"把一行代碼: <!-- #include file="nlcode.inc"--> 。 這條線將在代碼中包括"nlcode.inc"中列出的每一頁上"links.txt"和導航就可以工作。
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") %> Output: 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) %> Output: 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 |