Page Counter コンポーネントは、Web ページが開かれた回数を数えて表示する PageCounter オブジェクトを作成します。PageCounter オブジェクトは、一定の間隔でヒット数をテキストファイルに書き込み、サーバーがシャットダウンした場合でもデータが失われないようにします。Page Counter コンポーネントは、内部の Central Management オブジェクトを使用して、アプリケーション内の各ページが開かれた回数を記録します。
Server.CreateObject メソッドを使用してページ上に PageCounter オブジェクトのインスタンスが作成されると、その PageCounter オブジェクトは、指定された Web ページの現在のヒット数を Central Management オブジェクトから取得します。その後は、PageCounter オブジェクトが公開するメソッドでオブジェクトを操作できます。
詳しくは以下
Counters コンポーネントは、Counters オブジェクトを作成します。このオブジェクトは、任意の数のカウンタの作成、格納、インクリメント、および取得を行います。
詳しくは以下
Content Rotator コンポーネントは ContentRotator オブジェクトを作成します。
Content Rotator コンポーネントについて詳しく説明します。
(PWS4 IIS4 IIS5)
WriteLine — ファイル書き込み処理
object.WriteLine( [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 |
(PWS4 IIS4 IIS5)
WriteBlankLines — ファイルに改行の書き込み処理
object.WriteBlankLines ( 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 |
(PWS4 IIS4 IIS5)
Write — ファイル書き込み処理
object.Write ( 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 |