如何实现点击链接不用浏览器打开而是直接保存文件

如题所述

如果网站是asp 或者 jsp 可以加入一句类似的代码:

Response.ContentType = "application/octet-stream";

告诉浏览器,这个页面里面即使有 txt,doc,xls等文件的下载,你不许给我打开,给我保存!

如果是普通的网页,可以引入一个.js

lz可以看看这篇文章:

这篇文章所说的prototype.js文件在这里可以下载:

这应该是最简单的方法了,lz试试哦.

[补充:]

若要实现lz的意思
直接用 <a href="a.txt">down</a>的方法就很难处理了.

需要写一个 down.asp的文件来处理文件,保存到客户端.

download.asp 这么写

-------
<%

call downloadFile(replace(replace(Request("file"),"\",""),"/",""))

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 & " 文件不存在<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>" 文件下载错误 "<p>")
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

%>

-----------------

然后用 <a href="download.asp?file=a.txt">down</a>
的方式进行下载,

我问过几个做asp的同学,他们在这个问题也没太好的解决方案.
期待ls其他高人吧...

参考: 中第一楼的方法.

Saga.maodrc /2009-5-1 17:36:31

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/pvm48v7ps.html