ASP AdRotator
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
*
w3s.gif
http://www.w3cschool.cc
Free Tutorials from W3CSchool
50
xmlspy.gif
http://www.altova.com
XML Editor from Altova
50
*
w3s.gif
http://www.w3cschool.cc
Free Tutorials from W3CSchool
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
*
w3s.gif
...
WIDTH 468
HEIGHT 60
BORDER 0
*
w3s.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")) %> |