免費(fèi)AI編程助手
ASP Content Linking
ASP Content Linking 組件
嘗試一下 - 實(shí)例
Content Linking 組件
本例構(gòu)建一個(gè)內(nèi)容列表。
Content Linking 組件 2
本例使用 Content Linking 組件在一個(gè)文本文件所列的頁面間進(jìn)行導(dǎo)航。
ASP Content Linking 組件
ASP Content Linking 組件用于創(chuàng)建快捷便利的導(dǎo)航系統(tǒng)！
Content Linking 組件會(huì)返回一個(gè) Nextlink 對(duì)象，這個(gè)對(duì)象用于容納需要導(dǎo)航網(wǎng)頁的一個(gè)列表。
語法
Set nl=Server.CreateObject("MSWC.NextLink")
%>
ASP Content Linking 實(shí)例
首先，我們會(huì)創(chuàng)建一個(gè)文本文件 - "links.txt"：
asp_syntax.asp ASP 語法
asp_variables.asp ASP 變量
asp_procedures.asp ASP 程序
上面的文本文件包含需要導(dǎo)航的頁面。頁面的排列順序應(yīng)該與它們的顯示順序相同，并包含對(duì)每個(gè)文件名的描述（使用制表符來分隔文件名和描述信息）。
注釋：如果您希望向列表添加頁面，或者改變?cè)诹斜碇械捻撁骓樞?，那么您需要做的僅僅是修改這個(gè)文本文件而已！導(dǎo)航會(huì)自動(dòng)更新！
然后我們創(chuàng)建一個(gè)引用文件，"nlcode.inc"。.inc 文件創(chuàng)建一個(gè) NextLink 對(duì)象來在 "links.txt" 中列出的頁面間進(jìn)行導(dǎo)航。
"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>")
%>
請(qǐng)?jiān)谖谋疚募?"links.txt" 列出的每個(gè) .asp 頁面中放置一行代碼：<!-- #include file="nlcode.inc"-->。這行代碼會(huì)在 "links.txt" 中列出每個(gè)頁面上引用 "nlcode.inc" 中的代碼，這樣導(dǎo)航就可以工作了。
ASP Content Linking 組件的方法
| 方法 | 描述 | 實(shí)例 |
|---|---|---|
| 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)前頁面不在內(nèi)容鏈接列表文件中，則返回 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è)條目的文本描述。如果在列表文件中沒有找到當(dāng)前文件，則返回列表中最后一個(gè)頁面的文本描述。 | <% 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。如果在列表文件中沒有找到當(dāng)前文件，則返回列表中最后一個(gè)頁面的 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è)頁面的描述信息。 | <% 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è)頁面的 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è)條目的文本描述。如果在列表文件中沒有找到當(dāng)前文件，則返回列表中第一個(gè)頁面的文本描述。 | <% 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。如果在列表文件中沒有找到當(dāng)前文件，則返回列表中第一個(gè)頁面的 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 |
更多建議：