明凯博客

关注网站技术,一个特立独行的程序员

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 if

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("<

Pages: 1 2 3

, , , ,

相关文章

发表评论

电子邮件地址不会被公开。 必填项已用*标注