InStrRev


InStr


Page Counter コンポーネント

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

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

詳しくは以下


Counters コンポーネント

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

詳しくは以下


Content Rotator コンポーネント

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

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


AdRotator コンポーネント

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

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


Other

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


WriteLine

(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

(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

(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