ASP Content Rotator (ASP 3.0)

Örnek

Content Rotator bileşeni
Her kullanıcı bir sayfayı ziyaret ettiğinde veya sayfayı yenilediğinde, bu bileşen farklı HTML içerik stringlerini gösterir.

ASP Content Rotator bileşeni

ASP Content Rotator bileşeni, her kullanıcı bir sayfayı ziyaret ettiğinde veya sayfayı yenilediğinde, bir ContentRotator nesnesi oluşturur. İçerik dizin dosyası adlı bir metin dosyası, içerik stringleri hakkında bilgi içerir.

İçerik stringleri HTML etiketlerini içerebilir, bu da HTML'nin sunabileceği her türlü içeriği göstermenizi sağlar: metin, resim, renk veya bağlantılar.

Sözdizimi

<%
Set cr=Server.CreateObject("MSWC.ContentRotator")
%>

Her kullanıcı web sayfasını görüntülediğinde, aşağıdaki örnek farklı içerikleri gösterir. Öncelikle, sitesinin kök dizinindeki text alt dizininde "textads.txt" adında bir dosya oluştur.

"textads.txt":

%% #1
Bu muhteşem bir gün!!
%% #2 
<h1>Gülümse</h1>
%% #3
<img src="smiley.gif">
%% #4
Burada bir <a href="http://www.codew3c.com">bağlantı</a> var

Dikkat:Her içerik stringinin başlangıç noktasındaki # numarası. Bu numara, HTML içerik stringinin göreli ağırlığını belirlemek için seçmeli bir parametredir. Bu örnekte, Content Rotator'un ilk içerik stringini gösterme olasılığı onda bir, ikinci içerik stringini gösterme olasılığı onda iki, üçüncü içerik stringini gösterme olasılığı onda üç, dördüncü içerik stringini gösterme olasılığı ise onda dört.

Ardından, bir ASP dosyası oluştur ve aşağıdaki kodu ekle:

<html>
<body>
<%
set cr=server.createobject("MSWC.ContentRotator")
response.write(cr.ChooseContent("text/textads.txt"))
%>
</body>
</html>

ASP Content Rotator bileşeni yöntemleri

Metod Açıklama Örnek
ChooseContent Belli bir içerik stringini al ve göster 
	<%
    dim cr
    Set cr=Server.CreateObject("MSWC.ContentRotator") 
    response.write(cr.ChooseContent("text/textads.txt"))
    %>

Çıktı:
GetAllContent Metin dosyasında tüm içerik stringlerini al ve göster 
	<%
    dim cr
    Set cr=Server.CreateObject("MSWC.ContentRotator") 
    response.write(cr.GetAllContent("text/textads.txt"))
    %>

Çıktı: