ASP Content Rotator (ASP 3.0)
Examples
The Content Rotator Component
This component displays a different HTML content string each time a user visits or refreshes the page.
ASP Content Rotator Component
The ASP Content Rotator component creates a ContentRotator object that displays a
different HTML content string each time a user enters or refreshes a page. A
text file, called the Content Schedule File, includes the information about the content strings.
The content strings can contain HTML tags so you can display any type
of content that HTML can represent: text, images, colors, or hyperlinks.
Syntax
<%
Set cr=Server.CreateObject( "MSWC.ContentRotator" )
%> |
The following example displays a different content each time a user views
the Web page. Create a text file named "textads.txt" in your default Web Site folder, in a subfolder called text.
"textads.txt":
%% #1
This is a great day!!
%% #2
<h1>Smile</h1>
%% #3
<img src="smiley.gif">
%% #4
Here's a <a href="http://www.w3schools.com">link.</a> |
Notice the #number at the beginning of each content string. This number is
an optional parameter that indicates the relative weight of the HTML content
string. In this example, the Content Rotator will display the first content
string one-tenth of the time, the second string two-tenths of the time, the
third string three-tenths of the time, and the fourth string four-tenths of
the time.
Then, create an ASP file, and insert the following code:
<html>
<body>
<%
set cr=server.createobject("MSWC.ContentRotator")
response.write(cr.ChooseContent("text/textads.txt"))
%>
</body>
</html> |
The ASP Content Rotator Component's methods are described below:
Methods
| Method |
Description |
Example |
| ChooseContent |
Gets and displays a content string |
<%
dim cr
Set cr=Server.CreateObject("MSWC.ContentRotator")
response.write(cr.ChooseContent("text/textads.txt"))
%>Output:
 |
| GetAllContent |
Retrieves and displays all of the content strings in the text file |
<%
dim cr
Set cr=Server.CreateObject("MSWC.ContentRotator")
response.write(cr.GetAllContent("text/textads.txt"))
%>Output:
This is a great day!!
Smile
Here's a link.
|
|
