show.asp

来自「基于asp的 班级同学录主页源代码」· ASP 代码 · 共 17 行

<%
set connGraph=server.CreateObject("ADODB.connection")
connGraph.ConnectionString="driver={Microsoft Access Driver (*.mdb)};DBQ=" &server.MapPath("../db/pic.mdb") & ";uid=;PWD=;"
connGraph.Open
set rec=server.createobject("ADODB.recordset")
if trim(request("id"))<>"" then
strsql="select img from images where id=" & trim(request("id"))
else
strsql="select img from images where user='sysphoto'"
end if
rec.open strsql,connGraph,1,1
Response.ContentType = "image/*"
Response.BinaryWrite rec("img").getChunk(7500000)
rec.close
set rec=nothing
set connGraph=nothing
%>