サンプルコードで学ぶASP » リファレンス

InStrRev

admin — Mon, 12 Apr 2010 13:24:15 +0000

InStrRev — ある文字列の中から指定した文字列を最後から検索し、最初に見つかった文字列の開始位置を返します。

構文

InStr (haystack, needle, [,start] [,mode])

パラメータ

haystack: 入力文字列
needle: 検索する文字列
start: 検索する開始位置を指定します。
この引数を省略した場合は文字列の最後から検索します
mode: 省略可能です。文字列比較モードを指定します。”vbBinaryCompare” 又は “0″ を指定するとバイナリモードで比較を行い、大文字小文字を区別します。”vbTextCompare” 又は “1″ を指定するとテキストモードで比較を行い、大文字小文字を区別しません。デフォルトはバイナリモードで比較します。

戻り値

パラメータの値	戻り値
haystackが空文字（”"）	Null
haystackがNull	0
needleが空文字（”"）	startを返します。
needleがNull	Null
needleが見つからない	0
needleが見つかった	見つかった位置を返します。
startがhaystackの長さより大きい	0

説明

文字列が見つかった場合は、開始位置を数値で返します。文字列が見つからなかった場合は 0またはnullが返されます。

例

VBScript

1
2
3
4
5
6
7

Dim str1,str2
str1 = "今日は晴れています。やっぱり晴れは良いですね。"
If InStrRev(str1,"晴れ") > 0 Then
Response.Write "晴れ"
Else
Response.Write "晴れ以外"
End If

InStr

admin — Sat, 10 Apr 2010 05:49:19 +0000

InStr — ある文字列の中から指定した文字列を検索し、最初に見つかった文字列の開始位置を返します。

構文

InStr ([start, ] haystack, needle [, mode])

パラメータ

start: 検索する開始位置を指定します。
この引数を省略した場合は文字列の先頭から検索します
haystack: 入力文字列
needle: 検索する文字列
mode: 省略可能です。文字列比較モードを指定します。”vbBinaryCompare” 又は “0″ を指定するとバイナリモードで比較を行い、大文字小文字を区別します。”vbTextCompare” 又は “1″ を指定するとテキストモードで比較を行い、大文字小文字を区別しません。デフォルトはバイナリモードで比較します。

戻り値

パラメータの値	戻り値
haystackが空文字（”"）	0
haystackがNull	0
needleが空文字（”"）	startを返します。
needleがNull	Null
needleが見つからない	0
needleが見つかった	見つかった位置を返します。
startがhaystackの長さより大きい	0

説明

文字列が見つかった場合は、開始位置を数値で返します。文字列が見つからなかった場合は 0またはnullが返されます。

例

VBScript

1
2
3
4
5
6
7

Dim str1,str2
str1 = "今日は晴れています"
If InStr(str1,"晴れ") > 0 Then
Response.Write "晴れ"
Else
Response.Write "晴れ以外"
End If

Page Counter コンポーネント

admin — Tue, 01 Sep 2009 02:11:24 +0000

Page Counter コンポーネントは、Web ページが開かれた回数を数えて表示する PageCounter オブジェクトを作成します。PageCounter オブジェクトは、一定の間隔でヒット数をテキストファイルに書き込み、サーバーがシャットダウンした場合でもデータが失われないようにします。Page Counter コンポーネントは、内部の Central Management オブジェクトを使用して、アプリケーション内の各ページが開かれた回数を記録します。

Server.CreateObject メソッドを使用してページ上に PageCounter オブジェクトのインスタンスが作成されると、その PageCounter オブジェクトは、指定された Web ページの現在のヒット数を Central Management オブジェクトから取得します。その後は、PageCounter オブジェクトが公開するメソッドでオブジェクトを操作できます。

詳しくは以下

構文

Set oVar = Server.CreateObject( “MSWC.PageCounter” )

パラメータ

oVar: Server.CreateObject を呼び出して作成する PageCounter オブジェクトの名前を指定します。

メソッド

Hits: 指定された URL が開かれた回数を表示します。
PageHit: ヒット数をインクリメントします。
Reset: 指定されたページのヒット数を 0 に設定します。

例

1
2
3
4
5
6
7
8
9

<%
Set MyPageCounter = Server.CreateObject( "MSWC.PageCounter" )
HitMe = MyPageCounter.Hits
If HitMe = 1000000 Then
%>
You are the lucky 1,000,000th Customer!!!

<% Else %>
Sorry, you are customer #<% = HitMe %>

<% End If %>

Counters コンポーネント

admin — Tue, 01 Sep 2009 02:09:18 +0000

Counters コンポーネントは、Counters オブジェクトを作成します。このオブジェクトは、任意の数のカウンタの作成、格納、インクリメント、および取得を行います。

詳しくは以下

