Thành phần ASP Content Linking

Mô hình

Phần mềm Liên kết Nội dung
Ví dụ này sẽ xây dựng một danh sách nội dung.
Phần mềm Liên kết Nội dung 2
Ví dụ này sử dụng phần mềm Liên kết Nội dung ASP để dẫn hướng giữa các trang web được liệt kê trong tệp văn bản.

Thành phần ASP Content Linking

Phần mềm Liên kết Nội dung ASP được sử dụng để tạo hệ thống dẫn hướng nhanh chóng và tiện lợi.

Phần mềm Liên kết Nội dung sẽ trả về một đối tượng Nextlink, đối tượng này được sử dụng để chứa danh sách các trang web cần dẫn hướng.

Cú pháp

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

Đầu tiên, chúng ta sẽ tạo tệp văn bản - "links.txt". Tệp này chứa thông tin liên quan đến các trang web cần dẫn hướng. Thứ tự của các trang web nên trùng khớp với thứ tự hiển thị và bao gồm mô tả đối với từng tệp (sử dụng dấu cách để phân cách tên tệp và thông tin mô tả).

Chú thích：Nếu bạn muốn thêm thông tin tệp vào danh sách hoặc thay đổi thứ tự các trang trong danh sách, điều bạn cần làm chỉ là chỉnh sửa tệp văn bản này! Hệ thống định hướng sẽ tự động cập nhật!

"links.txt":

asp_intro.asp Giới thiệu ASP
asp_syntax.asp Cú pháp ASP
asp_variables.asp Biến ASP
asp_procedures.asp Chương trình ASP

Vui lòng đặt dòng mã này trong các trang đã liệt kê trên: <!-- #include file="nlcode.inc"--> Dòng mã này sẽ liệt kê mã này dưới mỗi trang trong "links.txt", từ đó hệ thống định hướng có thể hoạt động.

"nlcode.inc":

<%
"Sử dụng thành phần liên kết nội dung" 
"để di chuyển giữa các trang trong danh sách"
"trong 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("'>Trang trước</a>")
end if
Response.Write("<a href='" & nl.GetNextURL("links.txt"))
Response.Write("'>Trang sau</a>")
%>

Các phương thức của thành phần liên kết nội dung ASP

Phương thức GetListCount

Trả về số lượng mục trong danh sách liên kết nội dung của tệp:

<%
dim nl, c
Set nl = Server.CreateObject("MSWC.NextLink") 
c=nl.GetListCount("links.txt") 
Response.Write("Có ")
Response.Write(c)
Response.Write(" mục trong danh sách")
%>

Kết quả đầu ra：

Có 4 mục trong danh sách

Phương thức GetListIndex

Trả về chỉ số của tệp liên kết nội dung hiện tại trong danh sách liên kết tệp. Chỉ số của mục đầu tiên là 1. Nếu trang hiện tại không có trong tệp danh sách, sẽ trả về 0.

Ví dụ

<%
dim nl, c
Set nl = Server.CreateObject("MSWC.NextLink") 
c=nl.GetListIndex("links.txt") 
Response.Write("Số lượng mục ")
Response.Write(c)
%>

Kết quả đầu ra：

Số thứ tự mục 3

Phương thức GetNextDescription

Trả về mô tả văn bản của mục tiếp theo trong danh sách liên kết nội dung trong tệp liệt kê liên kết. Nếu không tìm thấy tệp hiện tại trong danh sách, thì mô tả văn bản của trang cuối cùng trong danh sách.

Ví dụ

<%
dim nl, c
Set nl = Server.CreateObject("MSWC.NextLink") 
c = nl.GetNextDescription("links.txt") 
Response.Write("URL tiếp theo ")
Response.Write("mô tả là: ")
Response.Write(c)
%>

Kết quả đầu ra: Mô tả tiếp theo là: Các biến ASP

Phương thức GetNextURL

Trả về URL của mục tiếp theo trong danh sách liên kết nội dung trong tệp liệt kê liên kết. Nếu không tìm thấy tệp hiện tại trong danh sách, thì URL của trang cuối cùng trong danh sách.

Ví dụ

<%
dim nl, c
Set nl = Server.CreateObject("MSWC.NextLink") 
c = nl.GetNextURL("links.txt") 
Response.Write("URL tiếp theo ")
Response.Write("URL là: ")
Response.Write(c)
%>

Kết quả đầu ra: URL tiếp theo là: asp_variables.asp

Phương thức GetNthDescription

Trả về mô tả thông tin của trang số N trong danh sách liên kết nội dung trong tệp liệt kê liên kết.

Ví dụ

<%
dim nl, c
Set nl = Server.CreateObject("MSWC.NextLink") 
c = nl.GetNthDescription("links.txt", 3) 
Response.Write("URL thứ ba ")
Response.Write("mô tả là: ")
Response.Write(c)
%>

Kết quả đầu ra: Mô tả thứ ba là: Các biến ASP

Phương thức GetNthURL

Trả về URL của trang số N trong danh sách liên kết nội dung trong tệp liệt kê liên kết.

Ví dụ

<%
dim nl, c
Set nl = Server.CreateObject("MSWC.NextLink") 
c = nl.GetNthURL("links.txt", 3) 
Response.Write("URL thứ ba ")
Response.Write("URL là: ")
Response.Write(c)
%>

Kết quả đầu ra: URL thứ ba là: asp_variables.asp

Phương thức GetPreviousDescription

Trả về mô tả văn bản của mục trước trong danh sách liên kết nội dung trong tệp liệt kê liên kết. Nếu không tìm thấy tệp hiện tại trong danh sách, thì mô tả văn bản của trang đầu tiên trong danh sách.

Ví dụ

<%
dim nl, c
Set nl = Server.CreateObject("MSWC.NextLink") 
c = nl.GetPreviousDescription("links.txt") 
Response.Write("Previous ")
Response.Write("mô tả là: ")
Response.Write(c)
%>

Kết quả đầu ra: Mô tả trước là: Các biến ASP

Phương thức GetPreviousURL

Trả về URL của mục trước trong danh sách liên kết nội dung trong tệp liệt kê liên kết. Nếu không tìm thấy tệp hiện tại trong danh sách, thì URL của trang đầu tiên trong danh sách.

Ví dụ

<%
dim nl, c
Set nl = Server.CreateObject("MSWC.NextLink") 
c = nl.GetPreviousURL("links.txt") 
Response.Write("Previous ")
Response.Write("URL là: ")
Response.Write(c)
%>

Kết quả: URL trước là: asp_variables.asp