Komponen Content Rotator (ASP 3.0)

Contoh

Komponen Content Rotator
Setiap kali pengguna mengakses atau merefresh 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 merefresh halaman, objek ini akan menampilkan string konten HTML yang berbeda. Berkas teks yang disebutkan berisi informasi tentang string konten.

String konten dapat mengandung tag HTML, sehingga Anda dapat menampilkan berbagai konten yang dapat dipaparkan 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 direktori root situs di dalam folder text.

"textads.txt":

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

Perhatian:Di posisi awal setiap string konten ada nomor # yang disebutkan. 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, sepuluh persen untuk string konten kedua, sepuluh persen untuk string konten ketiga, dan string konten keempat memiliki kesempatan sepuluh persen.

Lalu, buat sebuah berkas ASP dan masukkan kode di bawah ini:

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

Metode ASP Content Rotator Komponen

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: