<%
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文件显示成图片