ASP Content Linking Komponenti

Örnek

Content Linking 组件
Bu örnekte, bir içerik listesi oluşturulacaktır.
Content Linking 组件 2
Bu örnek, bir metin dosyasında listelenen sayfalar arasında gezinmek için Content Linking bileşenini kullanır.

ASP Content Linking Komponenti

ASP Content Linking bileşeni, hızlı ve kolay bir gezinme sistemi oluşturmak için kullanılır.

Content Linking bileşeni, gezinilmesi gereken web sayfalarının bir listesini içeren bir Nextlink nesnesi döner.

Sözdizim

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

Öncelikle, bir metin dosyası oluşturacağız - "links.txt". Bu dosya, gezinilmesi gereken sayfaların ilgili bilgilerini içerir. Sayfaların sıralanışı, gösterilme sırası ile aynı olmalı ve her dosya için açıklamalar (dosya adı ve açıklama bilgisi arasında tab ile ayrıştırılarak) bulunmalıdır.

注释：如果你希望向列表添加文件信息，或者改变在列表中的页面顺序，那么你需要做的所有事情仅仅是修改这个文本文件而已！然后导航系统会自动地更新！

"links.txt":

asp_intro.asp ASP 简介
asp_syntax.asp ASP 语法
asp_variables.asp ASP 变量
asp_procedures.asp ASP 程序

请在上面列出的页面中放置这行代码：<!-- #include file="nlcode.inc"-->。这行代码会在 "links.txt" 中列出每个页面上引用下面这段代码，这样导航就可以工作了。

"nlcode.inc":

<%
'Use the Content Linking Component 
'to navigate between the pages listed
'in 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("'>Previous Page</a>")
end if
Response.Write("<a href='" & nl.GetNextURL("links.txt"))
Response.Write("'>Next Page</a>")
%>

ASP Content Linking 组件的方法

GetListCount 方法

返回内容链接列表文件中所列项目的数目：

<%
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")
%>

Çıktı:

There are 4 items in the list

GetListIndex 方法

返回在内容链接列表文件中当前文件的索引号。第一个条目的索引号是 1。假如当前页面不在列表文件中，则返回 0。

örnek

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

Çıktı:

3. öğe numarası

GetNextDescription yöntemi

İçerik bağlantı listesi dosyasında belirtilen bir sonraki kaydın metin açıklamasını döndürür. Eğer listede mevcut dosya bulunamazsa, listedeki son sayfanın metin açıklaması.

örnek

<%
dim nl,c
Set nl=Server.CreateObject("MSWC.NextLink") 
c=nl.GetNextDescription("links.txt") 
Response.Write("Next ")
Response.Write("description is: ")
Response.Write(c)
%>

Çıktı: Sonraki açıklama: ASP Değişkenleri

GetNextURL yöntemi

İçerik bağlantı listesi dosyasında belirtilen bir sonraki kaydın URL'sini döndürür. Eğer listede mevcut dosya bulunamazsa, listedeki son sayfanın URL'si.

örnek

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

Çıktı: Sonraki URL: asp_variables.asp

GetNthDescription yöntemi

İçerik bağlantı listesi dosyasında belirtilen N. sayfanın açıklama bilgilerini döndürür.

örnek

<%
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)
%>

Çıktı: Üçüncü açıklama: ASP Değişkenleri

GetNthURL yöntemi

İçerik bağlantı listesi dosyasında belirtilen N. sayfanın URL'sini döndürür.

örnek

<%
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)
%>

Çıktı: Üçüncü URL: asp_variables.asp

GetPreviousDescription yöntemi

İçerik bağlantı listesi dosyasında belirtilen bir önceki kaydın metin açıklamasını döndürür. Eğer listede mevcut dosya bulunamazsa, listedeki ilk sayfanın metin açıklaması.

örnek

<%
dim nl,c
Set nl=Server.CreateObject("MSWC.NextLink") 
c=nl.GetPreviousDescription("links.txt") 
Response.Write("Previous ")
Response.Write("description is: ")
Response.Write(c)
%>

Çıktı: Önceki açıklama: ASP Değişkenleri

GetPreviousURL yöntemi

İçerik bağlantı listesi dosyasında belirtilen bir önceki kaydın URL'sini döndürür. Eğer listede mevcut dosya bulunamazsa, listedeki ilk sayfanın URL'si.

örnek

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

Çıktı: Önceki URL: asp_variables.asp