有人会吗？关于修改ACCESS库中的图片字段！急用！

Question

修改
set rs=server.CreateObject("adodb.recordset")
sql="SELECT * FROM 会议室 where id='" & request("id") & "'"
rs.Open sql,conn,3,3
rs("图片").appendchunk Image
rs.Update
rs.Close

Answer 1

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 rec=server.createobject("ADODB.recordset")
   sql="select * from admin"
   rec.Open sql,conn,1,3
if rec.eof then rec.addnew
rec("pic").appendchunk mydata
rec.update
rec.close
set rec=nothing
set conn=nothing

Answer 2

to  okflight(flight) 
你这是增加，我说是根据指定记录修改

Answer 3

修改也一样—————————————————————————————————
┏━★━━◆━━★━┓ 
♂欢|◢ＣＳＤＮ◣|使♂ 　　　　　　　▲自由保存帖子，浏览，关注检测
┃迎|◥论坛助手◤|用┃ 　　　　　　　▲完善的ＣＳＤＮ客户端工具
┗━☆━━◇━━━☆┛　　　　　　　▲自动添加签名......让你更快，更爽，更方便地上CSDN...
http://www.csdn.net/expert/topic/573/573604.xml
http://www.chinaok.net/csdn/csdn.zip

Answer 4

问题是id不能传过来，原因是有以下语句
ta=request.binaryread(formsize)  
即在同一页中有request.binaryread后就不能有request

Answer 5

你说的修改是更新记录吗？如是的话，不要rec.addnew，最后加rec.update即可

Answer 6

下面这样就可以了，因为id不能用querystring的形式传过来，因为本页已经有语句request.binaryread语句，只有通过session或cookie传了<!--------#include file="conn.asp"---->
<%
FormSize = Request.TotalBytes
FormData = Request.BinaryRead( FormSize )function ImageUp(formsize,formdata)
bncrlf=chrb(13) & chrb(10) 
divider=leftb(formdata,instrb(formdata,bncrlf)-1)
datastart=instrb(formdata,bncrlf&bncrlf)+4
dataend=instrb(datastart+1,formdata,divider)-datastart
imageup=midb(formdata,datastart,dataend)
end functionImage=ImageUp (FormSize,Formdata) set rs=server.CreateObject("adodb.recordset")
sql="SELECT * FROM 会议室 where id="&<%=session("id")%>
rs.Open sql,conn,1,3rs("图片").appendchunk Image
rs.Update
rs.Closeresponse.contenttype="image/gif" 
response.binarywrite imageup(formsize,formdata) 
%>