<b>ASP编程实现文件直接下载</b>[网站编程]

在IE举行文档链接时,假如碰到OLE支持的文档,IE会自动调用呼应程式翻开它,有时刻这种功效并非我们所需的,固然我们可以提醒用户用鼠标右键-->"目标另存为...."号令来下载文档,但这样毕竟不太友好,本文描写了操纵FSO及Streammethod显现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  
%>