showimage.asp

大家好

<%
response.expires=0
response.buffer=true
response.clear
response.contenttype="image/jpeg"
DbPath = SERVER.MapPath("upload.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath
Set rs=conn.execute("select data,ContentType from upload where UploadID=cdbl('"&request("uploadid")&"')  ")
response.binarywrite rs("data")
response.buffer=false
response.end
%>