مكون ربط محتوى ASP
مزيد من الأمثلة
بإنشاء جدول محتويات.
استخدم مكون ربط المحتوى للتنقل بين الصفحات في ملف نصي.
مكون ربط محتوى ASP
يتم استخدام مكون ارتباط محتوى ASP لإنشاء نظام تنقل سريع وسهل!
يقوم مكون "ارتباط المحتوى" بإرجاع كائن Nextlink الذي يتم استخدامه للاحتفاظ بقائمة من صفحات الويب المراد التنقل فيها.
بناء الجملة
<%
Set nl=Server.CreateObject("MSWC.NextLink")
%>
مثال ربط محتوى ASP
أولاً نقوم بإنشاء ملف نصي - "links.txt":
asp_intro.asp ASP Intro
asp_syntax.asp ASP Syntax
asp_variables.asp ASP Variables
asp_procedures.asp ASP Procedures
يحتوي الملف النصي أعلاه على الصفحات التي سيتم تصفحها. يجب أن يتم سرد الصفحات بنفس الترتيب الذي تريد عرضها به ، ويجب أن تحتوي أيضًا على وصف لكل اسم ملف (استخدم مفتاح Tab لفصل اسم الملف عن الوصف).
ملاحظة: إذا كنت تريد إضافة صفحة أو تغيير ترتيب الصفحات في القائمة ؛ ما عليك سوى تعديل الملف النصي! سيتم تصحيح التنقل تلقائيًا!
ثم نقوم بإنشاء ملف التضمين "nlcode.inc". ينشئ ملف .inc كائن NextLink للتنقل بين الصفحات المدرجة في "links.txt".
"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>")
%>
في كل صفحة من صفحات .asp المدرجة في الملف النصي "links.txt" ، ضع سطرًا واحدًا من التعليمات البرمجية: <! - #include file = "nlcode.inc" -> . سيتضمن هذا السطر الكود الموجود في "nlcode.inc" في كل صفحة مدرجة في "links.txt" وسيعمل التنقل.
طرق مكونات ربط محتوى ASP
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 |