
Проект Управление баннерами
Проект Отправка файлов
Проект Доска сообщений
Дальше указывается число, которое определяет, как часто должен показываться баннер. Это не абсолютная, а относительная величина, которая соответствует доле показов этого баннера от общего числа показов всех баннеров, включенных в файл расписания:
<Impressions>71</Impressions>
Здесь сегмент баннера закрывается:
и начинается второй баннер:
В этом баннере используется уже другое изображение:
<ImageUrl>./AnotherSample.gif</ImageUrl>
Посетители, щелкнув мышью на баннере, будут направлены на другой Web-узел. Прежде чем направлять посетителей на целевой Web-узел, сначала можно направить их на собственную страницу, которая зафиксировала бы факт обращения к баннеру:
<NavigateUrl>http://www.microsoft.com/</NavigateUrl>
Когда посетители наводят на баннер курсор, он показывает следующий текст:
<AlternateText>nepexofl на узел Microsoft</AlternateText>
В данном баннере использовано то же ключевое слово, что и в первом:
<Keyword>ShowMe</Keyword>
Но он будет показываться немного реже первого:
<Impressions>70</Impressions>
Затем описание второго баннера закрывается:
и начинается описание третьего:
<Ad>
<ImageUrl>./DoesNotExist.gif</ImageUrl>
<NavigateOrl>http://www.microsoft.conK/NavigateUrl>
<AlternateText>06paTMCb ко MHe</AlternateText>
Обратите внимание, что в этом, третьем, баннере используется другое ключевое слово:
<Keyword>DoNotShowMe</Keyword>
Когда вы посмотрите на код ASP.NET-страницы нашего проекта, то увидите, что последний баннер отбрасывается фильтром. Хотя для него задано большое количество показов:
<Impressions>2000</Impressions>
он не появится на нашем демонстрационном Web-узле.
Страница Управление баннерами
Страница Управление баннерами при отображении таковых руководствуется файлом расписания. В теле страницы определяются два элемента управления. Первый из них — это элемент AdRotator.
<asp : adrotator
AdvertisementFile="bannerads.xml"
KeywordFilter="ShowMe"
Target="_blank"
OnAdCreated="AdCreated_Event"
BorderColor="blue"
BorderWidth=3
runat=" server"
/>
Нам необходимо определить имя файла расписания, используемого с этим элементом управления:
AdvertisementFile-"bannerads . xml"
Затем мы указываем, что хотим использовать только баннеры с ключевым словом «ShowMe». Это значит, что третий баннер не будет показан. Определяя для разных баннеров различные ключевые слова, вы можете на отдельных страницах показывать определенные наборы баннеров или, скажем, один и тот же баннер:
Мы указываем, что когда посетитель щелкнет на баннере кнопкой мыши, следует открыть новое окно (хотя по умолчанию целевая страница отображается в том же окне браузера):
Далее определяем название процедуры, выполняемой при показе баннера:
OnAdCreated-"AdCreated_Event"
В завершение мы задаем внешний вид элемента управления:
BorderColor="blue"
BorderWidth=3
Другой элемент управления на странице — это элемент Label, отображающий свойства текущего баннера:
<азр: Label
id="lblMessage"
Font-Size="10pt"
Font-Name="Tahoma"
Font-Bold="True"
runat="server"
Единственная процедура, имеющаяся на странице, запускается при отображении
баннера:
Sub AdCreated_Event (ByVal Sender as Object, ByVal E as
AdCreatedEventArgs)
Application ("TotalAds") - Application ("TotalAds") + 1
IblMessage.Text = "Добро пожаловать на узел! "_
& "Информация об отображаемом баннере:<Ьг>" _
& "<Ьг>Текст: " & E.AlternateText _
& "<Ьг>Файл с изображением: " & E.ImageURL _
& "<Ьг>Адрес URL: " & E,NavigateURL _
& "<Ьг><Ьг>Количество показов: " _
& Application("TotalAds")
EndSub
Содержимое переменной приложения, в которой хранится общее количество показов баннеров, увеличивается на единицу:
Application("TotalAds") = Application("TotalAds") + 1
Для того чтобы иметь возможность отследить, сколько раз показывается конкретный баннер, вы можете сохранять информацию о количестве обращений к нему в базе данных.
Теперь мы должны поместить в элемент управления Label свойства текущего баннера, которые передаются процедуре через параметр AdCreatedEventArgs:
IblMessage.Text = "Добро пожаловать на узел! " _
& "Информация об отображаемом баннере:<Ьг>" _
& "<Ьг>Текст: " & E.AlternateText _.
4 "<Ьг>Файл с изображением: " & E.ImageURL _
& "<Ьг>Адрес URL: " & E.NavigateURL _
& "<Ьг><Ьг>Колцчество показов: " _
& Application("TotalAds")
|