如何控制在点击"下载"链接时直接弹出保存对话框，而不是在网页上打开PDF？

2003-12-11 06:43:55 3.4k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

谷歌浏览器设置PDF文件下载的方法通过以上步骤，你可以轻松地在谷歌浏览器中设置PDF文件的下载选项，确保你能够顺利下载所需的PDF文件。这些设置不仅提高了用户的使用体验，还为你提供了更多的灵活性和控制力。希望本文能够帮助你解决在使用谷歌浏览器时遇到的PDF文件下载问题，并让你的工作和学习更加高效和便捷。阅读详情

我们网页上有一些PDF文件，用户点击下载时总是在IE中打开PDF，但是这种方式总是会遇到不能打开的情况，好的方式是先保存然后用Acrobat reader打开，请问有什么办法控制不让其在网页上打开而是直接调用保存的对话框保存？
（在不使用ZIP或RAR等压缩文件的情况下）

...全文

如何破解网页PDF下载限制？解决打印空白问题的实战技巧本文深入剖析网页PDF下载限制与打印空白问题的成因，重点解析PDF.js技术原理。提供两大实战技巧：通过浏览器开发者工具抓取真实PDF地址实现直接下载，以及修改页面代码解除打印封锁。同时介绍启用MHTML保存、使用下载扩展及虚拟打印等进阶方案，助您高效获取所需文档。阅读详情

laoluo

ASP 28,401 成员 356,940 内容

+ 关注 + 加入社区

切换为时间正序

laoluo 2003-12-11

打赏
举报

正在试，一定给各位好心的大哥们加分。

zhuomaocn 2003-12-11

打赏
举报

再来一个
下面是一个ASP解决方案：

文件名:Download.asp

<%
Dim Stream
Dim Contents
Dim FileName
Dim FileExt
Const adTypeBinary = 1
FileName = Request.QueryString("FileName")
if FileName = "" Then
Response.Write "无效文件名."
Response.End
End if
' 下面是不希望下载的文件
FileExt = Mid(FileName, InStrRev(FileName, ".") + 1)
Select Case UCase(FileExt)
Case "ASP", "ASA", "ASPX", "ASAX", "MDB"
Response.Write "受保护文件,不能下载."
Response.End
End Select
' 下载这个文件
Response.Clear
Response.ContentType = "application/octet-stream"
Response.AddHeader "content-disposition", "attachment; filename=" & FileName
Set Stream = server.CreateObject("ADODB.Stream")
Stream.Type = adTypeBinary
Stream.Open
Stream.LoadFromFile Server.MapPath(FileName)
While Not Stream.EOS
Response.BinaryWrite Stream.Read(1024 * 64)
Wend
Stream.Close
Set Stream = Nothing
Response.Flush
Response.End
%>
使用：Download.asp?FileName=/Files/MY.doc
把你的DOC文件放到根目录Files下，你也可以放到其它地方了。

如：
<A HREF="Download.asp?FileName=/Files/MY.doc">点击下载WORD文档</A>

孟子E章 2003-12-11

打赏
举报

<%
Response.ContentType = "application/octet-stream"
Response.AddHeader "Content-Disposition","attachment; filename=xxx.pdf"
response.binarywrite getBinaryFile(Server.MapPath("xxx.pdf"))
function getBinaryFile(fileSpec)
Dim adTypeBinary
adTypeBinary = 1
Dim oStream
set oStream = server.createobject("ADODB.Stream")
oStream.Open
oStream.Type = adTypeBinary
oStream.LoadFromFile fileSpec
getBinaryFile= oStream.read
set oStream=nothing
end function
%>

zhuomaocn 2003-12-11

打赏
举报

稍微改一下就差不多了

dim StrFile,StrFilename
dim IntFilelength
dim Range,length
dim s,f
dim ErrNo,ErrDes

StrFile=request.QueryString.Item("filename")
if StrFile = "" then
response.Redirect "message.asp?ErrNo=3"

else
StrFilename = server.MapPath(StrFile)
if instr(StrFilename,"\temp\") then
else
response.Redirect "message.asp?ErrNo=0&ErrDes=" & StrFile
end if
'Response.Buffer = True
'Response.Clear
Set s = Server.CreateObject("ADODB.Stream")
s.Type = 1
s.Mode=3
s.Open
on error resume next
Set fso = Server.CreateObject("Scripting.FileSystemObject")
if not fso.FileExists(strFilename) then
set fso=nothing
s.close
set s= nothing
response.Redirect "message.asp?ErrNo=0"
end if

Set f = fso.GetFile(strFilename)
IntFilelength = f.size
s.LoadFromFile(strFilename)
if err then
set fso=nothing
s.close
set s= nothing
set f=nothing
ErrNo = Err.Number
ErrDes = Err.Description
response.Redirect "message.asp?ErrNo=" & ErrNo & "&ErrDes=Download<br/>" & ErrDes
end if
Response.ContentType = "application/octet-stream"
Response.AddHeader "Content-Disposition", "attachment; filename=" &f.name
Response.CharSet = "UTF-8"
Range=Mid(Request.ServerVariables("HTTP_RANGE"),7)
if Range<>"" then
length=Clng(Split(Range,"-")(0))
intFilelength=intFilelength-length
s.position=length
end if
Response.AddHeader "Content-Length", intFilelength
Response.BinaryWrite s.Read
'Response.Flush
s.Close
set fso=nothing
set f=nothing
Set s = Nothing

end if

laoluo 2003-12-11

打赏
举报

xzq686：
rar与exe是会提示保存，但是安装了acrobat reader之后下载PDF就会在网页上直接打开，但是PDF的插件与IE配合有问题，总是不能打开。

laoluo 2003-12-11

打赏
举报

楼上的老兄能不能提得更清楚一点，我现在就是打不到这样的代码。
谢谢。

xzq686 2003-12-11

打赏
举报

zhuomaocn 2003-12-11

打赏
举报

这个是和本机设置有关。

在explorer-〉工具 ->文件夹选项 ->文件类型

找到pdf后缀的文件，然后在详细设定里，把下载后打开需要确认的勾钩上。

这样就会出现下载对话框了。

当然自己可以这样设，不可能让每个用户都这样，这时候就不能使用默认的下载方式了。
只能自己写代码来下载，搜索一下这边的下载代码很多的。

lions911 2003-12-11

打赏
举报

好象设置什么MIME之类的，你去GOOGLE搜索一下MIME或者在本版搜索一下

如何控制在点击"下载"链接时直接弹出保存对话框，而不是在网页上打开PDF？

相关推荐