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"

------解决方案--------------------
探讨

还有 Response.AddHeader "Content-Disposition", "attachment; filename=""" & fileName&""""
我把文件改成当前目录下的，但下载后的文件是HTML的原文件，是怎么回事？