ASP (非.NET) 通过 oo4o 读取 oracle long raw 类型数据图片

<%

Response.Buffer = True

Response.ExpiresAbsolute = Now() - 1

Response.Expires = 0

Response.cachecontrol = "no-cache"

Response.ContentType = "image/jpeg"

Dim OraSession

Dim OraDatabase

Dim Chunksize, BytesRead, CurChunkEx

Dim desc

Set OraSession = CreateObject("OracleInProcServer.XOraSession")

Set OraDatabase = OraSession.OpenDatabase("report","report", 0)

set part = OraDatabase.CreateDynaset ("select image from GICOM_SIGNATURE_name where rownum = 1",0)

BytesRead = 0

'Reading in 64K chunks

ChunkSize= 65280

Do

BytesRead = part.Fields("image").GetChunkByteEx(CurChunkEx ,i * ChunkSize, ChunkSize)

if BytesRead > 0 then

Response.BinaryWrite CurChunkEx

end if

Loop Until BytesRead < ChunkSize

'Cleanup, remove all local refrences

Set OraSession = Nothing

Set Oradatabase = Nothing

Set part= Nothing

%>

然后 html 通过 <img src="" /> 通过调用这个asp文件显示成图片