<%
Response.ContentType = "image/JPEG"
 
'***********************************************************
'  画像コンテンツ作成サンプル
'***********************************************************
 
	' ------------------------------------------------------
	' Stream オブジェクト の作成
	Set Stream = Server.CreateObject("ADODB.Stream")
 
	' ------------------------------------------------------
	' Stream のオープン
	Stream.Open
 
	' Stream タイプの指定
	Stream.Type = 1		' StreamTypeEnum の adTypeBinary
 
	' 既存ファイルの内容を Stream に読み込む
	Stream.LoadFromFile Server.MapPath( "sample.jpeg" )
 
	' バイナリ型の Stream オブジェクトからを読み取って出力
	Response.BinaryWrite Stream.Read
 
	' Stream を閉じる
	Stream.Close
 
	' ------------------------------------------------------
	' Stream オブジェクト の解放
	Set Stream = Nothing
 
%>