AdRotator Nedir
AdRotator

Adrotator sayfalarımizda görüntülenmek için alınan bannerlerin hangi sırayla, ne kadar sıklıkla gosterılecegini bildiren, bu bannera tıklandıgında, reklamı veren url’ ye yönlendırmeyi yapan komponenttir.

Bir uygulama ile nasıl yapıldığını açıklayalım.

Öncelikle aşagıda yazılanları ReklamPlan.txt adında root klasörüne kaydedin.

Redirect Reklam.asp
width 462
height 53
border 0
*
Banner1.gif
http://www.nebakiyon.Com
Mynet alt bilgileri
5

Banner2.gif
http://www.sanane.com.Com
Google alt bilgileri
6

Banner3.jpg
http://www.murattatar.net
Yahoo alt bilgileri
1
Şimdi bu textimizde kullandığımız terimleri tanımlayalım.

WIDTH: Bannerlarınızın Genişliğini gireceksiniz.
HEIGHT: Bannerlarınızın Yüksekliğini gireceksiniz.
BORDER: banneri cerceve içine almak istemiyorsak 0 degerini veririz.

İlk Satırda bannerin img adını ve yolunu yazıyorsunuz.
İkinci Satırda,url adresini
Üçüncü satırda ise imajın üzerine gelince çıkacak ALT yazısını.
Dördüncü satırdaki rakamlarımızın toplamı 10’u verir. Bu rakamlar seçili banner’ımızın 10 sayfa gösteriminde kaç kere gösterileceğini belirler…

Redirect Reklam.asp ibaresi, reklama tıklandığında yönlenilecek URL’yi belirtir. ADROTATOR bileşeni, resimlere atadığımız adresi ve resim dosyasının adresini bir string oluşturarak REDIRECT satırındaki adrese gönderir. Bizim bu satırdaki adresimiz reklam.asp

Bu durumda; Örneğin, http://www.yahoo.Com reklamına tıklandığında şu şekilde bir adres oluşacaktır:
http://www.site-adi.com/reklam.asp?url=http://www.yahoo.comI=images/banner3.gif

Bizede reklam.asp dosyasını oluşturup, sayfayı url değişkenindeki adrese yönlendirmek kalıyor. Bu işlemi Response.Redirect(url ) komutunu kullanarak yapacağız.

Şimdi reklam.asp’yi oluşturalım;

<% url=Request.QueryString("url" ) If url<>“” then Response.Redirect(url )
%>

Şimdi de Reklamları gösterim yapacagımız sayfanın kodlarını yazmaya.

<% Set ReklamNesnesi=Server.CreateObject("MSWC.Adrotator" ) ReklamNesnesi.TargetFrame="target='_blank'" ' yeni pencere de actık banner=Reklamnesnesi.GetAdvertisement("banner.txt" ) Response.Write banner %>