Phần cứng Content Rotator (ASP 3.0)

Mô hình

Thành phần Content Rotator
Mỗi khi người dùng truy cập hoặc làm mới trang, thành phần này sẽ hiển thị các chuỗi văn bản HTML nội dung khác nhau.

Thành phần ASP Content Rotator

Thành phần ASP Content Rotator sẽ tạo một đối tượng ContentRotator, mỗi khi người dùng truy cập hoặc làm mới một trang, đối tượng này sẽ hiển thị một chuỗi văn bản HTML nội dung khác nhau. Một tệp văn bản có tên là tệp lịch trình nội dung (Content Schedule File) chứa thông tin về chuỗi văn bản nội dung.

Chuỗi văn bản nội dung có thể chứa các thẻ HTML, như vậy bạn có thể hiển thị bất kỳ nội dung nào mà HTML có thể hiển thị: văn bản, hình ảnh, màu sắc hoặc liên kết.

Cú pháp

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

Mỗi khi một người dùng xem trang web, ví dụ sau sẽ hiển thị nội dung khác nhau. Đầu tiên, tạo một tệp "textads.txt" trong thư mục con "text" của thư mục gốc của trang web.

"textads.txt":

%% #1
This is a great day!!
%% #2 
<h1>Smile</h1>
%% #3
<img src="smiley.gif">
%% #4
Here's a <a href="http://www.codew3c.com">link</a>

Lưu ý:Tại vị trí bắt đầu của mỗi chuỗi văn bản nội dung có số hiệu # này. Số hiệu này là một tham số tùy chọn, được sử dụng để xác định trọng lượng tương đối của chuỗi văn bản HTML. Trong ví dụ này, Content Rotator có 10% cơ hội hiển thị chuỗi văn bản đầu tiên, 20% cơ hội hiển thị chuỗi văn bản thứ hai, 30% cơ hội hiển thị chuỗi văn bản thứ ba, và chuỗi văn bản thứ tư có 40% cơ hội.

Sau đó, tạo một tệp ASP và chèn mã sau đây:

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

Phương pháp của thành phần ASP Content Rotator

Phương pháp Mô tả Mô hình
ChooseContent Lấy và hiển thị một chuỗi văn bản cụ thể 
	<%
    dim cr
    Set cr=Server.CreateObject("MSWC.ContentRotator") 
    response.write(cr.ChooseContent("text/textads.txt"))
    %>

Kết quả xuất ra:
GetAllContent Lấy lại và hiển thị tất cả các chuỗi văn bản trong tệp văn bản 
	<%
    dim cr
    Set cr=Server.CreateObject("MSWC.ContentRotator") 
    response.write(cr.GetAllContent("text/textads.txt"))
    %>

Kết quả xuất ra: