asp下载问题

response.Buffer=true
response.AddHeader "content-disposition","Attachment;filename=1.doc"
set files=server.CreateObject("adodb.stream")
files.type=1
files.mode=3
files.open
files.loadfromfile(server.MapPath("1.doc"))
response.Charset="utf-8"
response.BinaryWrite files.read()
response.Flush()
files.close
set files=nothing

请问各位以上代码有什么错误吗？为什么都不能成功下载word,xls之类的文件，原文件是好的，但通过程序下载下来的，都打开乱码，请问为什么啊？。