Компонент 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>Улыбка</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"))
    %>

Вывод: