狂战斧 叠加:用asp显示数据库中图片

来源:百度文库 编辑:高考问答 时间:2024/05/04 19:11:12
<title>显示图片</title>
<%
set connGraph=server.CreateObject("ADODB.connection")
connGraph.ConnectionString="driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("images.mdb") & ";uid=;PWD=;"
connGraph.Open
set rec=server.createobject("ADODB.recordset")
strsql="select img from images where id=" & trim(request("id"))
rec.open strsql,connGraph,1,1
Response.ContentType = "images/*"
Response.BinaryWrite rec("img").getChunk(7500000)
rec.close
set rec=nothing
set connGraph=nothing
%>
以上是源代码,但是运行出错了
请哪位大侠帮忙解决一下,先谢谢了!!!

<%
dim id
id=request("id")
dbpath = server.mappath("images.mdb")
connstr = "driver={microsoft access driver (*.mdb)};dbq=" & dbpath
set conn = server.createobject("adodb.connection")
conn.open connstr
set rec=server.createobject("ADODB.recordset")
strsql="select img from [images] where id="&id
rec.open strsql,conn,1,1

if not rsc.eof then

Response.ContentType = "images/*"
Response.BinaryWrite rec("img").getChunk(7500000)

end if

rec.close
set rec=nothing
set connGraph=nothing
%>

strsql="select img from images where id=" & trim(request("id"))&

http://zhidao.baidu.com/question/9103064.html