Ты, наверное, уже сделал свой сайт быстрым,
красивым, с отличным контентом и теперь к
тебе заходят толпы посетителей? И на этом
этапе я предложу тебе чуть заработать на
твоем детище, ну или, по крайней мере,
привлечь к себе еще больше посетителей, а
потом уже подзаработать :). Ты наверно уже
понял к чему я? Нет, я не предлагаю тебе
продавать куриные кубики онлайн :), речь
идет о продажах баннерных мест или обмене
баннерами. Но ты скажешь, что в наши дни
стандартные баннерные объявления
настолько переполнили WWW, что юзеры
практически не обращают на них внимания (в
результате анализа этой ситуации
выяснилось: чем чаще пользователь видит
один и тот же баннер, тем реже он пользуется
ссылкой на рекламируемый сайт). Именно
поэтому мы будем делать динамическую
систему: менять содержимое баннера при
каждом посещении страницы. На чем мы это
будем делать- конечно же на Active Server Pages, так
как в нем предусмотрен специальный
компонент AdRotator, с помощью которого можно
определить, какой именно баннер
представлен на странице в текущий момент,
часто ли на него кликают и как часто он
используется по сравнению с другими
баннерами. Поехали…
Первое, о чем тебе стоит позаботиться, -
это баннеры, которые ты будешь использовать
в проекте, но тут уж я тебе не помощник.
Затем нужно создать файл списка, в котором
должны быть: ссылки на сайты рекламодателей,
количество выходов каждой рекламы, файл
переадресации (для сбора нужной нам
статистики, но об этом позже). Создайте
текстовый файл adList.txt. Этот файл должен
содержать следующие строчки:
REDIRECT ./click.asp
WIDTH 468
HEIGHT 60
BORDER 0
*
./ban1.gif
http://site1.ru
Site1: best site in a world
3
./ban2.gif
http://site2.ru
Site2: Our costumes are out of this world
5
./ban3.gif
http://site3.ru
Site3: Everything from Alpha to Zed
2
Каждый элемент списка состоит из четырех
частей:
1. Адрес баннера
2. Адрес сайта рекламодателя
3. Текст рекламы
4. Относительная значимость рекламы (в
данном случае в среднем за каждые 10 показов
страницы первая реклама появиться 3 раза,
вторая- 5, третья - 3)
Теперь создадим файл включения, который
будет показывать баннеры - showban.ssi:
<%@ LANGUAGE="VBSCRIPT" %
<% '---------------- Ad Rotator ---------------------
set AdvObject = Server.CreateObject("MSWC.AdRotator")
adHTML = AdvObject.GetAdvertisement("adList.txt")
Response.Write adHTML
'---------------- End Ad Rotator -----------------
%
Теперь создадим файл, который будет
собирать для нас статистику: время и дату
клика, а так же ссылающуюся страницу. Но для
этого нам надо будет создать БД MS Access (ad_log.mdb)
-> создать таблицу "ad_log" ->создать
три столбца : sponsor, clickdate (тип данных- дата),
referrer. Создали? Теперь пишем в click.asp:
<%@ LANGUAGE="VBSCRIPT" %
<%
sponsorURL = Request.querystring("url")
'--------------Защита от пакостей--------------
result1 = sponsorURL
for a=1 to len(result1)
if (Mid(result1,a,1)="'") or (Mid(result1,a,1)="|") or (Mid(result1,a,1)="<") or (Mid(result1,a,1)=">") or (Mid(result1,a,1)="&") or (Mid(result1,a,1)="""") then
Response.Redirect "error.htm"
End if
next
'-------------Конец Защиты от пакостей---------
'Create the object
set DB = Server.CreateObject("ADODB.Connection")
'Open the connection
DB.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" &
Server.MapPath ("ad_log.mdb")
'Insert the record here
sqlText = "insert into ad_log (sponsor, clickDate, referer) values ('"
sqlText = sqlText & sponsorURL
sqlText = sqlText & "', '"
sqlText = sqlText & Now
sqlText = sqlText & "', '"
sqlText = sqlText & Request.ServerVariables("HTTP_REFERER")
sqlText = sqlText & "')"
DB.Execute(sqlText)
'Close the connection
DB.Close
'Destroy the connection
set DB = Nothing
Server.Transfer sponsorURL
%>
Ну вот собственно и все. Теперь осталось в
нужном месте вставить showban.ssi. Например, так:
<!--#include virtual="/ADS/showban.ssi"
-->
P.S. Кстати, если ищешь бесплатный ASP-
Хостинг, то попробуй http://www.brinkster.com/.
