为什么Response.BinaryWrite(tp)显示图片总是下载,或显示乱码
Set OraSession=CreateObject("OracleInProcServer.XOraSession")
Set OraDatabase=OraSession.DbOpenDatabase(strDataSource,strUserID&"/"&strPassWord,0)
'打开数据库显示图片
Set rs=OraDatabase.CreateDynaset("select * from t_gt_tp where gtnm=2",0)
if rs.eof then
Response.Write "none"
else
'取出数据
size=65280
i=0
do
tp=Rs.Fields("tp").DbGetChunk(I*Size,Size)
' 以rs记录集的Fields对象的DbGetChunk方法在循环中读出数据
'Response.write Text
get_Size=Lenb(tp)
' 算出每次取出数据的详细字节数
I=I+1
Response.Write I
Response.End
Loop until get_size<Size
Response.Write i
'Response.End
Response.ContentType = "image/*"
'tp=lenB(rs("tp").GetChunk(0,20000))
'Response.Write tp
'Response.BinaryWrite(MIDB(rs("content").GetChunk(0,20000) ,1,k ))
Response.Write "???"
Response.BinaryWrite(tp)
end if
Response.Write "???"
set rs = nothing