Response.Buffer=true
Response.CleariConcStr = "数据库连接字符串"
set iRe=server.createobject("adodb.recordset")
iSql="tb_img"
iRe.open iSql,iconcstr,1,1
Response.ContentType=ire("image/bmp")
Response.BinaryWrite iRe("photo")iRe.close
set iRe=Nothing