3초기억력

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

플밍_ASP

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

잠수콩 2011. 3. 25. 11:47
336x280(권장), 300x250(권장), 250x250, 200x200 크기의 광고 코드만 넣을 수 있습니다.


<!-- 저장된 이미지를 바이너리로 변환하여 보여주는 소스 -->
<%
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
%>
Comments