کامپوننت Content Linking ASP

مثال

مکانیزم پیوند محتوای ASP
در این مثال یک لیست محتوایی ساخته خواهد شد.
مکانیزم پیوند محتوای ASP 2
در این مثال از مکانیزم پیوند محتوای ASP برای هدایت بین صفحاتی که در یک فایل متنی لیست شده‌اند، استفاده می‌شود.

کامپوننت Content Linking ASP

مکانیزم پیوند محتوای ASP برای ایجاد یک سیستم هدایت سریع و آسان استفاده می‌شود.

مکانیزم پیوند محتوای ASP یک شیء Nextlink بازمی‌گرداند، که برای نگهداری لیستی از صفحات نیاز به هدایت دارد.

نحوه‌ی نوشتن

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

ابتدا، ما فایل متنی - "links.txt" ایجاد خواهیم کرد. این فایل شامل اطلاعات مربوط به صفحاتی که باید به آنها هدایت شویم است. ترتیب صفحات باید با ترتیب نمایششان مشابه باشد و شامل توضیح هر فایل (با استفاده از تاب‌ها برای جدا کردن نام فایل و اطلاعات توضیحی) باشد.

نکته:اگر می‌خواهید اطلاعات فایل را به لیست اضافه کنید یا ترتیب صفحات در لیست را تغییر دهید، کافی است این فایل متنی را ویرایش کنید! سپس سیستم ناوبری به طور خودکار به‌روزرسانی خواهد شد!

"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":

<%
'از کامپوننت لینک محتوای استفاده کنید 
'برای جابجایی بین صفحات لیست شده
'در 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("'>صفحه‌ی قبلی</a>")
end if
Response.Write("<a href='" & nl.GetNextURL("links.txt"))
Response.Write("'>صفحه‌ی بعدی</a>")
%>

روش‌های کامپوننت لینک محتوای ASP

مетод GetListCount

تعداد آیتم‌هایی که در فایل لیست لینک‌های محتوای در حال حاضر لیست شده‌اند را برمی‌گرداند:

<%
dim nl,c
Set nl=Server.CreateObject("MSWC.NextLink") 
c=nl.GetListCount("links.txt") 
Response.Write("در حال حاضر ")
Response.Write(c)
Response.Write(" آیتم‌ها در لیست ")
%>

خروجی:}}

در لیست 4 آیتم وجود دارد

مетод GetListIndex

شماره‌ی شاخص فعلی در فایل لیست لینک‌های محتوای در حال حاضر را برمی‌گرداند. شماره‌ی شاخص اولین ورودی 1 است. اگر صفحه‌ی فعلی در فایل لیست وجود ندارد، 0 برمی‌گرداند.

مثال

<%
dim nl,c
Set nl=Server.CreateObject("MSWC.NextLink") 
c=nl.GetListIndex("links.txt") 
Response.Write("شماره‌ی آیتم ")
Response.Write(c)
%>

خروجی:}}

شماره آیتم 3

روش GetNextDescription

توضیحات ورودی بعدی لیست لینک‌های محتوایی را برمی‌گرداند. اگر فایل فعلی در لیست پیدا نشود، توضیحات آخرین صفحه لیست.

مثال

<%
dim nl,c
Set nl=Server.CreateObject("MSWC.NextLink") 
c=nl.GetNextDescription("links.txt") 
Response.Write("URL بعدی: ")
Response.Write("توضیحات: ")
Response.Write(c)
%>

خروجی: توضیحات بعدی: متغیرهای ASP

روش GetNextURL

URL ورودی بعدی لیست لینک‌های محتوایی را برمی‌گرداند. اگر فایل فعلی در لیست پیدا نشود، URL آخرین صفحه لیست.

مثال

<%
dim nl,c
Set nl=Server.CreateObject("MSWC.NextLink") 
c=nl.GetNextURL("links.txt") 
Response.Write("URL بعدی: ")
Response.Write("URL است: ")
Response.Write(c)
%>

خروجی: URL بعدی: asp_variables.asp

روش GetNthDescription

توضیحات صفحه N از لیست لینک‌های محتوایی را برمی‌گرداند.

مثال

<%
dim nl,c
Set nl=Server.CreateObject("MSWC.NextLink") 
c=nl.GetNthDescription("links.txt",3) 
Response.Write("URL سوم: ")
Response.Write("توضیحات: ")
Response.Write(c)
%>

خروجی: توضیحات سوم: متغیرهای ASP

روش GetNthURL

URL صفحه N را از لیست لینک‌های محتوایی برمی‌گرداند.

مثال

<%
dim nl,c
Set nl=Server.CreateObject("MSWC.NextLink") 
c=nl.GetNthURL("links.txt",3) 
Response.Write("URL سوم: ")
Response.Write("URL است: ")
Response.Write(c)
%>

خروجی: URL سوم: asp_variables.asp

روش GetPreviousDescription

توضیحات اولین ورودی لیست لینک‌های محتوایی را برمی‌گرداند. اگر فایل فعلی در لیست پیدا نشود، توضیحات اولین صفحه لیست.

مثال

<%
dim nl,c
Set nl=Server.CreateObject("MSWC.NextLink") 
c=nl.GetPreviousDescription("links.txt") 
Response.Write("قبلی ")
Response.Write("توضیحات: ")
Response.Write(c)
%>

خروجی: توضیحات قبلی: متغیرهای ASP

روش GetPreviousURL

URL اولین ورودی لیست لینک‌های محتوایی را برمی‌گرداند. اگر فایل فعلی در لیست پیدا نشود، URL اولین صفحه لیست.

مثال

<%
dim nl,c
Set nl=Server.CreateObject("MSWC.NextLink") 
c=nl.GetPreviousURL("links.txt") 
Response.Write("قبلی ")
Response.Write("URL است: ")
Response.Write(c)
%>

خروجی: URL قبلی: asp_variables.asp