整个CSDN真是没有人会了！！！！！

gxbhhp 2003-07-18 03:01:25

保存WORD：

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 RsOut=server.createobject("adodb.recordset")
SqlOut = "SELECT * FROM A_Test"
RsOut.open SqlOut, conn, 1, 3, 1

RsOut.AddNew

RsOut("images").appendchunk mydata

RsOut.update

set RsOut=nothing

读取WORD：

set rec=server.createobject("ADODB.recordset")

strsql="select images from A_Test where id=6"

rec.open strsql,conn,1,1

Response.ContentType = "application/msword"
Response.BinaryWrite rec("images").getChunk(7500000)
'这儿为什么会显示乱码呢？？
rec.close

set rec=nothing

如下：

邢唷?>? ?欹5@ 餜腟bjbj??.璛璛????????????80m菑鸑0蟢!k剉€8hO畫颯1\N篘bY篘蹚L?€8h0 C. 钀钑;N擽c歔耂N€8hO畫剉N篘:N術N珗€8h篘剉€8h篘,€8h篘擽(WGl茤€8hO畫a翂剉鶺@x N,孾b€8hJT0 D. (Wt^€8h鰁,d柷?u€8hO畫剉筫_鵞珗€8h篘蹚L?€8hY,貜擽(WT钀钑菓(uhQ茐覊€8h筫誰(360€8h)0sS钀钑匭蟢MOXT錧GW\O:N€8h篘,鵞邖諲 gT€鹼剉 N0 T0 N蹚L?€8h,€8h匭筟:N€8hJT-N ,{ N钀R h埌s膵鱊钀R 剉h?_ 菓(u?S T筫_0€8h篘\孾b剉€8h膵鱊魐0RTO篘Y TO篘俌済裇皊€8h篘ZP鶴 Np`S_剉菑貧b菑NO剉膵鱊,擽蔛鰁蹚L垷l悎N錘宼e0 E. 钀钑;N(b蟸t錘 N篘XT) 擽蔛鰁\€8h臽礠孴觺済JT鍂珗€8h篘,v^乢Bl珗€8h篘剉a翂,臺亯鰁颯頞€8hJT0钀钑;N擽\€8hb閪pg鶴b儚頬,錘蔛梺壨懝psQ鑜剉XT

我在这挂了整整四天了，还是没有人回答！！！

...全文