| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 5138 人关注过本帖
标题:急急急急急急!如何在浏览器里不直接打开EXCEL,而是提示保存?
取消只看楼主 加入收藏
滚水六脚
Rank: 1
等 级:新手上路
帖 子:132
专家分:0
注 册:2004-8-16
收藏
 问题点数:0 回复次数:1 
急急急急急急!如何在浏览器里不直接打开EXCEL,而是提示保存?
一般,如果对于一个服务器端的EXCEL文件,当在浏览器里打开对应连接时,默认是直接在IE里调用EXCEL打开,而我想直接提示另存为,各位大侠,有和高招??? Thanks!
搜索更多相关主题的帖子: 浏览器 EXCEL 服务器 提示 保存 
2005-05-28 09:52
滚水六脚
Rank: 1
等 级:新手上路
帖 子:132
专家分:0
注 册:2004-8-16
收藏
得分:0 

Thanks,griefforyou ! 搞定,代码是: <% Dim strFilePathConst adTypeBinary = 1 strFilePath = "text/test.xls" Set objStream = Server.CreateObject("ADODB.Stream") objStream.Open objStream.Type = adTypeBinary objStream.LoadFromFile Server.MapPath(strFilePath) 'change the path if necessary Response.ContentType = "application/octet-stream" Response.AddHeader "Content-Disposition", "attachment; filename=留言--"&date()&".xls" '如果文件名固定,那就直接filename=文件名.doc,这个名字就是用户选“保存”时,出现的名字 Response.BinaryWrite objStream.Read Response.Flush objStream.Close Set objStream = Nothing '写完,释放对象 %> 请问把文件夹打包成压缩包怎么写?

我想连网站的图片也可以打包下载~!!

[此贴子已经被作者于2005-5-28 15:53:33编辑过]

2005-05-28 15:41
快速回复:急急急急急急!如何在浏览器里不直接打开EXCEL,而是提示保存?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.026872 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved