أحدث البرامج التعليمية وتطوير الشبكة
 

ASP مكون ربط المحتوى

❮ السابق التالي الفصل ❯
أمثلة

أمثلة

مكون ربط المحتوى
إنشاء جدول المحتويات.

المحتوى الربط مكون 2
استخدام المحتوى ربط مكون للتنقل بين الصفحات في ملف نصي.

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

ملف النص أعلاه يحتوي على الصفحات المراد أبحر. يجب أن يتم سرد صفحات في نفس النظام الذي تريد لهم للظهور، ويجب أن تحتوي أيضا على وصف لكل اسم الملف (use the tab key to separate file name from description) .

Note: إذا كنت ترغب في إضافة صفحة، أو تغيير ترتيب الصفحات في القائمة؛ لديك فقط لتعديل ملف نصي! سيتم تلقائيا تصحيح الملاحة!

ثم نخلق ملف التضمين، "nlcode.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 المحتوى ربط مكون من

طريقة وصف مثال
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")
%>

Output:

There are 4 items in the list

GetListIndex إرجاع عدد فهرس العنصر الحالي في ملف قائمة ربط المحتوى. عدد فهرس العنصر الأول هو 1. 0 يتم إرجاعها إذا كانت الصفحة الحالية ليست في المحتوى الربط بين ملف قائمة <%
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 إرجاع وصف نص البند التالي المذكورة في ملف قائمة ربط المحتوى. إذا لم يتم العثور على الصفحة الحالية في ملف قائمة تقوم بإرجاع وصف نص في الصفحة الأخيرة في القائمة <%
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 إرجاع URL من البند التالي المذكورة في ملف قائمة ربط المحتوى. إذا لم يتم العثور على الصفحة الحالية في ملف قائمة فإنها ترجع URL للصفحة الأخيرة على قائمة <%
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 إرجاع وصف الصفحة نطة المدرجة في ملف قائمة ربط المحتوى <%
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 إرجاع URL للصفحة نطة المدرجة في المحتوى ربط ملف قائمة <%
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 إرجاع وصف نص البند السابق المدرجة في ملف قائمة ربط المحتوى. إذا لم يتم العثور على الصفحة الحالية في ملف قائمة تقوم بإرجاع وصف النص من الصفحة الأولى على لائحة <%
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 إرجاع URL من العنصر السابق المدرجة في ملف قائمة ربط المحتوى. إذا لم يتم العثور على الصفحة الحالية في ملف قائمة فإنها ترجع URL للصفحة الأولى في القائمة <%
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


❮ السابق التالي الفصل ❯