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

aragorn_chen 2002-07-26 02:07:49
有两个表(table1,table2),都有ole对象的字段,用来存放文件的。如果我想从table1某条记录中读出二进制文件,进而写进table2的某条记录中,程序应该怎么写呢?各位大虾,做一做以上的题目,把程序张贴出来,给我看看,行吗?谢谢啦。
...全文
102 6 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
hchxxzx 2002-07-28
  • 打赏
  • 举报
回复
按常规打开两个表,从第一个表读出OLD字段内容,再用APPENDCHUNK方法写进另一个表,如下程序所示
tu_size=rs("tu").ActualSize
rs1("tu").AppendChunk rs("tu").getChunk(tu_size)
aragorn_chen 2002-07-26
  • 打赏
  • 举报
回复
哎呀,到底是怎么做的呢?有谁帮帮我?
shadowkiss 2002-07-26
  • 打赏
  • 举报
回复
none-com update will be ok!
aragorn_chen 2002-07-26
  • 打赏
  • 举报
回复
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
以上无组件上传!
foglee 2002-07-26
  • 打赏
  • 举报
回复
你用什么东西上传的?
aragorn_chen 2002-07-26
  • 打赏
  • 举报
回复
怎么没人理我?呜呜呜呜.......

28,409

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