ASP实现文件直接下载

• 2013-06-17
• 2399 View

在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
  %>