ASP弹出下载提示框有关问题

ASP弹出下载提示框问题
dim strFile
strFile = "excel\13.xls"
response.ContentType = "application/OCTET-STREAM" 
response.AddHeader "content-disposition","attachment; filename="&strFile

弹出提示框后显示下载的文件名为excel_13.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"

------解决方案--------------------

引用:

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

那就把你那个xls读出来，用<table>输出到当前网页,就OK了。用OLE DB 连接那个excel/13.xls路径下的文件，就像连ACCESS数据库一样，只不过连接字符串不一样。网上很多例子