サンプルコードで学ぶASP » Applicationオブジェクト

Application_OnStart

admin — Wed, 05 Aug 2009 09:59:31 +0000

(PWS4 IIS4 IIS5)
Application_OnStart — アクセス時に最初に実行

Application_OnStart
<処理>
End Sub

説明

Application_OnStart イベントは、最初の新規セッションの作成前、つまり Session_OnStart イベントの前に発生します。Application 組み込みオブジェクトおよび Server 組み込みオブジェクトのみ利用できます。Session オブジェクト、Request オブジェクト、または Response オブジェクトを Application_OnStart イベントスクリプトの中で参照すると、エラーが発生します。

例1.Application_OnStartの例

1
2
3
4
5

<%
Sub Application_OnStart
Application("NumberofVisitors") = 0
End Sub
%>

Application_OnStart イベントでは、Application.Lock メソッドと Application.Unlock メソッドを使用する必要はありません。これは、このイベントが、アプリケーションを起動する最初のセッションによって 1 回だけ呼び出されるためです。

Application_OnEndイベントも参照ください。

Application_OnEnd

admin — Wed, 05 Aug 2009 09:42:24 +0000

(PWS4 IIS4 IIS5)
Application_OnEnd — アプリケーション終了時に実行

Application_OnEnd
<処理>
End Sub

説明

Application_OnEnd イベントは、Session_OnEnd イベントの後で、アプリケーションが終了するときに発生します。Application 組み込みオブジェクトおよび Server 組み込みオブジェクトのみ利用できます。

例1.Application_OnEndの例

1
2
3
4
5

Application_OnEnd スクリプトの中で MapPath メソッドを呼び出すことはできません。

Application_OnStartイベントも参照ください。

Unlock

admin — Wed, 05 Aug 2009 09:40:52 +0000

Unlock

(PWS4 IIS4 IIS5)
Unlock — Applicationオブジェクトのロックを解除

Application.Unlock

説明

Unlock メソッドは、Lock メソッドによってロックされた Application オブジェクトに格納されている変数を、ほかのクライアントが変更できるようにします。Unlock メソッドを明示的に呼び出さなかった場合、Web サーバーは、.asp ファイルが終了するか、またはタイムアウトになった時点で、ロックされていた Application オブジェクトのロックを解除します。

例1.Unlockの例

1
2
3
4
5
6
7
8
9
10

<%
Application.Lock
Application("NumVisits") = Application("NumVisits") + 1
Application("datLastVisited") = Now()

Application.Unlock
%>

This application page has been visited
<%= Application("NumVisits") %> times!

この例では、ロックされているオブジェクトを Unlock メソッドで解放し、次のクライアントが NumVisits の値をインクリメントできるようにしています。
※ アプリケーションの Lock メソッドは、累積されます。したがって、同じスクリプト内で Lock メソッドを複数回呼び出した場合は、Unlock メソッドも同じ回数だけ呼び出してアプリケーションを完全に解放する必要があります。これを行わなければ、スクリプトの実行が終了した後も、アプリケーションがロックされたままになってしまいます。

Lockメソッドも参照ください。

RemoveAll

admin — Wed, 05 Aug 2009 09:24:28 +0000

(IIS5)
RemoveAll — Contentコレクションから項目を全て削除

Application.Content.RemoveAll

説明

Application.Contents.RemoveAll メソッドは、Application.Contents コレクションに追加された項目をすべて削除します。

例1.RemoveAllの例

1
2
3

<%
Application.Contents.RemoveAll( )
%>

Removeメソッドも参照ください。

Remove

admin — Wed, 05 Aug 2009 09:23:43 +0000

(IIS5)
Remove — Contentコレクションから項目を削除

Application.Content.Remove( name | index )
name：削除する項目の識別子です。
index：一覧から削除する項目を示すインデックスオフセットです。

説明

Contents.Remove メソッドは、入力パラメータとして文字列または整数のいずれかの値をとります。入力パラメータが文字列の場合、メソッドは Contents コレクション内で名前が文字列と一致する項目を探し、削除します。入力パラメータが整数の場合、メソッドはコレクションの最初から数えて、対応する項目を削除します。

例1.Removeの例

1
2
3
4
5

<%
Application("strFirst")=("First thing")
Application("strSecond")=("Second thing")
Application.Contents.Remove(strFirst)
%>

