一般，如果对于一个服务器端的EXCEL文件，当在浏览器里打开对应连接时，默认是直接在IE里调用EXCEL打开，而我想直接提示另存为，各位大侠，有和高招？？？ Thanks!

这样不太好吧，如果客户端没装EXCEL就麻烦了

不能用Response.Redirect 或用链接直接指向.xls文件。
可以通过ADO.Stream对象读出文件，然后发送给浏览器时设置MIME类型为二进制流格式，最后用Response.BinaryWrite输出。

<% strFileName="test.xsl" strFilePath="c:\inetpub\wwwroot\test.xsl" strFileSize=n '获取文件长度 Set objStream = Server.CreateObject("ADODB.Stream") '创建流对象 objStream.Open objStream.Type = adTypeBinary objStream.LoadFromFile strFilePath '装载要下载的文件 Response.AddHeader "Content-Disposition", "attachment; filename=" & strFileName '设置文件名 Response.AddHeader "Content-Length", strFileSize '设置文件长度 ' In a Perfect World, Your Client would also have UTF-8 as the default ' In Their Browser Response.Charset = "UTF-8" '设置编码类型 Response.ContentType = "application/octet-stream" '设置MIME类型 Response.BinaryWrite objStream.Read '输出到浏览器 Response.Flush

objStream.Close Set objStream = Nothing %> 此方法可以用来下载任何类型的文件。

[此贴子已经被作者于2005-5-28 12:14:38编辑过]

我试过啦,楼上的代码对于楼主的问题毫无帮忙
对我也没有帮忙,并没有实现下载Excel文件,结果还是用IE打开啦

把文件变成压缩包
呵呵

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编辑过]

楼主，是这样吗？

直接把扩展名改了不就OK


比如改成 *.exc

下载后改回来就OK了撒！！

这个是和客户端的设置有关的，如果客户端的系统中文件夹选项中的该文件类型的那个“下载后确认打开”的前面的勾如果打上就提示下载，否则直接调用相关程序打开~~