ASP实现文件直接下载

直接上代码啦：

<%@ language=vbscript codepage=65001%> 
<% 
'Filename must be input 
if Request("Filename")="" then 
response.write "<h1>Error:</h1>yige.org 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 
%>

相关文章

• ASP实现批量插入数据 2012/05/09
• ASP网站生成静态html页 2012/05/09
• ASP正则替换空格和回车符函数 2012/05/09
• FSO文件处理函数详解 2012/05/09
• asp中Byval/Byref区别 2012/05/09
• ASP遍历XML的例子 2012/05/09
• ASP的ubb函数 2012/05/08
• ASP正则提取href标签的值函数 2012/05/08
• ASP电话号码正则表达式函数 2012/05/08
• ASP四个电子邮箱验证函数 2012/05/08