ASPコンテンツリンク


tryitimg.gif

試してみる - 例

コンテンツリンクコンポーネント
この例では、コンテンツリストを構築します。

コンテンツ リンク コンポーネント 2
この例では、コンテンツ リンク コンポーネントを使用して、テキスト ファイルにリストされているページ間を移動します。

ASP コンテンツ リンク コンポーネント

ASP コンテンツ リンク コンポーネントは、迅速で便利なナビゲーション システムを作成するために使用されます。

コンテンツ リンク コンポーネントは、ナビゲートする必要がある Web ページのリストを保持するために使用される Nextlink オブジェクトを返します。

構文

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

ASPコンテンツリンクの例

まず、テキストファイル「リンク」を作成します。 txt":

asp_intro.asp ASP の概要
asp_syntax.asp ASP 構文
asp_variables.asp ASP 変数
asp_procedures.asp ASP プロシージャ

上記のテキスト ファイルには、移動する必要があるページが含まれています。ページは表示される順序と同じ順序で配置され、各ファイル名の説明が含まれている必要があります (ファイル名と説明情報を区切るにはタブを使用します)。

注: リストにページを追加したい場合、またはリスト内のページの順序を変更したい場合は、このテキスト ファイルを変更するだけです。ナビゲーションは自動的に更新されます。

次に、参照ファイル「nlcode.inc」を作成します。 .inc ファイルは、「links.txt」にリストされているページ間を移動するための NextLink オブジェクトを作成します。

"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("'>前のページ</a>")
end if
Response.Write(" <a href='" & nl.GetNextURL("links.txt"))
Response.Write("'>次のページ</a>")
%>

テキスト ファイル「links.txt」にリストされている各 .asp ページに 1 行のコードを配置してください: <!-- #include file="nlcode.inc"-->。このコード行は、ナビゲーションが機能するように、「links.txt」の各ページで参照される「nlcode.inc」のコードをリストします。

ASP コンテンツ リンク コンポーネントのメソッド

メソッドDescriptionInstance
GetListCount コンテンツ リンク リスト ファイルにリストされているアイテムの数を返します。 <%
dim nl,c
Set nl=Server.CreateObject("MSWC.NextLink")
c=nl.GetListCount("links.txt")
Response.Write("" があります")
Response。 Write(c)
Response.Write(" items in the list")
%>

Output:

リストには 4 つの項目があります

GetListIndexコンテンツ リンク リスト ファイルの現在のエントリを返しますインデックス番号。最初のエントリのインデックス番号は 1 です。現在のページがコンテンツ リンク リスト ファイルにない場合は 0 を返します。 <%
dim nl,c
Set nl=Server.CreateObject("MSWC.NextLink")
c=nl.GetListIndex("links.txt")
Response.Write("アイテム番号 ")
レスポンス。 Write(c)
%>

出力:

項目番号 3

GetNextDescription コンテンツ リンク リスト ファイルにリストされている次の項目のテキスト説明を返します。現在のファイルがリスト ファイル内に見つからない場合は、リストの最後のページのテキスト説明が返されます。 <%
dim nl,c
Set nl=Server.CreateObject("MSWC.NextLink")
c=nl.GetNextDescription("links.txt")
Response.Write("Next ")
Response.Write ("説明は: ")
Response.Write(c)
%>

Output:

次の説明は次のとおりです: ASP 変数

GetNextURL コンテンツ リンク リスト ファイル URL にリストされている次のエントリを返します。現在のファイルがリスト ファイルに見つからない場合は、リストの最後のページの URL が返されます。 <%
dim nl,c
Set nl=Server.CreateObject("MSWC.NextLink")
c=nl.GetNextURL("links.txt")
Response.Write("Next ")
Response.Write ("URL は: ")
Response.Write(c)
%>

Output:

次の URL は: 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("説明は: ")
Response.Write(c)
%>

Output:

3 番目の説明は: ASP 変数

GetNthURLコンテンツリンクリストファイルにリストされているN番目のページのURLを返します。 <%
dim nl,c
Set nl=Server.CreateObject("MSWC.NextLink")
c=nl.GetNthURL("links.txt",3)
Response.Write("Third ")
Response .Write("URL は ")
Response.Write(c)
%>

Output:

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 ("説明は: ")
Response.Write(c)
%>

出力:

前の説明は: ASP 変数

GetPreviousURLコンテンツ リンク リスト ファイルの URL にリストされている前のエントリを返します。現在のファイルがリスト ファイルに見つからない場合は、リストの最初のページの URL が返されます。 <%
dim nl,c
Set nl=Server.CreateObject("MSWC.NextLink")
c=nl.GetPreviousURL("links.txt")
Response.Write("Previous ")
Response.Write ("URL は: ")
Response.Write(c)
%>

出力:

前の URL は: asp_variables.asp