ASP AdRotator Komponenti

Örnek

Basit AdRotator Örneği
Bu örnekte gösteriliyor: Kullanıcı web sitesine girdiğinde veya sayfayı yenilediğinde, AdRotator bileşenini nasıl kullanarak farklı bir reklam resmi gösterileceğini.
AdRotator - Resim Bağlantısı
Bu örnekte gösteriliyor: Kullanıcı web sitesine girdiğinde veya sayfayı yenilediğinde, AdRotator bileşenini nasıl kullanarak farklı bir reklam resmi gösterileceğini.

ASP AdRotator Komponenti

Kullanıcı web sitesine girer veya sayfayı yenilerse, ASP AdRotator bileşeni bir AdRotator nesnesi oluşturarak farklı bir resim gösterir.

Gramer:

<%
adrotator = server.createobject("MSWC.AdRotator")
adrotator.GetAdvertisement("textfile.txt")
%>

Örnek

Örneğin, "banners.asp" adında bir dosya var. Bu şekilde görünüyor:

<html>
<body>
<%
set adrotator=Server.CreateObject("MSWC.AdRotator")
response.write(adrotator.GetAdvertisement("ads.txt"))
%>
</body>
</html>

Dosya "ads.txt" şu şekilde görünüyor:

*
codew3c.gif
http://www.codew3c.com/
CodeW3C.com'u Ziyaret Edin
80
microsoft.gif
http://www.microsoft.com/
Microsoft'u Ziyaret Edin
20

"ads.txt" dosyasında yıldız altındaki kodlar, bu görsellerin nasıl gösterileceğini, bağlantı adreslerini, görsel değiştirme metnini ve her yüz tıklamada gösterilme olasılığını tanımlar. CodeW3C.com görselinin gösterilme olasılığı %80, Microsoft görselinin gösterilme olasılığı ise %20'dir.

Yorum:Bu bağlantıların kullanıcı tıkladığında normal çalışabilmesi için "ads.txt" dosyasını biraz değiştirmemiz gerekiyor:

REDIRECT banners.asp
*
codew3c.gif
http://www.codew3c.com/
CodeW3C.com'u Ziyaret Edin
80
microsoft.gif
http://www.microsoft.com/
Microsoft'u Ziyaret Edin
20

Yönlendirme sayfası, "url" adlı bir değişken içeren bir sorgu dizgisi alır, bu değişkende yönlendirme URL'si bulunur.

Yorum:Görselin yüksekliğini, genişliğini ve kenar çerçevesini belirlemek için REDIRECT altına bu kodları ekleyebiliriz:

REDIRECT banners.asp
WIDTH 468 
HEIGHT 60 
BORDER 0 
*
codew3c.gif
...
...

Son olarak bu kodları "banners.asp" dosyasına eklememiz gerekiyor:

<%
url=Request.QueryString("url")
If url<>"" then Response.Redirect(url)
%>
<html>
<body>
<%
set adrotator=Server.CreateObject("MSWC.AdRotator")
response.write(adrotator.GetAdvertisement("textfile.txt"))
%>
</body>
</html>

İşte tamamen budur!

AdRotator Komponenti Özellikleri

Border Özelliği

Reklamın Etrafındaki Kenar Çerçevesinin Boyutunu Tanımlar.

<%
set adrot=Server.CreateObject("MSWC.AdRotator")
adrot.Border="2"
Response.Write(adrot.GetAdvertisement("ads.txt"))
%>

Clickable Özelliği

Reklamın Kendisinin Superlink Olup Olmadığını Tanımlar.

<%
set adrot=Server.CreateObject("MSWC.AdRotator")
adrot.Clickable=false
Response.Write(adrot.GetAdvertisement("ads.txt"))
%>

TargetFrame Özelliği

Reklam Gösteren Çerçeve Adı.

<%
set adrot=Server.CreateObject("MSWC.AdRotator")
adrot.TargetFrame="target='_blank'"
Response.Write(adrot.GetAdvertisement("ads.txt"))
%>

AdRotator Komponenti Metodları

GetAdvertisement Metodu

Sayfada görüntülenen reklamın HTML'ini döndür.

<%
set adrot=Server.CreateObject("MSWC.AdRotator")
Response.Write(adrot.GetAdvertisement("ads.txt"))
%>