今日收获：图片数据的存和取示例

　　图片数据存入数据库：
　　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()来读写。