ASP AdRotator 組件
實例
- 簡單的 AdRotator 實例
- 本例展示：每當用戶訪問網(wǎng)站或者刷新一次頁面，如何使用 AdRotator 組件來顯示一幅不同的廣告圖像。
- AdRotator - 圖片鏈接
- 本例展示：每當用戶訪問網(wǎng)站或者刷新一次頁面，如何使用 AdRotator 組件來顯示一幅不同的廣告圖像。此外，圖片本身就是鏈接。
ASP AdRotator 組件
每當用戶進入網(wǎng)站或刷新頁面時，ASP AdRotator 組件就會創(chuàng)建一個 AdRotator 對象來顯示一幅不同的圖片。
語法：
<%
set adrotator=server.createobject("MSWC.AdRotator")
adrotator.GetAdvertisement("textfile.txt")
%>
實例
假設(shè)我們有一個文件名為 "banners.asp"。它類似于這樣：
<html%>
<body%>
<%
set adrotator=Server.CreateObject("MSWC.AdRotator")
response.write(adrotator.GetAdvertisement("ads.txt"))
%>
</body%>
</html%>
文件 "ads.txt" 類似這樣：
* w3school.gif http://chabaoo.cn/ Visit W3School 80 microsoft.gif http://www.microsoft.com/ Visit Microsoft 20
"ads.txt" 文件中星號下面的代碼定義了如何顯示這些圖像，鏈接地址，圖像的替換文本，在每百次點擊中的顯示幾率。我們可以看到，W3School 圖片的顯示幾率是 80%，而 Microsoft 圖片的顯示幾率是 20%。
注釋：為了使這些鏈接在用戶點擊時可以正常工作，我們需要對文件 "ads.txt" 進行一點點小小的修改：
REDIRECT banners.asp * w3school.gif http://chabaoo.cn/ Visit W3School 80 microsoft.gif http://www.microsoft.com/ Visit Microsoft 20
轉(zhuǎn)向頁面會接收到名為 url 的變量的查詢字符串，其中含有供轉(zhuǎn)向的 URL。
注釋：如需規(guī)定圖像的高度、寬度和邊框，我們可以在 REDIRECT 下面插入這些代碼：
REDIRECT banners.asp WIDTH 468 HEIGHT 60 BORDER 0 * w3school.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>
好了，這就是全部的內(nèi)容！
AdRotator 組件的屬性
Border 屬性
規(guī)定圍繞廣告的邊框的尺寸。
<%
set adrot=Server.CreateObject("MSWC.AdRotator")
adrot.Border="2"
Response.Write(adrot.GetAdvertisement("ads.txt"))
%>
Clickable 屬性
規(guī)定廣告本身是否是超級鏈接。
<%
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"))
%>