ASP AdRotator
精华
小牛编辑
163浏览
2023-03-14
ASP AdRotator 组件
每当用户进入网站或刷新页面时，ASP AdRotator 组件就会创建一个 AdRotator 对象来显示一幅不同的图像。有关图像的信息是包含在一个文本文件中。
注释：AdRotator 在 Internet Information Server 7 (IIS7) 中不起作用。
语法
<%
set adrotator=server.createobject("MSWC.AdRotator")
adrotator.GetAdvertisement("textfile.txt")
%>
set adrotator=server.createobject("MSWC.AdRotator")
adrotator.GetAdvertisement("textfile.txt")
%>
ASP AdRotator 实例
假设我们有一个名为 "ads.txt" 的文件，如下所示：
REDIRECT banners.asp
*
gif
http://www.xnip.cn
Free Tutorials from XNIP
50
xmlspy.gif
http://www.altova.com
XML Editor from Altova
50
*
gif
http://www.xnip.cn
Free Tutorials from XNIP
50
xmlspy.gif
http://www.altova.com
XML Editor from Altova
50
在上面的文本文件中型号下面的行规定了要显示的图像的名称、超链接地址、图像的替换文本和每百次点击中的显示几率。
上述文本文件的第一行指定当访客点击图像时进行的动作。重定向页（banners.asp）将收到一个带有重定向 URL 的查询字符串。
提示：如需规定图像的高度、宽度和边框，您可以在 REDIRECT 下面插入如下代码：
REDIRECT banners.asp
WIDTH 468
HEIGHT 60
BORDER 0
*
gif
...
WIDTH 468
HEIGHT 60
BORDER 0
*
gif
...
"banners.asp" 文件如下所示：
实例
<%
url=Request.QueryString("url")
If url<>"" then Response.Redirect(url)
%>
<!DOCTYPE html>
<html>
<body>
<%
set adrotator=Server.CreateObject("MSWC.AdRotator")
response.write(adrotator.GetAdvertisement("textfile.txt"))
%>
</body>
</html>
url=Request.QueryString("url")
If url<>"" then Response.Redirect(url)
%>
<!DOCTYPE html>
<html>
<body>
<%
set adrotator=Server.CreateObject("MSWC.AdRotator")
response.write(adrotator.GetAdvertisement("textfile.txt"))
%>
</body>
</html>
演示实例 »
好了，以上就是全部的内容！
ASP AdRotator 属性
| 属性 | 描述 | 实例 |
|---|---|---|
| Border | 规定围绕广告的边框的尺寸。 | <% set adrot=Server.CreateObject("MSWC.AdRotator") adrot.Border="2" Response.Write(adrot.GetAdvertisement("ads.txt")) %> |
| Clickable | 规定广告本身是否是超链接。 | <% set adrot=Server.CreateObject("MSWC.AdRotator") adrot.Clickable=false Response.Write(adrot.GetAdvertisement("ads.txt")) %> |
| TargetFrame | 显示广告的框架名称。 | <% set adrot=Server.CreateObject("MSWC.AdRotator") adrot.TargetFrame="target='_blank'" Response.Write(adrot.GetAdvertisement("ads.txt")) %> |
ASP AdRotator 方法
| 方法 | 描述 | 实例 |
|---|---|---|
| GetAdvertisement | 返回在页面中显示广告的 HTML。 | <% set adrot=Server.CreateObject("MSWC.AdRotator") Response.Write(adrot.GetAdvertisement("ads.txt")) %> |