ASP实现文件直接下载

 

    在IE进行文档链接时,如果遇到OLE支持的文档,IE会自动调用相应程序打开它,有时候这种功能并不是我们所需的,虽然我们可以提醒用户用鼠标右键-->"目标另存为...."命令来下载文档,但这样毕竟不太友好,本文描述了利用FSO及Stream方法实现IE直接下载文档.
  
  <%@ language=vbscript codepage=65001%>
  
  <%
  ''Filename must be input
  if Request("Filename")="" then
  response.write "<h1>Error:</h1>Filename is empty!<p>"
  else
  call downloadFile(replace(replace(Request("Filename"),"/",""),"/",""))
  
  Function downloadFile(strFile)
  '' make sure you are on the latest MDAC version for this to work
  '' get full path of specified file
  strFilename = server.MapPath(strFile)
  
  '' clear the buffer
  Response.Buffer = True
  Response.Clear
  
  '' create stream
  Set s = Server.CreateObject("ADODB.Stream")
  s.Open
  
  '' Set as binary
  s.Type = 1
  
  '' load in the file
  on error resume next
  
  '' check the file exists
  Set fso = Server.CreateObject("Scripting.FileSystemObject")
  if not fso.FileExists(strFilename) then
  Response.Write("<h1>Error:</h1>"&strFilename&" does not exists!<p>")
  Response.End
  end if
  
  '' get length of file
  Set f = fso.GetFile(strFilename)
  intFilelength = f.size
  
  s.LoadFromFile(strFilename)
  if err then
  Response.Write("<h1>Error: </h1>Unknown Error!<p>")
  Response.End
  end if
  
  '' send the headers to the users Browse
  Response.AddHeader "Content-Disposition","attachment; filename="&f.name
  Response.AddHeader "Content-Length",intFilelength
  Response.CharSet = "UTF-8"
  Response.ContentType = "application/octet-stream"
  
  '' output the file to the browser
  Response.BinaryWrite s.Read
  Response.Flush
  
  '' tidy up
  s.Close
  Set s = Nothing
  
  End Function
  end if
  %>