28,391
社区成员
发帖
与我相关
我的任务
分享
Response.AddHeader "Content-Disposition", "attachment; filename=""123.xls"""
Sub DownLoadFile(filename,contenttype)
Dim fileContentType, stream, filePath
filePath=server.mappath(filename)
Set stream = Server.CreateObject("adodb.stream")
stream.Open
stream.Type = 1
stream.LoadFromFile filePath
Response.AddHeader "Content-Disposition", "attachment; filename=""" & fileName&""""
Response.AddHeader "Content-Length", stream.Size
Response.ContentType = contenttype
Response.BinaryWrite stream.read
Response.Flush
stream.Close
Set stream = Nothing
response.End
End Sub
DownLoadFile "excel\13.xls","application/OCTET-STREAM"