Komponen Content Rotator (ASP 3.0)

Contoh

Komponen Content Rotator
Setiap kali pengguna mengakses atau memuat kembali halaman, komponen ini akan menampilkan string konten HTML yang berbeda.

Komponen ASP Content Rotator

Komponen ASP Content Rotator akan membuat objek ContentRotator, setiap kali pengguna mengakses atau memuat kembali halaman, objek ini akan menampilkan string konten HTML yang berbeda. Berkas teks yang disebut berkas jadwal konten (Content Schedule File) mengandung informasi tentang string konten.

String konten dapat mengandung tag HTML, sehingga Anda dapat menampilkan berbagai konten yang dapat ditampilkan HTML: teks, gambar, warna, atau tautan.

Sintaks

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

Setiap kali pengguna melihat halaman web, contoh di bawah ini akan menampilkan konten yang berbeda. Pertama, buat berkas "textads.txt" di folder sub root direktori text.

"textads.txt":

%% #1
Ini adalah hari yang hebat!!
%% #2 
<h1>Smile</h1>
%% #3
<img src="smiley.gif">
%% #4
Ini adalah <a href="http://www.codew3c.com">link</a>

Perhatian:Dengan nomor # di awal setiap string konten. Angka ini adalah parameter pilihan yang digunakan untuk berat relatif string konten HTML. Dalam contoh ini, Content Rotator memiliki kesempatan sepuluh persen untuk menampilkan string konten pertama, dua puluh persen untuk string konten kedua, tiga puluh persen untuk string konten ketiga, dan string konten keempat memiliki kesempatan empat puluh persen.

Lalu, buat berkas ASP dan sisipkan kode berikut:

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

Metode komponen ASP Content Rotator

Metode Deskripsi Contoh
ChooseContent Ambil dan tampilkan string konten tertentu 
	<%
    dim cr
    Set cr=Server.CreateObject("MSWC.ContentRotator") 
    response.write(cr.ChooseContent("text/textads.txt"))
    %>

Output:
GetAllContent Ambil dan tampilkan semua string konten dalam berkas teks 
	<%
    dim cr
    Set cr=Server.CreateObject("MSWC.ContentRotator") 
    response.write(cr.GetAllContent("text/textads.txt"))
    %>

Output: