Latest web development tutorials

ASP ربط المحتوى

أمثلة

محاولة - على سبيل المثال

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

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

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

ASP مكونات ربط المحتوى لخلق نظام ملاحة سريعة وسهلة!

عنصر الربط بين المحتوى بإرجاع كائن Nextlink التي تستخدم لعقد قائمة صفحة الاستكشاف المطلوبة.

قواعد

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

ASP أمثلة ربط المحتوى

أولا، سنقوم بإنشاء ملف نصي - "links.txt":

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

ملف النص أعلاه الذي يحتوي على صفحة الاستكشاف المطلوبة. ترتيب الصفحات التي يجب أن يتم عرض في نفس النظام، ويحتوي على وصف كل اسم ملف (استخدام علامات التبويب لفصل اسم الملف والوصف).

ملاحظة: إذا كنت ترغب في إضافة صفحات إلى قائمة، أو تغيير ترتيب الصفحات في القائمة، ثم ما عليك القيام به هو تعديل ملف نص عليه!وسيتم تحديث الملاحة تلقائيا!

ثم نقوم بإنشاء ملف مرجعي، "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" المدرجة في سطر منالتعليمات البرمجية: <- ملف تتضمن # = "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")
%>

输出：

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

输出：

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 返在内容链接列表文件中所列的第 N 个页面的描述信息。 <%
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 返回在内容链接列表文件中所列的第 N 个页面的 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