ASP Content Rotator 组件 (ASP 3.0)

ASP Content Rotator 组件

ASP Content Rotator 组件创建一个 ContentRotator 对象，每当访客进入网站或刷新页面时，该对象就会显示一段不同的内容字符串。

有关内容字符串的信息是包含在一个名为内容目录文件（Content Schedule File）的文本文件中。

内容字符串可包含 HTML 标签，这样您就可以显示 HTML 可呈现的任何类型的内容：文本、图像、颜色或者超链接。

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

每当访客浏览网页时，下面的实例就会显示不同的内容。

首先，创建一个名为 "textads.txt" 的文本文件，并把它放置在名为 "text" 的子文件夹中。

"textads.txt":

%% #3
<h2>This is a great day!!</h2>

%% #3
<img src="smiley.gif">

%% #4
<a href="http://www.runoob.com">Visit RUNOOB</a>

请注意在每个内容字符串起始位置的 # 号码。这个号码是一个可选的参数，用来指示 HTML 内容字符串的相对权重。在上面的文本文件中，Content Rotator 有十分之三的几率显示第一个内容字符串，有十分之三的几率显示第二个内容字符串，有十分之四的几率显示第三个字符串。

然后，创建一个 ASP 文件，并插入下面的代码：

方法	描述	实例
ChooseContent	获取并显示某个内容字符串。	<% dim cr Set cr=Server.CreateObject("MSWC.ContentRotator") response.write(cr.ChooseContent("text/textads.txt")) %> 输出：
GetAllContent	取回并显示文本文件中所有的内容字符串。	<% dim cr Set cr=Server.CreateObject("MSWC.ContentRotator") response.write(cr.GetAllContent("text/textads.txt")) %> 输出： This is a great day!! Visit RUNOOB

方法

描述

实例

ChooseContent

获取并显示某个内容字符串。

<%
dim cr
Set cr=Server.CreateObject("MSWC.ContentRotator")
response.write(cr.ChooseContent("text/textads.txt"))
%>

输出：

GetAllContent

取回并显示文本文件中所有的内容字符串。

<%
dim cr
Set cr=Server.CreateObject("MSWC.ContentRotator")
response.write(cr.GetAllContent("text/textads.txt"))
%>

输出：