ASP İçerik Bağlama Bileşeni
Daha fazla örnek
Bir içindekiler tablosu oluşturun.
Bir metin dosyasındaki sayfalar arasında gezinmek için İçerik Bağlama Bileşenini kullanın.
ASP İçerik Bağlama Bileşeni
ASP Content Linking bileşeni, hızlı ve kolay bir navigasyon sistemi oluşturmak için kullanılır!
İçerik Bağlama bileşeni, gezinilecek Web sayfalarının listesini tutmak için kullanılan bir Nextlink nesnesi döndürür.
Sözdizimi
<%
Set nl=Server.CreateObject("MSWC.NextLink")
%>
ASP İçerik Bağlama Örneği
Önce bir metin dosyası oluşturuyoruz - "links.txt":
asp_intro.asp ASP Intro
asp_syntax.asp ASP Syntax
asp_variables.asp ASP Variables
asp_procedures.asp ASP Procedures
Yukarıdaki metin dosyası gezinilecek sayfaları içerir. Sayfalar, görüntülenmesini istediğiniz sırayla listelenmeli ve ayrıca her dosya adı için bir açıklama içermelidir (dosya adını açıklamadan ayırmak için sekme tuşunu kullanın).
Not: Sayfa eklemek veya listedeki sayfaların sırasını değiştirmek isterseniz; sadece metin dosyasını değiştirmeniz gerekir! Navigasyon otomatik olarak düzeltilecektir!
Ardından bir içerme dosyası "nlcode.inc" oluşturuyoruz. .inc dosyası, "links.txt" içinde listelenen sayfalar arasında gezinmek için bir NextLink nesnesi oluşturur.
"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>")
%>
"links.txt" metin dosyasında listelenen .asp sayfalarının her birine bir satır kod koyun: <!-- #include file="nlcode.inc"--> . Bu satır, "links.txt" içinde listelenen her sayfada "nlcode.inc" içindeki kodu içerecek ve navigasyon çalışacaktır.
ASP İçeriği Bağlama Bileşeninin Yöntemleri
| 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 |