广告的相对权值。
例如,如果Rotator Schedule文件包含3个广告,其impressions分别设为2、3和5,则第一个广告占用20%的显示时间,第二个占用30%的显示时间,第三个占用50%的显示时间。
示例
下面的脚本演示是如何使用Rotator Schedule文件显示各种广告以及如何包含重定向文件。
---ADROT.TXT---
REDIRECT /scripts/adredir.asp
WIDTH 440
HEIGHT 60
BORDER 1
*
http://kabaweb/ads/homepage/chlogolg.gif
/uploadfile/201210/17/3593750460.gif
-Sponsored by Flyteworks20
http://kabaweb/ads/homepage/ismodemlg.gif
http:// www.proelectron.com/28.8
internal PC modem, only $99 80
http://kabaweb/ads/homepage/spranklg.gif
http://www.clocktower.com/The
#1 Sports site on the net 10
重定向文件是用户创建的文件。它通常包含用来解析由 AdRotator 对象发送的
查询字符串的脚本并将用户重定向到与用户所单击的广告所相关的URL。
用户也可以将脚本包含进重定向文件中,以便统计单击某一特定广告的用户的数目并将这一信息保存到服务器上的某一文件中。
示例
下面的示例将用户重定向到广告客户的主页。
---ADREDIR.ASP---
<% Response.Redirect(Request.QueryString(url)) %>
AdRotator 对象有下列属性:
一.Border
二.Clickable
三.TargetFrame
1.Border 属性允许用户指定显示广告时四周是否带边框。
语法
Border = size
参数
size
指定显示的广告四周的边框宽度。其默认值在 Rotator Schedule 文件的文件头中设置。
示例
下面的例子显示不带边框的广告。
<% Set ad = Server.CreateObject(MSWC.AdRotator) ad.Border = 0 %>
<%= ad.GetAdvertisement(/ads/adrot.txt) %>
2.Clickable
Clickable 属性允许用户指定是否将广告作为超链接显示。
语法
Clickable = value
参数
value
指定广告是否为超链接。此参数可为下列值之一。默认值是TRUE。值意义:TRUE 将广告作为超链接显示。
FALSE 将广告不作为超链接显示。
示例
下面的示例只将广告作为图像显示,而不是作为超链接。
<% Set ad = Server.CreateObject(MSWC.AdRotator) ad.Clickable = FALSE %>
<%= ad.GetAdvertisement(/ads/adrot.txt) %>
3.目标框架
TargetFrame 属性指定链接将被装入的目标框架。该属性完成的功能等价于 HTML 语句中的 TARGET 参数。
语法
TargetFrame = frame
参数
frame
指定用来显示广告框架的名称。该参数也可以是一个 HTML 框架关键字, 例如 _TOP、_NEW、_CHILD、_SELF、_PARENT 或 _BLANK。默认值是 NO FRAME。
示例
下面的例子显示框架 AdFrame中的广告。
<% Set ad = Server.CreateObject(MSWC.AdRotator) ad.TargetFrame = AdFrame %>
<%= ad.GetAdvertisement(/ads/adrot.txt) %>
AdRotator 对象只有一个方法.GetAdvertisement
GetAdvertisement 方法从 Rotator Schedule 文件中获取下一个广告。每次运行脚本时,例如当用户打开或刷新一页时,此方法会获取下一个安排的广告。
语法
GetAdvertisement(rotationSchedulePath)
参数
rotationSchedulePath
指定 Rotator Schedule 文件相对于虚拟目录的位置。例如,若物理路径为 C:\\Inetpub\\Wwwroot\\Ads\\Adrot.txt(其中Wwwroot 是 / 虚拟目录)则应指定路径 \\Ads\\Adrot.txt。
返回值
返回在当前页中显示广告的 HTML。
示例
下面的示例从 Adrot.txt 文件中获取广告,此文件位于 /Ads/ 虚拟目录下。
<% Set NextAd = Server.CreateObject(MSW