asp 从数据库中显示图片时,变成下载图片了?急。。

来源:百度知道 编辑:UC知道 时间:2024/05/14 08:18:02
显示图片代码如下:数据库是sql
<% dim conn
set conn=server.createobject("adodb.connection")
conn.open "Driver={SQL Server};server=PC-20090224CBHI;database=strategy management;"

set rec=server.createobject("ADODB.recordset")
rec.Open"SELECT * FROM pic where id=3",conn,1,1
if not rec.eof then
Response.ContentType="image/*"
picsize=rec.fields("pic").actualsize
Response.BinaryWrite (rec("pic").getChunk(picsize))
end if
%>
upfile。asp
<!--#include file="../conn.asp"-->
<%response.buffer=true
formsize=request.totalbytes
formdata=request.binaryread(formsize)
bncrlf=chrB(13)&chrB(10)
divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1)
datastart=instrb(formdata,bncrlf&bncrlf)+4
dataend=instrb(datastart+1,formdata,divider)-datastart
mydata=midb(formdata,data

<img src="pic.asp">

pic.asp
<% dim conn
set conn=server.createobject("adodb.connection")
conn.open "Driver={SQL Server};server=PC-20090224CBHI;database=strategy management;"

set rec=server.createobject("ADODB.recordset")
rec.Open"SELECT * FROM pic where id=3",conn,1,1
if not rec.eof then
Response.ContentType="image/*"
picsize=rec.fields("pic").actualsize
Response.BinaryWrite (rec("pic").getChunk(picsize))
end if
%>