カウンタは永続的な値で、整数を含んでいます。カウンタを操作するには、Counters オブジェクトの Get メソッド、Increment メソッド、Set メソッド、および Remove メソッドを使用します。作成したカウンタは、削除するまで持続します。

カウンタの値は、ページヒットなどのイベントで自動的には増加しません。Set メソッドおよび Increment メソッドを使用して、手動でカウンタを設定またはインクリメントする必要があります。

カウンタはスコープの制限を受けません。いったんカウンタを作成すると、サイト上の任意のページからカウンタの値を取得したり操作したりできます。たとえば、Page1.asp というページで hits という名前のカウンタの値をインクリメントして表示し、別の Page2.asp というページで hits の値をインクリメントする場合、どちらのページも同じカウンタの値をインクリメントすることになります。Page1.asp にヒットして hits の値を 34 にインクリメントした場合、Page2.asp にヒットすると hits の値は 35 にインクリメントします。次に Page1.asp にヒットすると、hits の値は 36 にインクリメントします。

すべてのカウンタは、単一のテキストファイル、Counters.txt に格納されます。このファイルは、counters.dll ファイルと同じディレクトリに配置されています。

説明

サイト上では 1 つだけ Counters オブジェクトを作成するようにしてください。1 つの Counters オブジェクトだけで、任意の数のカウンタを作成できます。

注 Windows 95 以降のインターネットインフォメーションサービスでは、Counters コンポーネントは、既定の仮想ディレクトリ内の Global.asa ファイルで既に指定されています。Counters.Get、Counters.Increment、Counters.Remove、および Counters.Set を呼び出すことで、コンポーネントが作成する Counters オブジェクトを組み込みオブジェクトであるかのように使用できます。Counters オブジェクトの別のインスタンスを作成する必要はありません。

メソッド

Get: カウンタの値を返します。
Increment: カウンタの値を 1 つインクリメントします。
Remove: Counters.txt ファイルからカウンタを削除します。
Set: 指定した整数をカウンタの値に設定します。

Content Rotator コンポーネント

admin — Tue, 01 Sep 2009 02:07:16 +0000

Content Rotator コンポーネントは ContentRotator オブジェクトを作成します。

Content Rotator コンポーネントについて詳しく説明します。

このオブジェクトは、Web ページ上の HTML コンテンツ文字列を自動的に交換します。ユーザーが Web ページを要求するたびに、ContentRotator オブジェクトはコンテンツスケジュールファイルに指定された情報に基づいて、新しい HTML コンテンツ文字列を表示します。

コンテンツ文字列には HTML タグを使用できるため、テキスト、イメージ、ハイパーリンクなど、HTML で表現できるコンテンツはすべて表示できます。たとえば、Content Rotator コンポーネントを使用して、引用やハイパーリンクを日替わりで表示したり、Web ページが開かれるたびに本文と背景の色を変更したりできます。

構文

Set oVar = Server.CreateObject( “MSWC.ContentRotator” )
パラメータ

oVar: Server.CreateObject を呼び出して作成する ContentRotator オブジェクトの名前を指定します。

メソッド

ChooseContent: コンテンツ文字列を取得し、表示します。
GetAllContent: コンテンツスケジュールファイルのすべてのコンテンツ文字列を取得し、表示します。

説明

ContentRotator オブジェクトは、乱数ジェネレータを使用して、重み付けされたコンテンツ文字列の中から表示する文字列を選択するため、同じ文字列が繰り返し表示される場合があります。特に繰り返しが発生しやすいのは、コンテンツスケジュールファイル内のエントリが少ない場合、またはほかのエントリに比べ、特定のエントリの重み付けが著しく大きい場合です。

例

1
2
3
4

<%
Set Tip = Server.CreateObject( "MSWC.ContentRotator" )
Tip.ChooseContent( "/Tips/Content.txt" )
%>

AdRotator コンポーネント

admin — Tue, 01 Sep 2009 01:59:53 +0000

Ad Rotator コンポーネントは、Ad Rotator オブジェクトを作成します。

Ad Rotator コンポーネントについて詳しく説明します。

このオブジェクトは、Web ページ上の広告イメージを自動的に交換します。
ユーザーが Web ページを開いたり、Web ページを読み込み直すたびに、Ad Rotator コンポーネントは、ロテータスケジュールファイルに指定された情報に基づき、新しい広告を表示します。

また、各広告をクリックしたユーザー数を記録する事もできます。
そのためには、ロテータスケジュールファイルの URL パラメータを設定して、ユーザーをリダイレクトファイルに送ります。
このパラメータを指定すると、広告主の URL へのジャンプはすべて Web サーバーの利用状況のログに記録されます。

構文

Set AdRotator = Server.CreateObject( “MSWC.AdRotator” )

パラメータ

