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