showimg.asp

来自「一个名为YY音乐世界的音乐网站源码,可以直接部署使用」· ASP 代码 · 共 15 行

<%
Set conn=Server.CreateObject("ADODB.CONNECTION")
msgdata="DBQ="+server.mappath("imagesa.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
conn.open msgdata
set rec=server.createobject("ADODB.recordset")
strsql="select img from images where id=" & trim(request("id"))
rec.open strsql,msgdata,1,1
Response.ContentType = "image/*"
Response.BinaryWrite rec("img").getChunk(7500000)
rec.close
set rec=nothing
conn.close
set conn=nothing
%>