28,402
社区成员
发帖
与我相关
我的任务
分享高分请教高手关于文件的问题！
请教高手，如何以二进制的方式打开一个文件，并读出其中的二进制数据，交给Response.BinaryWrite输出？用FileSystemObject的TextStream好象做不到，清高手赐教！
...全文
请发表友善的回复…
发表回复
lu_yanfeng 2003-06-01
- 打赏
- 举报
谢谢possible_Y(◎)(◎)←(这是眼镜，不要想歪了)！
另外，请教一下doc的mime类型怎么写？
另外，请教一下doc的mime类型怎么写？
possible_Y 2003-06-01
- 打赏
- 举报
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set fl=fso.getfile("d:\xxx.jpg")
flsize=fl.size
flName=fl.name
Set fl=Nothing
Set fso=Nothing
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = 1
objStream.LoadFromFile "d:\xxx.jpg"
Response.AddHeader "Content-Disposition", "attachment; filename=" & flName
Response.AddHeader "Content-Length", flsize
Response.Charset = "UTF-8"
Response.ContentType = "image/jpeg"
Response.BinaryWrite objStream.Read
Set fl=fso.getfile("d:\xxx.jpg")
flsize=fl.size
flName=fl.name
Set fl=Nothing
Set fso=Nothing
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = 1
objStream.LoadFromFile "d:\xxx.jpg"
Response.AddHeader "Content-Disposition", "attachment; filename=" & flName
Response.AddHeader "Content-Length", flsize
Response.Charset = "UTF-8"
Response.ContentType = "image/jpeg"
Response.BinaryWrite objStream.Read
lu_yanfeng 2003-06-01
- 打赏
- 举报
十分紧急，请各位帮忙！！~~
