asp把图片存入并读取数据库

存入数据库的代码段：
<%
response.buffer=true
formsize=request.totalbytes
formdata=request.binaryread(formsize)
bncrlf=chrB(13)&chrB(10)
divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1)
datastart=instrb(formdata,bncrlf&bncrlf)+4
dataend=instrb(datastart+1,formdata,divider)-datastart
mydata=midb(formdata,datastart,dataend)
Set conn = Server.CreateObject("ADODB.Connection")connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &Server.MapPath ("book.mdb")
conn.Open connstr
set rec=server.createobject("ADODB.recordset")
rec.Open"SELECT * FROM guestbook where id is null",conn,1,3
rec.addnew
rec("img").appendchunk mydata
rec.update
rec.close
set rec=nothing
%>
另一个文件是showing.asp，则代码如下：

<% Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &Server.MapPath ("book.mdb")conn.Open connstr
set rec=server.createobject("ADODB.recordset")
strsql ="select * from guestbook where id ="&request.QueryString("id")
rec.open strsql,conn,1,1
Response.ContentType="image/*"
Response.BinaryWrite rec("img").getChunk(7500000)
rec.close
set rec=nothing
set conn=nothing
%>
显示的方法为<img src="showing.asp?id=XXX"/>

转载于:https://www.cnblogs.com/huixue/archive/2007/04/23/723339.html