バイナリを読み込んで出力するには、ADODB.Stream オブジェクトを使用するだけです。
ADODB.Stream MSDN ライブラリを参照してください:
http://msdn.microsoft.com/en-us/library/ms675032(VS.85).aspx
Experts Exchange からも見つけた例を次に示します。
Function ReadBinaryFile(strFileName)
on error resume next
Set oStream = Server.CreateObject("ADODB.Stream")
if Err.Number <> 0 then
ReadBinaryFile=Err.Description
Err.Clear
exit function
end if
oStream.Type = 1
oStream.Open
oStream.LoadFromFile strFileName
if Err.Number<>0 then
ReadBinaryFile=Err.Description
Err.Clear
exit function
end if
ReadBinaryFile=oStream.Read
oStream.Close
set oStream = nothing
if Err.Number<>0 then ReadBinaryFile=Err.Description
End Function