<%
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
%>
|