AdRotator: Server.CreateObject を呼び出して作成する AdRotator オブジェクトの名前を指定します。

プロパティ

Border: 広告を囲む枠のサイズを指定します。
Clickable: 広告がハイパーリンクかどうかを指定します。
TargetFrame: 広告を表示するフレームの名前を指定します。

メソッド

GetAdvertisement: データファイルから次に予定されている広告の指定を取得し、HTML 形式で返します。

例

1
2
3
4

<%
Set ad = Server.CreateObject( "MSWC.AdRotator" )
ad.GetAdvertisement( "/ads/adrot.txt" )
%>

上の例の出力は以下となります。

[html light="true"]

ALT= "Check out the new Technology Center"
WIDTH=440 HEIGHT=60 BORDER=1>

Other

admin — Tue, 01 Sep 2009 01:47:16 +0000

その他のコンポーネントについて説明します。

WriteLine

admin — Tue, 01 Sep 2009 01:45:14 +0000

(PWS4 IIS4 IIS5)
WriteLine — ファイル書き込み処理

構文

object.WriteLine( [string] )

パラメータ

object: TextStream オブジェクトを指定します。
string: 書き込む文字列を指定します。

戻り値

値を返しません。

説明

指定した文字列と改行文字をファイルに書き込みます。

例

JScript

1
2
3
4
5

var fso, f;
fso = new ActiveXObject("Scripting.FileSystemObject");
f = fso.CreateTextFile("c:\\testfile.txt", true);
f.WriteLine("これはテストです。");
f.Close();

VBScript

1
2
3
4
5
6
7
8
9
10

Function WriteLineToFile
Const ForReading = 1, ForWriting = 2
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:\testfile.txt", ForWriting, True)
f.WriteLine "Hello world!"
f.WriteLine "これはテストです。"
Set f = fso.OpenTextFile("c:\testfile.txt", ForReading)
WriteLineToFile = f.ReadAll
End Function

WriteBlankLines

admin — Tue, 01 Sep 2009 01:43:07 +0000

(PWS4 IIS4 IIS5)
WriteBlankLines — ファイルに改行の書き込み処理

構文

object.WriteBlankLines ( lines )

パラメータ

object: TextStream オブジェクトを指定します。
lines: 書き込む改行の数を指定します。

戻り値

値を返しません。

説明

指定された数の改行文字をファイルに書き込みます。

例

JScript

1
2
3
4
5
6
7
8
9
10
11
12
13
14

function WriteBlanksDemo()
{
var fso, f, r;
var ForReading = 1, ForWriting = 2;
fso = new ActiveXObject("Scripting.FileSystemObject");
f = fso.OpenTextFile("c:\\testfile.txt", ForWriting, true);
f.Write("Hello world!");
f.WriteBlankLines(2);
f.Write("JScript is fun!");
f.Close();
f = fso.OpenTextFile("c:\\testfile.txt", ForReading);
r = f.ReadAll();
return(r);
}

VBScript

1
2
3
4
5
6
7
8
9
10

Function WriteBlankLinesToFile
Const ForReading = 1, ForWriting = 2
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:\testfile.txt", ForWriting, True)
f.WriteBlankLines 2
f.WriteLine "Hello World!"
Set f = fso.OpenTextFile("c:\testfile.txt", ForReading)
WriteBlankLinesToFile = f.ReadAll
End Function

Write

admin — Tue, 01 Sep 2009 01:40:18 +0000

(PWS4 IIS4 IIS5)
Write — ファイル書き込み処理

構文

object.Write ( string )

パラメータ

object: TextStream オブジェクトを指定します。
string: 書き込む文字列を指定します。

戻り値

値を返しません。

説明

指定した文字列をファイルに書き込みます。
連続して文字列を書き込んだ場合、文字列間にスペースや区切り文字は挿入されず、続けて書き込まれます。
文字列の最後で改行する必要がある場合は、WriteLine メソッドを使用するかまたは文字列の最後に改行文字を入れてください。

例

JScript

1
2
3
4
5
6
7
8
9
10
11
12

function WriteDemo()
{
var fso, f, r
var ForReading = 1, ForWriting = 2;
fso = new ActiveXObject("Scripting.FileSystemObject")
f = fso.OpenTextFile("c:\\testfile.txt", ForWriting, true)
f.Write("Hello world!");
f.Close();
f = fso.OpenTextFile("c:\\testfile.txt", ForReading);
r = f.ReadLine();
return(r);
}

VBScript

1
2
3
4
5
6
7
8
9

Function WriteToFile
Const ForReading = 1, ForWriting = 2
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:\testfile.txt", ForWriting, True)
f.Write "Hello world!"
Set f = fso.OpenTextFile("c:\testfile.txt", ForReading)
WriteToFile = f.ReadLine
End Function