Pautan Kandungan ASP


tryitimg.gif

Cubalah - Contoh

Komponen Pemautan Kandungan
Contoh ini membina senarai kandungan.

Komponen Pemautan Kandungan 2
Contoh ini menggunakan komponen Pemautan Kandungan untuk menavigasi antara halaman yang disenaraikan dalam fail teks.

Komponen Pemautan Kandungan ASP

Komponen Pemautan Kandungan ASP digunakan untuk mencipta sistem navigasi yang cepat dan mudah!

Komponen Pautan Kandungan akan mengembalikan objek Nextlink, yang digunakan untuk menyimpan senarai halaman web yang perlu dilayari.

Sintaks

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

Contoh Pautan Kandungan ASP

Pertama, kami akan mencipta fail teks - "links.txt":

asp_intro.asp Pengenalan ASP
asp_syntax. asp ASP Syntax
asp_variables.asp ASP Variables
asp_procedures.asp Prosedur ASP

Fail teks di atas mengandungi halaman yang perlu dilayari. Halaman hendaklah disusun dalam susunan yang sama seperti yang dipaparkan dan mengandungi penerangan bagi setiap nama fail (gunakan tab untuk memisahkan nama fail dan maklumat perihalan).

Nota: Jika anda ingin menambah halaman pada senarai, atau menukar susunan halaman dalam senarai, anda hanya perlu mengubah suai fail teks ini! Navigasi akan dikemas kini secara automatik!

Kemudian kami mencipta fail rujukan, "nlcode.inc". Fail .inc mencipta objek NextLink untuk menavigasi antara halaman yang disenaraikan dalam "links.txt".

"nlcode.inc":

<%
dim nl
Set nl=Server.CreateObject("MSWC.NextLink")
jika ( nl.GetListIndex("links.txt")>1) kemudian
Response.Write("<a href='" & nl.GetPreviousURL("links.txt"))
Response.Write(" '>Halaman Sebelumnya</a>")
tamat jika
Respons.Write("<a href='" & nl.GetNextURL("links.txt"))
Respons.Write( "'>Halaman Seterusnya</a>")
%>

Sila letakkan satu baris kod dalam setiap halaman .asp yang disenaraikan dalam fail teks "links.txt": <!-- #include file="nlcode.inc"-->. Baris kod ini akan menyenaraikan kod dalam "nlcode.inc" yang dirujuk pada setiap halaman dalam "links.txt" supaya navigasi boleh berfungsi.

Kaedah komponen Pautan Kandungan ASP

KaedahPeneranganInstance
GetListCountMengembalikan bilangan item yang disenaraikan dalam fail senarai pautan kandungan. <%
dim nl,c
Set nl=Server.CreateObject("MSWC.NextLink")
c=nl.GetListCount("links.txt")
Response.Write("Ada ")
Response.Write(c)
Response.Write(" item dalam senarai")
%>

Output:

Ada ialah 4 item dalam senarai

GetListIndex mengembalikan nombor indeks item semasa dalam fail senarai pautan kandungan. Nombor indeks entri pertama ialah 1. Mengembalikan 0 jika halaman semasa tiada dalam fail senarai pautan kandungan. <%
dim nl,c
Set nl=Server.CreateObject("MSWC.NextLink")
c=nl.GetListIndex("links.txt")
Respons.Write("Item number")
Respons.Write(c)
%>

Output:

Item number 3

GetNextDescriptionMengembalikan penerangan teks item seterusnya yang disenaraikan dalam fail senarai pautan kandungan. Jika fail semasa tidak ditemui dalam fail senarai, penerangan teks halaman terakhir dalam senarai dikembalikan. <%
dim nl,c
Set nl=Server.CreateObject("MSWC.NextLink")
c=nl.GetNextDescription("links.txt")
Response.Write("Next ")
Response.Write("description is: ")
Response.Write(c)
%>

Output:

Deskripsi seterusnya ialah : Pembolehubah ASP

GetNextURL Mengembalikan URL entri seterusnya yang disenaraikan dalam fail senarai pautan kandungan. Jika fail semasa tidak ditemui dalam fail senarai, URL halaman terakhir dalam senarai dikembalikan. <%
dim nl,c
Set nl=Server.CreateObject("MSWC.NextLink")
c=nl.GetNextURL("links.txt")
Response.Write("Next ")
Response.Write("URL is: ")
Response.Write(c)
%>

Output:

URL seterusnya ialah : asp_variables.asp

GetNthDescriptionMengembalikan maklumat penerangan halaman Nth yang disenaraikan dalam fail senarai pautan kandungan. <%
dim nl,c
Set nl=Server.CreateObject("MSWC.NextLink")
c=nl.GetNthDescription("links.txt",3)
Respons.Write("Third ")
Response.Write("description is: ")
Respons.Write(c)
%>

Output:

Third penerangan ialah: Pembolehubah ASP

GetNthURLMengembalikan URL halaman Nth yang disenaraikan dalam fail senarai pautan kandungan. <%
dim nl,c
Set nl=Server.CreateObject("MSWC.NextLink")
c=nl.GetNthURL("links.txt",3)
Respons.Write("Third ")
Response.Write("URL is: ")
Respons.Write(c)
%>

Output:

Third URLnya ialah: asp_variables.asp

GetPreviousDescriptionMengembalikan keterangan teks item sebelumnya yang disenaraikan dalam fail senarai pautan kandungan. Jika fail semasa tidak ditemui dalam fail senarai, penerangan teks halaman pertama dalam senarai dikembalikan. <%
dim nl,c
Set nl=Server.CreateObject("MSWC.NextLink")
c=nl.GetPreviousDescription("links.txt")
Response.Write("Previous ")
Response.Write("description is: ")
Respons.Write(c)
%>

Output:

Penerangan sebelum ini ialah : Pembolehubah ASP

GetPreviousURLMengembalikan URL entri sebelumnya yang disenaraikan dalam fail senarai pautan kandungan. Jika fail semasa tidak ditemui dalam fail senarai, URL halaman pertama dalam senarai dikembalikan. <%
dim nl,c
Set nl=Server.CreateObject("MSWC.NextLink")
c=nl.GetPreviousURL("links.txt")
Response.Write("Previous ")
Response.Write("URL is: ")
Response.Write(c)
%>

Output:

URL sebelumnya ialah : asp_variables.asp