ASP AdRotator コンポーネント

例

シンプルな AdRotator 例
この例では、ユーザーがウェブサイトにアクセスしたりページをリフレッシュすると、AdRotator コンポーネントを使用して異なる広告画像を表示する方法を説明します。
AdRotator - 画像リンク
この例では、ユーザーがウェブサイトにアクセスしたりページをリフレッシュすると、AdRotator コンポーネントを使用して異なる広告画像を表示する方法を説明します。また、画像自体がリンクです。

ASP AdRotator コンポーネント

ユーザーがウェブサイトにアクセスしたりページをリフレッシュすると、ASP AdRotator コンポーネントは表示するための異なる画像を持つ AdRotator オブジェクトを作成します。

语法：

<%
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/
CodeW3C.com を訪問
80
microsoft.gif
http://www.microsoft.com/
Microsoft を訪問
20

"ads.txt"ファイルに星号の下のコードは、これらの画像の表示方法、リンク先の URL、画像の代替テキスト、百回クリックごとの表示確率を定義しています。CodeW3C.comの画像の表示確率は80%、Microsoftの画像の表示確率は20%です。

コメント：これらのリンクをユーザーがクリックしたときに正常に動作させるために、ファイル"ads.txt"を少し修正する必要があります：

REDIRECT banners.asp
*
codew3c.gif
http://www.codew3c.com/
CodeW3C.com を訪問
80
microsoft.gif
http://www.microsoft.com/
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"))
%>