ASP 教程
1. ASP 教程 2. ASP 简介 3. 在自己的 PC 上运行 ASP 4. ASP 语法 5. ASP 变量 6. ASP 程序 7. ASP 表单 8. ASP Cookies 9. ASP Session 对象 10. ASP Application 对象 11. ASP 引用文件 12. ASP Global.asa 13. ASP 使用 CDOSYS 发送电子邮件 14. ASP Response 对象 15. ASP Request 对象 16. ASP Server 对象 17. ASP ASPError 对象 18. ASP FileSystem 对象 19. ASP TextStream 对象 20. ASP Drive 对象 21. ASP File 对象 22. ASP Folder 对象 23. ASP Dictionary 对象 24. ASP ADO 25. ASP AdRotator 26. ASP Browser Capabilities 27. ASP Content Linking 28. ASP Content Rotator 29. ASP – AJAX 与 ASP 30. ASP 快速参考 31. ASP 总结 32. ASP 实例

ASP AdRotator

ASP AdRotator 组件


ASP AdRotator 组件

每当用户进入网站或刷新页面时,ASP AdRotator 组件就会创建一个 AdRotator 对象来显示一幅不同的图像。有关图像的信息是包含在一个文本文件中。

注释:AdRotator 在 Internet Information Server 7 (IIS7) 中不起作用。

语法

<%
set adrotator=server.createobject("MSWC.AdRotator")
adrotator.GetAdvertisement("textfile.txt")
%>


ASP AdRotator 实例

假设我们有一个名为 "ads.txt" 的文件,如下所示:

REDIRECT banners.asp
*
.gif
http://www.55mianshi.com
Free Tutorials from
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
...

"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>

演示实例 »

好了,以上就是全部的内容!


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"))
%>