为什么我下面的代码下载WORD文件可以,下载EXCEL文件就不行啊?各老大帮帮忙,急的很,解决马上给分

zzsdream 2004-11-21 09:03:14
FileName = "word/111.xls" '要下载的文件EXCEL文件名为111.xls,在word 目录里面

Response.Clear
Response.ContentType = "APPLICATION/OCTET-STREAM"
Response.AddHeader "Content-Disposition","attachment;filename="&FileName

Set Stream = server.CreateObject("ADODB.Stream")
Stream.Type = adTypeBinary
Stream.Open
Stream.LoadFromFile Server.MapPath(FileName)
While Not Stream.EOS
Response.BinaryWrite Stream.Read(1024 * 64)
Wend
Stream.Close
Set Stream = Nothing
Response.Flush
Response.End
...全文
239 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
zzsdream 2004-11-22
  • 打赏
  • 举报
回复
谢谢各位,问题解决
hazen 2004-11-22
  • 打赏
  • 举报
回复
你用的Response.ContentType = "application/octet-stream"这种实现下载的方式
与Response.ContentType = "application/vnd.ms-excel"不同

Response.Clear()
Response.Buffer = True
Response.Charset = "gb2312"
Response.AddHeader "Content-Disposition", "attachment;filename=xx.xls"
Response.ContentType = "application/vnd.ms-excel"
Response.Write(content)
Response.Flush()



超级大笨狼 2004-11-22
  • 打赏
  • 举报
回复
全都改成我给你那段就 可以了,非常好用。
zzsdream 2004-11-22
  • 打赏
  • 举报
回复
麻烦两位老大帮我看看
zzsdream 2004-11-22
  • 打赏
  • 举报
回复
我已经这样做了,但还是不行,我发现是

Response.ContentType = "application/octet-stream"
Response.AddHeader "content-disposition", "attachment; filename=" & FileName

的问题,至于

Response.ContentType = "application/vnd.ms-excel"

改为也还是不行,真不知道是为什么
超级大笨狼 2004-11-22
  • 打赏
  • 举报
回复

<%
Dim Stream
Dim Contents
Dim FileName
Dim FileExt
Const adTypeBinary = 1
FileName = Request.QueryString("FileName")
if FileName = "" Then
Response.Write "无效文件名."
Response.End
End if
' 下面是不希望下载的文件
FileExt = Mid(FileName, InStrRev(FileName, ".") + 1)
Select Case UCase(FileExt)
Case "ASP", "ASA", "ASPX", "ASAX", "MDB"
Response.Write "受保护文件,不能下载."
Response.End
End Select
' 下载这个文件
Response.Clear
Response.ContentType = "application/octet-stream"
Response.AddHeader "content-disposition", "attachment; filename=" & FileName
Set Stream = server.CreateObject("ADODB.Stream")
Stream.Type = adTypeBinary
Stream.Open
Stream.LoadFromFile Server.MapPath(FileName)
While Not Stream.EOS
Response.BinaryWrite Stream.Read(1024 * 64)
Wend
Stream.Close
Set Stream = Nothing
Response.Flush
Response.End
%>
possible_Y 2004-11-21
  • 打赏
  • 举报
回复
"APPLICATION/OCTET-STREAM"改为“application/vnd.ms-excel”

28,390

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