二进制存取图片

二进制存取图片，二进制存取数据库图片，二进制读取图盘，二进制图片的读取，二进制图片的存储

图片数据存入数据库：

　　　　sqlstr="select * from "&tbname&" where id is null"

　　　　set rs=server.createobject("adodb.recordset")

　　　　rs.Open sqlstr,conn,1,3

　　　　rs.AddNew ()

　　　　rs("title")=title

　　　　rs("filename")=filename

　　　　rs("filetype")=filetype

　　　　rs("thelevel")=thelevel

　　　　rs("uploaddate")=date()

　　　　rs("uploadip")=request.ServerVariables("REMOTE_ADDR")

　　　　rs("contenttype")=contenttype

　　　　rs("data").AppendChunk (binstr)

　　　　rs("size")=size

　　　　rs("offset")=offset

　　　　rs.Update

　　　　rs.Close()



读取显示：

　　rs.Open sqlstr,conn,3

　　if not rs.EOF then

　　　　　　contenttype=rs("contenttype")

　　　　　　binstr=rs("data").GetChunk(rs("size")+rs("offset"))

　　　　　　if rs("offset")=1 then

　　　　　　　　binstr=midb(binstr,2)

　　　　　　end if

　　　　　　if instr(contenttype,"text/")=1 or _

　　　　　　　 instr(contenttype,"image/")=1 or _

　　　　　　　 instr(contenttype,"application/msword")=1 then

　　　　　　　　response.contenttype=trim(contenttype)

　　　　　　　　response.binarywrite binstr

　　　　　　else

　　　　　　　　response.addheader "Content-Disposition","attachment;

　　　　　　　　filename="""&rs("filename")&""""

　　　　　　　　response.contenttype=trim(contenttype)

　　　　　　　　response.binarywrite binstr

　　　　　　end if

　　　　　　if request("preview")<>"yes" then

　　　　　　　　sqlstr="update "&tbname&" set downtimes=downtimes+1

　　　　　　　　where id="&fileid

　　　　　　　　conn.Execute sqlstr

　　　　　　end if

　　end if

说明：

对于超长的二进制数据（如图像数据）要使用fieldname.AppendChunk() 和

fieldname.GetChunk()来读写。