Komponen Content Linking ASP

Contoh

Komponen Content Linking
Contoh ini akan membangun senarai isian.
Komponen Content Linking 2
Contoh ini menggunakan komponen Content Linking untuk melaksanakan pelayaran antara halaman yang disiarkan dalam fail teks.

Komponen Content Linking ASP

Komponen Content Linking ASP digunakan untuk membuat sistem pelayaran yang mudah dan pantas.

Komponen Content Linking akan mengembalikan objek Nextlink, objek ini digunakan untuk menyimpan senarai halaman yang perlu diarungi.

Syarat

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

Dahulu, kami akan membuat fail teks - "links.txt". Fail ini mengandungi maklumat tentang halaman yang perlu diarungi. Urutan halaman seharusnya sama seperti urutan tampilannya, dan termasuk deskripsi untuk setiap fail (dilaparkan dengan tab untuk memisahkan nama fail dan maklumat deskripsi).

Komen: }}Jika anda mahu menambah maklumat fail ke senarai atau mengubah urutan halaman dalam senarai, semua yang anda perlu lakukan adalah mengubah fail teks ini sahaja! Sistem navigasi akan mengemaskini secara automatik!

"links.txt":

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

Sila letakkan baris kod di atas halaman yang disenaraikan: <!-- #include file="nlcode.inc"-->. Baris kod ini akan disenaraikan setiap halaman dalam "links.txt", supaya navigasi boleh berfungsi.

"nlcode.inc":

<%
"Gunakan Pembolehubah Pautan Konten 
"untuk melayari antara halaman yang disenaraikan
"dalam 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>")
%>

Pembolehubah ASP Content Linking

GetListCount 方法

Balik pulang jumlah item yang disenaraikan dalam fail pautan konten:

<%
dim nl,c
Set nl=Server.CreateObject("MSWC.NextLink") 
c=nl.GetListCount("links.txt") 
Response.Write("Terdapat ")
Response.Write(c)
Response.Write(" items in the list")
%>

Output:

Terdapat 4 item dalam senarai

GetListIndex 方法

Balik pulang ke indeks index fail pautan konten. Index pautan pertama adalah 1. Jika halaman semasa bukan dalam fail pautan, nali balik pulang 0.

contoh

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

Output:

Nomor item 3

Metode GetNextDescription

Kembalikan deskripsi teks berikutnya yang terdaftar dalam 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

Kembalikan URL berikutnya yang terdaftar dalam 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

Kembalikan deskripsi informasi halaman ke-N yang terdaftar dalam 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

Kembalikan URL halaman ke-N yang terdaftar dalam 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

Kembalikan deskripsi teks sebelumnya yang terdaftar dalam 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

Kembalikan URL sebelumnya yang terdaftar dalam 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