ASP Content Linking Component

Παράδειγμα

Συστατικό Content Linking
Σε αυτό το παράδειγμα, θα δημιουργήσουμε μια λίστα περιεχομένου.
Συστατικό Content Linking 2
Σε αυτό το παράδειγμα, χρησιμοποιούμε το συστατικό Content Linking για να πλοηγηθούμε μεταξύ των σελίδων που αναφέρονται σε ένα αρχείο κειμένου.

ASP Content Linking Component

Το συστατικό ASP Content Linking χρησιμοποιείται για τη δημιουργία μιας εύκολης και γρήγορης συστήματος πλοήγησης.

Το συστατικό Content Linking επιστρέφει ένα αντικείμενο Nextlink, το οποίο χρησιμοποιείται για να περιέχει μια λίστα με τις σελίδες που πρέπει να εξερευνήσουμε.

Γλώσσα προγραμματισμού

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

Πρώτα, θα δημιουργήσουμε ένα αρχείο κειμένου - "links.txt". Αυτό το αρχείο περιέχει πληροφορίες για τις σελίδες που πρέπει να εξερευνήσουμε. Η σειρά των σελίδων πρέπει να είναι η ίδια με την τάξη εμφάνισής τους και να περιλαμβάνει μια περιγραφή για κάθε αρχείο (χρησιμοποιώντας tab για να διαχωρίσουμε το όνομα του αρχείου και τις πληροφορίες περιγραφής).

Note:If you want to add file information to the list or change the order of the pages in the list, all you need to do is modify this text file! Then the navigation system will automatically update!

"links.txt":

asp_intro.asp ASP Introduction
asp_syntax.asp ASP Syntax
asp_variables.asp ASP Variables
asp_procedures.asp ASP Programs

Please place this line of code in the listed pages: <!-- #include file="nlcode.inc"-->. This line will list each page that references the following code in "links.txt", so navigation will work.

"nlcode.inc":

<%
'Use the Content Linking Component 
'to navigate between the pages listed
'in 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("There are ")
Response.Write(c)
Response.Write(" items in the list")
%>

Εκτύπωση:}}

Υπάρχουν 4 στοιχεία στη λίστα

Μέθοδος GetListIndex

Επιστρέφει τον αριθμό της ετικέτας του αρχείου συνδέσμων περιεχομένου στην τρέχουσα σελίδα. Ο αριθμός της πρώτης ετικέτας είναι 1. Αν η τρέχουσα σελίδα δεν υπάρχει στον κατάλογο αρχείων, επιστρέφει 0.

πράγμα

<%
dim nl,c
Set nl=Server.CreateObject("MSWC.NextLink") 
c=nl.GetListIndex("links.txt") 
Response.Write("Item number ")
Response.Write(c)
%>

Εκτύπωση:}}

Αριθμός αντικειμένου 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)
%>

Εκτύπωση: Η επόμενη περιγραφή είναι: Απαριθμημένες μεταβλητές ASP

Μέθοδος 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)
%>

Εκτύπωση: Η επόμενη διεύθυνση URL είναι: 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)
%>

Εκτύπωση: Η τρίτη περιγραφή είναι: Απαριθμημένες μεταβλητές ASP

Μέθοδος GetNthURL

Επιστρέφει τη διεύθυνση URL της Nης σελίδας στη λίστα συνδέσμων περιεχομένου.

πράγμα

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

Εκτύπωση: Η τρίτη διεύθυνση URL είναι: 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)
%>

Εκτύπωση: Η προηγούμενη περιγραφή είναι: Απαριθμημένες μεταβλητές ASP

Μέθοδος 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)
%>

Output: Previous URL is: asp_variables.asp