Lightbox Info Board : SQLの窓

概要

IIS では、仮想ディレクトリを一つの「アプリケーション」として位置づけしています。その単位ごとに設定可能な環境スクリプトが global.asa です。

Application 変数は、その仮想ディレクトリ内全てで有効であり、Session の開始・終了で必要な作業を行なう事ができます

global.asa サンプル


<SCRIPT LANGUAGE=VBScript RUNAT=Server> 

' **********************************************************
' アプリケーション共通
' **********************************************************
Sub Application_OnStart

	Application("DSN") = "ASPMySQL"
	Application("DB") = "lightbox"
	Application("USER") = "root"
	Application("PASS") = ""
	Application("LOGIN_PATH") = "/asp/LOGIN/control.asp"

End Sub

' **********************************************************
' セッション開始
' **********************************************************
Sub Session_OnStart

	Session( "START" ) = Now

End Sub

' **********************************************************
' セッション終了
' **********************************************************
Sub Session_OnEnd


End Sub

</SCRIPT>

タイプライブラリ宣言

ASP では、ADO のお世話になる事が多いです。その場合、MSDN 等に書かれている定数を使用する事が多くなりますが、いちいち実際の値を調べるのは面倒なので、ADO の定義をそのまま「環境」に取り込む方法です。

正しく動作しているかどうかは以下のような記述を実行してみて下さい


<%　Response.Write adTypeBinary　%>

adTypeBinary　の値(1)が表示されます

上の宣言は、ADO 用で、下の宣言はファイルシステムオブジェクト(Scripting.FileSystemObject)用です


<!--METADATA TYPE="TypeLib" FILE="c:\Program Files\Common Files\System\ADO\msado25.tlb" -->
<!--METADATA TYPE="TypeLib" UUID="{420B2830-E718-11CF-893D-00A0C9054228}" -->
<SCRIPT LANGUAGE=VBScript RUNAT=Server> 

' **********************************************************
' アプリケーション共通
' **********************************************************
Sub Application_OnStart

	Application("DSN") = "ASPMySQL"
	Application("DB") = "lightbox"
	Application("USER") = "root"
	Application("PASS") = ""
	Application("LOGIN_PATH") = "/asp/LOGIN/control.asp"

End Sub

' **********************************************************
' セッション開始
' **********************************************************
Sub Session_OnStart

	Session( "START" ) = Now

End Sub

' **********************************************************
' セッション終了
' **********************************************************
Sub Session_OnEnd


End Sub

</SCRIPT>