Komponen Penautan Konten ASP
Lebih Banyak Contoh
Buat daftar isi.
Gunakan Komponen Penautan Konten untuk menavigasi antar halaman dalam file teks.
Komponen Penautan Konten ASP
Komponen Penautan Konten ASP digunakan untuk membuat sistem navigasi yang cepat dan mudah!
Komponen Penautan Konten mengembalikan objek Nextlink yang digunakan untuk menyimpan daftar halaman Web yang akan dinavigasi.
Sintaksis
<%
Set nl=Server.CreateObject("MSWC.NextLink")
%>
Contoh Penautan Konten ASP
Pertama kita buat file teks - "links.txt":
asp_intro.asp ASP Intro
asp_syntax.asp ASP Syntax
asp_variables.asp ASP Variables
asp_procedures.asp ASP Procedures
File teks di atas berisi halaman yang akan dinavigasi. Halaman harus dicantumkan dalam urutan yang sama seperti yang Anda inginkan untuk ditampilkan, dan juga harus berisi deskripsi untuk setiap nama file (gunakan tombol tab untuk memisahkan nama file dari deskripsi).
Catatan: Jika Anda ingin menambahkan halaman, atau mengubah urutan halaman dalam daftar; Anda hanya perlu memodifikasi file teks! Navigasi akan secara otomatis diperbaiki!
Kemudian kita buat file include, "nlcode.inc". File .inc membuat objek NextLink untuk bernavigasi di antara halaman yang terdaftar di "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>")
%>
Di setiap halaman .asp yang tercantum dalam file teks "links.txt", letakkan satu baris kode: <!-- #include file="nlcode.inc"--> . Baris ini akan menyertakan kode dalam "nlcode.inc" pada setiap halaman yang terdaftar di "links.txt" dan navigasi akan bekerja.
Metode Komponen Penautan Konten ASP
| Method | Description | Example |
|---|---|---|
| GetListCount | Returns the number of items listed in the Content Linking List file | <% 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 | Returns the index number of the current item in the Content Linking List file. The index number of the first item is 1. 0 is returned if the current page is not in the Content Linking List file | <% 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 | Returns the text description of the next item listed in the Content Linking List file. If the current page is not found in the list file it returns the text description of the last page on the list | <% 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 | Returns the URL of the next item listed in the Content Linking List file. If the current page is not found in the list file it returns the URL of the last page on the list | <% 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 | Returns the description of the Nth page listed in the Content Linking List file | <% 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 | Returns the URL of the Nth page listed in the Content Linking List file | <% 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 | Returns the text description of the previous item listed in the Content Linking List file. If the current page is not found in the list file it returns the text description of the first page on the list | <% 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 | Returns the URL of the previous item listed in the Content Linking List file. If the current page is not found in the list file it returns the URL of the first page on the list | <% 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 |