fso组件，读带有表格和图片的doc文档，出现乱码！急~~！！

[qfacy]

fso组件，读带有表格和图片的doc文档，出现乱码！为什么！我代码如下！
<%Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set cnrs = fso.OpenTextFile("e:\flash\2.doc", 1)
While Not cnrs.AtEndOfStream
rsline = cnrs.ReadLine
rsline = server.HTMLEncode(rsline)
Response.Write(rsline & "<br>")
Wend
%>

[DeltaCat]

那当然了, WORD 文档又不是 纯文本文件, 你 OpenTextFile 读出来, 当然有乱码了

[qfacy]

如何解决呢 ？

[possible_Y]

用stream读取，然后用Response.binarywrite输出

[iuhxq]

不能读吧？你想在服务器上处理WORD文件？

[qfacy]

二进制流这我不是很懂，能给个事例吗？分不够我在加

[qfacy]

回复人： iuhxq(小灰) ( ) 信誉：100
只要在本台机读取doc里的表格和图片就可以！

[Drowning]

contentType

[qfacy]

兄台，我是菜鸟！
能给基本思路吗？如果我用二进制流，我如何来解决，读取的是文档里的内容吗？我真是不懂，请各位帮忙！

[Drowning]

set s=server.CreateObject("ADODB.Stream")
s.open
s.type=1
s.LoadFromFile(server.MapPath("testWord.doc"))
response.Buffer=true
response.Clear
Response.ContentType = "application/msword"
response.BinaryWrite s.read
response.Flush
s.close
set s=nothing

[Drowning]

set s=server.CreateObject("ADODB.Stream")
s.open
s.type=1
s.LoadFromFile(server.MapPath("testWord.doc"))
response.Buffer=true
response.Clear
Response.ContentType = "application/msword"
response.BinaryWrite s.read
response.Flush
s.close
set s=nothing