又是高分请教各位搞过文件上传的高手们，帮帮我！

[aragorn_chen]

有两个表（table1，table2），都有ole对象的字段，用来存放文件的。如果我想从table1某条记录中读出二进制文件，进而写进table2的某条记录中，程序应该怎么写呢？各位大虾，做一做以上的题目，把程序张贴出来，给我看看，行吗？谢谢啦。

[aragorn_chen]

怎么没人理我？呜呜呜呜.......

[foglee]

你用什么东西上传的？

[aragorn_chen]

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 connGraph=server.CreateObject("ADODB.connection")
connGraph.ConnectionString="driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("calendar.mdb") & ";uid=;PWD=;"
connGraph.Open
set rec=server.createobject("ADODB.recordset")
rec.Open "SELECT * FROM [images] where id is null",connGraph,1,3
rec.addnew
rec("img").appendchunk mydata
rec.update
rec.close
set rec=nothing
set connGraph=nothing
以上无组件上传！

[shadowkiss]

none-com update will be ok!

[aragorn_chen]

哎呀，到底是怎么做的呢？有谁帮帮我？

[hchxxzx]

按常规打开两个表，从第一个表读出OLD字段内容，再用APPENDCHUNK方法写进另一个表，如下程序所示
tu_size=rs("tu").ActualSize
rs1("tu").AppendChunk rs("tu").getChunk(tu_size)