एएसपी कंटेंट रोटेटर (एएसपी 3.0)

उदाहरण

Content Rotator कंपोनेंट
जब उपयोगकर्ता किसी पृष्ठ को जाता या फ़ेच करता है तब यह कंपोनेंट अलग-अलग HTML सार्वज्ञान स्ट्रिंग्स दिखाता है。

ASP Content Rotator कंपोनेंट

ASP Content Rotator कंपोनेंट एक ContentRotator ऑब्जैक्ट बनाता है, जब उपयोगकर्ता किसी पृष्ठ को जाता या फ़ेच करता है तब यह ऑब्जैक्ट एक अलग एक अलग HTML सार्वज्ञान स्ट्रिंग्स दिखाता है। एक नाम किया गया सार्वज्ञान सूची फ़ाइल (Content Schedule File) इस फ़ाइल में सार्वज्ञान स्ट्रिंग्स के बारे में जानकारी रखती है。

सार्वज्ञान स्ट्रिंग्स में HTML टैग के आसपास लिखा जा सकता है, इस प्रकार आप HTML द्वारा प्रस्तुत किए जा सकने वाले किसी भी सार्वज्ञान को दिखा सकते हैं: पाठ, चित्र, रंग या हिपरलिंक।

व्याकरण

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

जब किसी उपयोगकर्ता वेब पृष्ठ को देखता है तब नीचे दिए गए उदाहरण को अलग-अलग सार्वज्ञान दिखाया जाता है। पहले, साइट के रूट डिरेक्ट्री में text नामक सब-फ़ोल्डर में "textads.txt" नामक एक फ़ाइल बनाएं。

"textads.txt":

%% #1
This is a great day!!
%% #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"))
    %>

आउटपुट:
GetAllContent फाइल में सभी सार्वज्ञान स्ट्रिंग्स को लूटना और दिखाना 
	<%
    dim cr
    Set cr=Server.CreateObject("MSWC.ContentRotator") 
    response.write(cr.GetAllContent("text/textads.txt"))
    %>

आउटपुट: