ASP AdRotator 組件
實(shí)例
- 簡(jiǎn)單的 AdRotator 實(shí)例
- 本例展示：每當(dāng)用戶訪問(wèn)網(wǎng)站或者刷新一次頁(yè)面，如何使用 AdRotator 組件來(lái)顯示一幅不同的廣告圖像。
- AdRotator - 圖片鏈接
- 本例展示：每當(dāng)用戶訪問(wèn)網(wǎng)站或者刷新一次頁(yè)面，如何使用 AdRotator 組件來(lái)顯示一幅不同的廣告圖像。此外，圖片本身就是鏈接。
ASP AdRotator 組件
每當(dāng)用戶進(jìn)入網(wǎng)站或刷新頁(yè)面時(shí)，ASP AdRotator 組件就會(huì)創(chuàng)建一個(gè) AdRotator 對(duì)象來(lái)顯示一幅不同的圖片。
語(yǔ)法：
<%
set adrotator=server.createobject("MSWC.AdRotator")
adrotator.GetAdvertisement("textfile.txt")
%>
實(shí)例
假設(shè)我們有一個(gè)文件名為 "banners.asp"。它類似于這樣：
<html%>
<body%>
<%
set adrotator=Server.CreateObject("MSWC.AdRotator")
response.write(adrotator.GetAdvertisement("ads.txt"))
%>
</body%>
</html%>
文件 "ads.txt" 類似這樣：
* w3school.gif http://www.dbjr.com.cn/ Visit W3School 80 microsoft.gif http://www.microsoft.com/ Visit Microsoft 20
"ads.txt" 文件中星號(hào)下面的代碼定義了如何顯示這些圖像，鏈接地址，圖像的替換文本，在每百次點(diǎn)擊中的顯示幾率。我們可以看到，W3School 圖片的顯示幾率是 80%，而 Microsoft 圖片的顯示幾率是 20%。
注釋：為了使這些鏈接在用戶點(diǎn)擊時(shí)可以正常工作，我們需要對(duì)文件 "ads.txt" 進(jìn)行一點(diǎn)點(diǎn)小小的修改：
REDIRECT banners.asp * w3school.gif http://www.dbjr.com.cn/ Visit W3School 80 microsoft.gif http://www.microsoft.com/ Visit Microsoft 20
轉(zhuǎn)向頁(yè)面會(huì)接收到名為 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ī)定廣告本身是否是超級(jí)鏈接。
<%
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 方法
返回在頁(yè)面中顯示廣告的 HTML。
<%
set adrot=Server.CreateObject("MSWC.AdRotator")
Response.Write(adrot.GetAdvertisement("ads.txt"))
%>