ASP Content Rotator (ASP 3.0)

Παράδειγμα

Το κόμπος Content Rotator
Καθώς ο χρήστης επισκέπτεται ή ανανεώνει την σελίδα, το κόμπλεξ αυτό εμφανίζει διαφορετικές συμβολοσειρές HTML κειμένου.

Το κόμπλεξ ASP Content Rotator

Το κόμπλεξ ASP Content Rotator δημιουργεί έναν αντικείμενο ContentRotator, κάθε φορά που ο χρήστης επισκέπτεται ή ανανεώνει μια σελίδα, το αντικείμενο αυτό εμφανίζει μια διαφορετική συμβολοσειρά HTML κειμένου. Ένα κείμενο αρχείου κατηγορίας περιεχομένου (Content Schedule File) περιέχει πληροφορίες για τις συμβολοσειρές κειμένου.

Το κείμενο της συμβολοσειράς μπορεί να περιέχει ετικέτες HTML, έτσι μπορείτε να εμφανίσετε οποιοδήποτε περιεχόμενο που μπορεί να εμφανιστεί με HTML: κείμενο, εικόνα, χρώμα ή σύνδεσμοι.

Γραμματική

<%
Set cr=Server.CreateObject( "MSWC.ContentRotator" )
%>

Καθώς κάθε χρήστης επισκέπτεται την ιστοσελίδα, το παρακάτω παράδειγμα εμφανίζει διαφορετικό περιεχόμενο. Πρώτα δημιουργήστε ένα αρχείο "textads.txt" στη θυρίδα "text" της ρίζας του ιστοχώρου.

"textads.txt":

%% #1
Αυτό είναι ένα εξαιρετικό μέρος!!
%% #2 
<h1>Smile</h1>
%% #3
<img src="smiley.gif">
%% #4
Εδώ είναι ένας σύνδεσμος <a href="http://www.codew3c.com">σύνδεσμος</a>

Σημείωση:Στην αρχή κάθε συμβολοσειράς κειμένου υπάρχουν τα αριθμητικά σύμβολα#. Αυτό το αριθμητικό σύμβολο είναι ένα προαιρετικό παράμετρος, χρησιμοποιείται για να καθορίσει την απόλυτη πιθανότητα του HTML κειμένου της συμβολοσειράς. Σε αυτό το παράδειγμα, ο Content Rotator έχει μια πιθανότητα του ενός δέκατου για να εμφανίσει την πρώτη συμβολοσειρά κειμένου, δύο δέκατα για να εμφανίσει την δεύτερη συμβολοσειρά κειμένου, τρία δέκατα για να εμφανίσει την τρίτη συμβολοσειρά κειμένου και ο τέταρτος字符串 έχει μια πιθανότητα του τεσσάρων δέκατων.

Δημιουργήστε έναν αρχείο ASP και εισάγετε τον παρακάτω κώδικα:

<html>
<body>
<%
set cr=server.createobject("MSWC.ContentRotator")
response.write(cr.ChooseContent("text/textads.txt"))
%>
</body>
</html>

Μέθοδοι του κόμπλεξ ASP Content Rotator

Μέθοδος Περιγραφή Παράδειγμα
ChooseContent Αποτελείται και εμφανίζει μια συμβολοσειρά κειμένου 
	<%
    dim cr
    Set cr=Server.CreateObject("MSWC.ContentRotator") 
    response.write(cr.ChooseContent("text/textads.txt"))
    %>

Output:
GetAllContent Επιστρέφει και εμφανίζει το κείμενο όλων των συμβολοσειρών από το αρχείο κειμένου 
	<%
    dim cr
    Set cr=Server.CreateObject("MSWC.ContentRotator") 
    response.write(cr.GetAllContent("text/textads.txt"))
    %>

Output: