ASPチュートリアル

ASPホーム

WPチュートリアル

Webページの紹介 WebPages Razor Webページのレイアウト Webページフォルダ WebPages Global Webページフォーム Webページオブジェクト Webページファイル Webページデータベース Webページヘルパー WebPages WebGrid Webページチャート Webページの電子メール Webページのセキュリティ Webページの公開 Webページの例 Webページクラス

ASP.NET Razor

かみそりのイントロ かみそりの構文 Razor C#変数 Razor C#ループ Razor C#ロジック RazorVB変数 かみそりVBループ RazorVBロジック

ASPクラシック

ASPイントロ ASP構文 ASP変数 ASP手順 ASP条件文 ASPループ ASPフォーム ASPCookie ASPセッション ASPアプリケーション ASP #include ASP Global.asa ASP AJAX ASPメール ASPの例

ASPリファレンス

ASPVB関数 ASPVBキーワード ASP応答 ASPリクエスト ASPアプリケーション ASPセッション ASPサーバー ASPエラー ASPファイルシステム ASP TextStream ASPドライブ ASPファイル ASPフォルダー ASP辞書 ASP AdRotator ASP BrowserCap ASPコンテンツリンク ASPコンテンツローテーター ASPクイック参照

ADOチュートリアル

ADOイントロ ADOコネクト ADOレコードセット ADOディスプレイ ADOクエリ ADOソート ADO追加 ADOアップデート ADO削除 ADO Demo ADOスピードアップ

ADOオブジェクト

ADOコマンド ADO接続 ADOエラー ADOフィールド ADOパラメータ ADOプロパティ ADOレコード ADOレコードセット ADOストリーム ADOデータ型

ASPコンテンツローテーターコンポーネント(ASP 3.0)


ASPコンテンツローテーターコンポーネント

ASP Content Rotatorコンポーネントは、訪問者がページにアクセスまたは更新するたびに異なるコンテンツ文字列を表示するContentRotatorオブジェクトを作成します。

コンテンツスケジュールファイルと呼ばれるテキストファイルには、コンテンツ文字列に関する情報が含まれています。

コンテンツ文字列にはHTMLタグを含めることができるため、テキスト、画像、色、ハイパーリンクなど、HTMLで表現できるあらゆる種類のコンテンツを表示できます。

構文

<%
Set cr=Server.CreateObject("MSWC.ContentRotator")
%>

ASPコンテンツローテーターの例

次の例では、訪問者がWebページを表示するたびに異なるコンテンツを表示します。

まず、「textads.txt」という名前のテキストファイルを作成し、「text」という名前のサブフォルダーに配置します。

"textads.txt":

%% #3
<h2>This is a great day!!</h2>

%% #3
<img src="smiley.gif">

%% #4
<a href="https://www.w3schools.com">Visit W3Schools.com</a>

各コンテンツ文字列の先頭にある#numberに注意してください。この数値は、HTMLコンテンツ文字列の相対的な重みを示すオプションのパラメータです。上記のテキストファイルでは、コンテンツローテーターは1番目と2番目のコンテンツ文字列を10分の3の時間で表示し、3番目の文字列を10分の4の時間で表示します。

次に、ASPファイルを作成し、次のコードを挿入します。

<html>
<body>
<%
set cr=server.createobject("MSWC.ContentRotator")
response.write(cr.ChooseContent("text/textads.txt"))
%>
</body>
</html>



ASPコンテンツローテーターコンポーネントのメソッド

Method Description Example
ChooseContent Gets and displays a content string <%
dim cr
Set cr=Server.CreateObject("MSWC.ContentRotator")
response.write(cr.ChooseContent("text/textads.txt"))
%>

Output:

Smiley

GetAllContent Retrieves and displays all of the content strings in the text file <%
dim cr
Set cr=Server.CreateObject("MSWC.ContentRotator")
response.write(cr.GetAllContent("text/textads.txt"))
%>

Output:

This is a great day!!

Smiley

Visit W3Schools.com