ASP - 저장된 이미지를 바이너리로 변환하여 보여주는 소스

<!-- 저장된 이미지를 바이너리로 변환하여 보여주는 소스 -->

<%

Set BinaryStream = CreateObject("ADODB.Stream")

set fs = Server.CreateObject("Scripting.FileSystemObject")

Set Fil = fs.GetFile("E:\file_upload\1.jpg") '절대경로

BinaryStream.Type = 1

BinaryStream.Open

BinaryStream.LoadFromFile Fil.path

Dim i

Const BlockSize = 1000

For i = 1 To BinaryStream.Size Step BlockSize

  Response.BinaryWrite BinaryStream.Read(BlockSize)

Next

'if Not BinaryStream.EOS Then Response.BinaryWrite

BinaryStream.Read

%>