Komponen Content Linking ASP

Contoh

Komponen Content Linking
Contoh ini akan membangun daftar konten.
Komponen Content Linking 2
Contoh ini menggunakan komponen Content Linking untuk navigasi antar halaman yang terdaftar dalam berkas teks.

Komponen Content Linking ASP

Komponen Content Linking ASP digunakan untuk membuat sistem navigasi yang mudah dan praktis.

Komponen Content Linking akan kembalikan objek Nextlink, objek ini digunakan untuk menampung daftar halaman yang perlu dilayari.

Sintaks

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

Dahulu, kami akan membuat berkas teks - "links.txt". Berkas ini mengandung informasi tentang halaman yang perlu dilayari. Urutan halaman harus sama dengan urutan penampilannya, dan termasuk deskripsi untuk setiap berkas (dilambangkan dengan tab untuk memisahkan nama berkas dan informasi deskripsi).

Keterangan:Jika Anda ingin menambah informasi berkas ke daftar atau mengubah urutan halaman di dalam daftar, hal yang perlu Anda lakukan hanya mengubah berkas teks ini saja! Lalu sistem navigasi akan otomatis diperbarui!

"links.txt":

asp_intro.asp Pengenalan ASP
asp_syntax.asp Syntax ASP
asp_variables.asp Variabel ASP
asp_procedures.asp Program ASP

Tempatkan baris kode di atas halaman yang terdaftar: <!-- #include file="nlcode.inc"-->. Baris kode ini akan menampilkan setiap halaman yang mengacu ke kode di bawah ini di "links.txt", sehingga navigasi dapat bekerja.

"nlcode.inc":

<%
"Gunakan Komponen Linking Konten 
"untuk berpindah antara halaman yang terdaftar
"di links.txt
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("'>Halaman Sebelumnya</a>")
end if
Response.Write("<a href='" & nl.GetNextURL("links.txt"))
Response.Write("'>Halaman Berikutnya</a>")
%>

Metode komponen Linking Konten ASP

Metode GetListCount

Kembalikan jumlah item yang terdaftar di berkas daftar tautan konten:

<%
dim nl,c
Set nl=Server.CreateObject("MSWC.NextLink") 
c=nl.GetListCount("links.txt") 
Response.Write("Ada ")
Response.Write(c)
Response.Write(" item di daftar")
%>

Output:

Ada 4 item di dalam daftar

Metode GetListIndex

Kembalikan indeks berkas daftar tautan konten saat ini. Nomor indeks entri pertama adalah 1. Jika halaman saat ini tidak berada di berkas daftar, kembalikan 0.

contoh

<%
dim nl,c
Set nl=Server.CreateObject("MSWC.NextLink") 
c=nl.GetListIndex("links.txt") 
Response.Write("Nomor item ")
Response.Write(c)
%>

Output:

Nomor item 3

Metode GetNextDescription

Mengembalikan deskripsi teks berikutnya yang terdaftar di berkas daftar tautan konten. Jika berkas daftar tautan tidak menemukan berkas saat ini, deskripsi teks halaman terakhir dalam daftar.

contoh

<%
dim nl,c
Set nl=Server.CreateObject("MSWC.NextLink") 
c=nl.GetNextDescription("links.txt") 
Response.Write("URL berikutnya ")
Response.Write("deskripsi adalah: ")
Response.Write(c)
%>

Output: Deskripsi berikutnya adalah: Variabel ASP

Metode GetNextURL

Mengembalikan URL berikutnya yang terdaftar di berkas daftar tautan konten. Jika berkas daftar tautan tidak menemukan berkas saat ini, URL halaman terakhir dalam daftar.

contoh

<%
dim nl,c
Set nl=Server.CreateObject("MSWC.NextLink") 
c=nl.GetNextURL("links.txt") 
Response.Write("URL berikutnya ")
Response.Write("URL adalah: ")
Response.Write(c)
%>

Output: URL berikutnya adalah: asp_variables.asp

Metode GetNthDescription

Mengembalikan deskripsi informasi halaman ke N yang terdaftar di berkas daftar tautan konten.

contoh

<%
dim nl,c
Set nl=Server.CreateObject("MSWC.NextLink") 
c=nl.GetNthDescription("links.txt",3) 
Response.Write("URL ketiga ")
Response.Write("deskripsi adalah: ")
Response.Write(c)
%>

Output: Deskripsi ketiga adalah: Variabel ASP

Metode GetNthURL

Mengembalikan URL halaman ke N yang terdaftar di berkas daftar tautan konten.

contoh

<%
dim nl,c
Set nl=Server.CreateObject("MSWC.NextLink") 
c=nl.GetNthURL("links.txt",3) 
Response.Write("URL ketiga ")
Response.Write("URL adalah: ")
Response.Write(c)
%>

Output: URL ketiga adalah: asp_variables.asp

Metode GetPreviousDescription

Mengembalikan deskripsi teks sebelumnya yang terdaftar di berkas daftar tautan konten. Jika berkas daftar tautan tidak menemukan berkas saat ini, deskripsi teks halaman pertama dalam daftar.

contoh

<%
dim nl,c
Set nl=Server.CreateObject("MSWC.NextLink") 
c=nl.GetPreviousDescription("links.txt") 
Response.Write("URL sebelumnya ")
Response.Write("deskripsi adalah: ")
Response.Write(c)
%>

Output: Deskripsi sebelumnya adalah: Variabel ASP

Metode GetPreviousURL

Mengembalikan URL sebelumnya yang terdaftar di berkas daftar tautan konten. Jika berkas daftar tautan tidak menemukan berkas saat ini, URL halaman pertama dalam daftar.

contoh

<%
dim nl,c
Set nl=Server.CreateObject("MSWC.NextLink") 
c=nl.GetPreviousURL("links.txt") 
Response.Write("URL sebelumnya ")
Response.Write("URL adalah: ")
Response.Write(c)
%>

Output: URL sebelumnya adalah: asp_variables.asp