ASP实现文件直接下载的方法
网页中直接输入文档链接时,如果遇到OLE支持的文档,浏览器会自动调用相应程序打开它。
有时候这种功能并不是我们所需的,虽然我们可以提醒用户用鼠标右键,目标另存为,来下载文档,但这样毕竟不太友好,这里介绍了利用FSO及Stream方法实现文件直接下载文档。
这样还可以隐藏文件的在服务器的链接地址,这点很重要。
'Filename must be input
if Request("Filename")="" then
response.write "Error:
Filename is empty!"
else
call downloadFile(replace(replace(Request("Filename"),"",""),"/",""))
end ifFunction 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("<SQL update select结合语句详解及应用 RPC服务器不可用的解决方法
相关文章