ตัวอย่าง
เนื้อหาตัวแทนการเชื่อมโยง
สร้างสารบัญ
เนื้อหาเชื่อมโยงองค์ประกอบที่ 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" แฟ้ม .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 |