Ты, наверное, уже сделал свой сайт быстрым,
красивым, с отличным контентом и теперь к
тебе заходят толпы посетителей? И на этом
этапе я предложу тебе чуть заработать на
твоем детище, ну или, по крайней мере,
привлечь к себе еще больше посетителей, а
потом уже подзаработать :). Ты наверно уже
понял к чему я? Нет, я не предлагаю тебе
продавать куриные кубики онлайн :), речь
идет о продажах баннерных мест или обмене
баннерами. Но ты скажешь, что в наши дни
стандартные баннерные объявления
настолько переполнили 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/.

Check Also

Операция BrainfuckPC. Как я построил самый безумный релейный компьютер и не стал на этом останавливаться

Спаяв десять лет назад свою первую схему на электромагнитных реле, способную сложить два ч…

Оставить мнение