例
コンテンツリンクコンポーネント
目次をビルドします。
コンポーネント2コンテンツリンク
テキストファイル内のページ間を移動するコンテンツリンクコンポーネントを使用してください。
ASPコンテンツリンクコンポーネント
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" 。 .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" 、1行のコードを置く： <!-- #include file="nlcode.inc"--> 。 この行は、内のコードが含まれます"nlcode.inc"に記載されているすべてのページに"links.txt"とナビゲーションが動作します。
ASPコンテンツリンクコンポーネントのメソッド
| 方法 | 説明 | 例 |
|---|---|---|
| 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 |