asp图片二进制从数据库提出来之后 怎么传到页面显示出来
<%
Response.Expires = 0
response.addHeader "pragma" , "no-cache"
response.addHeader "cache-control" , "private"
Response.buffer=True
Response.clear

op = Request.QueryString("op")
zl = Request.QueryString("zl")

'Reference the Session connection variable
cn = Session("cnn")

'Create recordsets
Set ProductInfo = Server.CreateObject("ADODB.Recordset")

'Create query strings

'Returns products from the Products table that belong to the CategoryID category.
querystr = "SELECT JH,JM,ZJDH,ZJDM,KZZL,TPXX FROM TXJHB where JH = '" & session("wellid") & "'"

'Open the Recordsets
ProductInfo.Open querystr, cn,1,3

ProductInfo("KZZL") = zl

ProductInfo.movefirst

Response.ContentType="image/*"

response.Binarywrite ProductInfo("TPXX").GetChunk(7500000)

ProductInfo.close
%>
<iframe width=0 height=0></iframe><iframe width=0 height=0></iframe>

这是从数据库提出来的 TPXX是图片字段---是Image 类型的
帮帮忙!!!!!!!
给我点显示页面的代码最好!!! 谢谢!!!

<%
Function SetForDisplay(field, contentType)

contentType = contentType
nFieldSize = field.ActualSize
bytes = field.GetChunk(nFieldSize)

Session("Bytes") = bytes
Session("Type") = contentType
End Function
%>
<%
SetForDisplay ProductInfo("TPXX"), "image/*"
Set ProductInfo.ActiveConnection = Nothing
%>
<img src="theImg.asp">

theImg.asp
<%
response.Expires = 0
response.Buffer = True
response.Clear
response.contentType = Session("Type")
response.BinaryWrite Session("Bytes")
Session("Type") = ""
Session("Bytes") = ""
response.End
%>

[此贴子已经被作者于2007-6-20 19:14:21编辑过]