この例は、2 つの項目を Application.Contents コレクションに追加して、最初に入力した方を削除します。

RemoveAllメソッドも参照ください。

Lock

admin — Wed, 05 Aug 2009 03:28:09 +0000

(PWS4 IIS4 IIS5)
Lock — Applicationオブジェクトをロック

Application.Lock

説明

Lock メソッドは、Application オブジェクトに格納されている変数をほかのクライアントが変更できないようにし、一度に 1 つのクライアントだけがアプリケーション変数に対する変更やアクセスを行えるようにします。Unlock メソッドを明示的に呼び出さなかった場合、サーバーは、.asp ファイルが終了するか、またはタイムアウトになった時点で、ロックされていた Application オブジェクトのロックを解除します。

例1.Lockの例

1
2
3
4
5
6
7
8
9

<%
Application.Lock
Application("NumVisits") = Application("NumVisits") + 1
Application("datLastVisited") = Now()
Application.Unlock
%>

This application page has been visited
<%= Application("NumVisits") %> times!

この例では、Lock メソッドを使用して、一度に複数のクライアントが変数 NumVisits にアクセスできないようにしています。アプリケーションをロックしなかった場合は、2 つのクライアントによって同時に変数 NumVisits の値がインクリメントされる可能性があります。

Unlockメソッドも参照ください。

Key

admin — Wed, 05 Aug 2009 03:26:52 +0000

(PWS4 IIS4 IIS5)
Key — Contentコレクション要素名を返す

Application.Content.Key ( Item )
Item:変数名/インデックス(取得する項目の名前を指定します。)

説明

Contentコレクション要素名を返します。

例1.Keyの例

1
2
3
4
5
6
7
8
9

<%
'アプリケーション変数[Key]に値をセットします。
Application("Item") = "あいうえお"
Application("Item2") = "あいうえお"

For Each j In Application.Contents.Key
Response.Write j
Next
%>

Contentsコレクション(Applicationオブジェクト) も参照ください。

Item

admin — Wed, 05 Aug 2009 03:25:25 +0000

(PWS4 IIS4 IIS5)
Item — Contentコレクション要素の値を返す

Application.Content.Item ( Key )
Key:変数名/インデックス(取得する項目の名前を指定します。)

説明

Contentコレクション要素の値を設定します。

例1.Itemの例

1
2
3
4
5

<%
'アプリケーション変数[Key]に値をセットします。
Application.Contents.Item("key") = "あいうえお"
Response.Write Application("key")
%>

Contentsコレクション(Sessionオブジェクト) も参照ください。

Count

admin — Wed, 05 Aug 2009 03:20:10 +0000

(PWS4 IIS4 IIS5)
Count — コレクション要素の数を返す

Application.Contents.Count

説明

コレクション中の要素を返します。Countプロパティは数を表示しますが、Keyプロパティではコレクションの要素名を確認することができます。 ASP3.0(IIS5.0)では、RemoveメソッドやRemoveAllメソッドを実行することで、追加した変数を削除することもできます。

例1.Countの例

1
2
3
4
5
6
7
8

<%
'アプリケーション変数をセットします。
For i = 0 to 3
Application("item" & i ) = "あいうえお"
Next
'コレクション要素の数を表示します。
Response.,Write Application.Contents.Count
%>

Remove,RemoveAllも参照ください。

StaticObjects

admin — Wed, 05 Aug 2009 03:18:09 +0000

(PWS4 IIS4 IIS5)
StaticObjects — Applicationオブジェクトを保持

Application.StaticObjects ( Key )
Key:変数名/インデックス(取得する項目の名前を指定します。)

説明

StaticObjects コレクションには、Application オブジェクトのスコープ内でタグを使用して作成されたすべてのオブジェクトが含まれます。StaticObjects コレクションを使用すると、オブジェクトの特定のプロパティの値を調べたり、コレクションに対して繰り返し処理を行って、すべての静的オブジェクトのプロパティを取得したりすることができます。

例1.StaticObjectsの例

1
2
3
4
5
6
7

<%
Dim strKey

For Each strKey In Application.StaticObjects
Response.Write strKey & " = (object)
"
Next
%>

ループ制御構造を使用すると、StaticObjects コレクションのすべての要素を対象として繰り返し処理を行うことができます。