【www.bbyears.com--网页编辑器下载】

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:

") 
   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:

") 
   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.111cn.net

本文来源：http://www.bbyears.com/shipin/12600.html