ASP AdRotator 組件

實例

簡單的 AdRotator 實例
本例展示：每當用戶訪問網站或者刷新一次頁面，如何使用 AdRotator 組件來顯示一幅不同的廣告圖像。
AdRotator - 圖片鏈接
本例展示：每當用戶訪問網站或者刷新一次頁面，如何使用 AdRotator 組件來顯示一幅不同的廣告圖像。此外，圖片本身就是鏈接。

ASP AdRotator 組件

每當用戶進入網站或刷新頁面時，ASP AdRotator 組件就會創建一個 AdRotator 對象來顯示一幅不同的圖片。

語法：

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

實例

假設我們有一個文件名為 "banners.asp"。它類似于這樣：

<html>
<body>
<%
set adrotator=Server.CreateObject("MSWC.AdRotator")
response.write(adrotator.GetAdvertisement("ads.txt"))
%>
</body>
</html>

文件 "ads.txt" 類似這樣：

*
codew3c.gif
http://www.codew3c.com/
Visit CodeW3C.com
80
microsoft.gif
http://www.microsoft.com/
Visit Microsoft
20

"ads.txt" 文件中星號下面的代碼定義了如何顯示這些圖像，鏈接地址，圖像的替換文本，在每百次點擊中的顯示幾率。我們可以看到，CodeW3C.com 圖片的顯示幾率是 80%，而 Microsoft 圖片的顯示幾率是 20%。

注釋：為了使這些鏈接在用戶點擊時可以正常工作，我們需要對文件 "ads.txt" 進行一點點小小的修改：

REDIRECT banners.asp
*
codew3c.gif
http://www.codew3c.com/
Visit CodeW3C.com
80
microsoft.gif
http://www.microsoft.com/
Visit Microsoft
20

轉向頁面會接收到名為 url 的變量的查詢字符串，其中含有供轉向的 URL。

注釋：如需規定圖像的高度、寬度和邊框，我們可以在 REDIRECT 下面插入這些代碼：

REDIRECT banners.asp
WIDTH 468 
HEIGHT 60 
BORDER 0 
*
codew3c.gif
...
...

最后要做的是把這些代碼加入文件"banners.asp"中：

<%
url=Request.QueryString("url")
If url<>"" then Response.Redirect(url)
%>
<html>
<body>
<%
set adrotator=Server.CreateObject("MSWC.AdRotator")
response.write(adrotator.GetAdvertisement("textfile.txt"))
%>
</body>
</html>

好了，這就是全部的內容！

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

AdRotator 組件的方法

GetAdvertisement 方法

返回在頁面中顯示廣告的 HTML。

<%
set adrot=Server.CreateObject("MSWC.AdRotator")
Response.Write(adrot.GetAdvertisement("ads.txt"))
%>