程序代码：

<%
set connGraph=server.CreateObject("ADODB.connection")
connGraph.open "driver={Microsoft Access Driver (*.mdb)};DBQ="&server.MapPath("image.mdb")

str2=Str_filter(Request.Form("名称"))  

set rec=server.createobject("ADODB.recordset")
strsql="select img，name from images where id="&trim(request("id"))&""
rec.open strsql,connGraph,1,1
Response.ContentType = "image/*"
Response.BinaryWrite rec("img").getChunk(7500000)
rec("name")=str2
rec.close
set rec=nothing
set connGraph=nothing
%>