asp 实现文件下载功能下载文件不用IE打开就能直接下载,可以下载任文件.

<% 
  file=Request("file")
  call downloadFile(replace(replace(file,"",""),"/",""))
 
Function downloadFile(strFile) 
  ' make sure you are on the latest MDAC version for this to work 
' ------------------------------------------------------------- 
  if mid(strfile,1,5)="http:" then
   response.write("请到这里"&file&"下载")
   'response.redirect(file)
   exit function
   end if
 
' 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("

Error:

" & strFilename & " does not exist

") 
   Response.End 
   end if 
 
 
' get length of file 
   Set f = fso.GetFile(strFilename) 
   intFilelength = f.size 
 
 
   s.LoadFromFile(strFilename) 
   if err then 
   Response.Write("

Error:

" & err.Description & "

") 
   Response.End 
   end if 
 
' send the headers to the users browser 
   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 
 
%>

注明本站原创转载请注明来自:www.111com.net