مكون ASP Content Linking

مثال

مكون الاتصال بالمحتوى
سيتم بناء قائمة المحتويات في هذا المثال.
مكون الاتصال بالمحتوى 2
في هذا المثال، يتم استخدام مكون الاتصال بالمحتوى ASP للتنقل بين الصفحات المدرجة في ملف نصي.

مكون ASP Content Linking

يستخدم مكون الاتصال بالمحتوى ASP لإنشاء نظام توجيه مريح وسهل.

يقدم مكون الاتصال بالمحتوى Nextlink Object، والذي يستخدم لتسجيل قائمة الصفحات التي يجب التصفح.

النحو

<%
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 Content Linking

طريقة 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("العنوان التالي ")
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("العنوان التالي ")
Response.Write("URL هو: ")
Response.Write(c)
%>

الإخراج: العنوان التالي هو: asp_variables.asp

طريقة GetNthDescription

يسترجع وصف الصفحة رقم N المدرجة في ملف قائمة الروابط.

مثال

<%
dim nl,c
Set nl=Server.CreateObject("MSWC.NextLink") 
c=nl.GetNthDescription("links.txt",3) 
Response.Write("العنوان الثالث ")
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("العنوان الثالث ")
Response.Write("URL هو: ")
Response.Write(c)
%>

الإخراج: العنوان الثالث هو: 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