28,406
社区成员
发帖
与我相关
我的任务
分享一个很有意思的问题！
IE浏览网页时，在网页中的链接上单击鼠标右键弹出的快捷菜单上有一个“目标另存为 ......”选项，选择这个选项会弹出一个文件下载窗口.
问题是：现在我知道一个链接，如何实现当用户浏览网页时，自动弹出文件下载窗口
提示用户下载链接所指的文件？
问题是：现在我知道一个链接，如何实现当用户浏览网页时，自动弹出文件下载窗口
提示用户下载链接所指的文件？
...全文
请发表友善的回复…
发表回复
neweb 2001-12-25
- 打赏
- 举报
找到一段有用的代码，你自己研究一下：
<%
Const ForReading=1
Const TristateTrue=-1 "Unicode
Const FILE_TRANSFER_SIZE=16384 "16k
"Use the following line for IIS4/PWS - this is the default for IIS5
Response.Buffer = True
Function TransferFile(path, mimeType, filename)
Dim objFileSystem, objFile, objStream
Dim char
Dim sent
send=0
TransferFile = True
Set objFileSystem = Server.CreateObject("Scripting.FileSystemObject")
Set objFile = objFileSystem.GetFile(Path)
Set objStream = objFile.OpenAsTextStream(ForReading, TristateTrue)
Response.AddHeader "content-type", mimeType
response.AddHeader "Content-Disposition","attachment;filename="&filename
Response.AddHeader "content-length", objFile.Size
Do While Not objStream.AtEndOfStream
char = objStream.Read(1)
Response.BinaryWrite(char)
sent = sent + 1
If (sent MOD FILE_TRANSFER_SIZE) = 0 Then
Response.Flush
If Not Response.IsClientConnected Then
TransferFile = False
Exit Do
End If
End If
Loop
Response.Flush
If Not Response.IsClientConnected Then TransferFile = False
objStream.Close
Set objStream = Nothing
Set objFileSystem = Nothing
End Function
Dim path, mimeType, sucess, filename
filename = "help.gif"
path = "C:\Inetpub\wwwroot\help.gif"
mimeType = "application/x-msdownload"
sucess = TransferFile(path, mimeType, filename)
Response.End
%>
<%
Const ForReading=1
Const TristateTrue=-1 "Unicode
Const FILE_TRANSFER_SIZE=16384 "16k
"Use the following line for IIS4/PWS - this is the default for IIS5
Response.Buffer = True
Function TransferFile(path, mimeType, filename)
Dim objFileSystem, objFile, objStream
Dim char
Dim sent
send=0
TransferFile = True
Set objFileSystem = Server.CreateObject("Scripting.FileSystemObject")
Set objFile = objFileSystem.GetFile(Path)
Set objStream = objFile.OpenAsTextStream(ForReading, TristateTrue)
Response.AddHeader "content-type", mimeType
response.AddHeader "Content-Disposition","attachment;filename="&filename
Response.AddHeader "content-length", objFile.Size
Do While Not objStream.AtEndOfStream
char = objStream.Read(1)
Response.BinaryWrite(char)
sent = sent + 1
If (sent MOD FILE_TRANSFER_SIZE) = 0 Then
Response.Flush
If Not Response.IsClientConnected Then
TransferFile = False
Exit Do
End If
End If
Loop
Response.Flush
If Not Response.IsClientConnected Then TransferFile = False
objStream.Close
Set objStream = Nothing
Set objFileSystem = Nothing
End Function
Dim path, mimeType, sucess, filename
filename = "help.gif"
path = "C:\Inetpub\wwwroot\help.gif"
mimeType = "application/x-msdownload"
sucess = TransferFile(path, mimeType, filename)
Response.End
%>
neweb 2001-12-25
- 打赏
- 举报
可能也不行，看来要在浏览器上打主意了。
我已经帮不了你了
我已经帮不了你了
yigenhuochai 2001-12-20
- 打赏
- 举报
To neweb(永不言败):
怎么做？举例说明一下，可以吗？
怎么做？举例说明一下，可以吗？
yigenhuochai 2001-12-20
- 打赏
- 举报
To free_doctor(苹果妹妹):
这个....打包不太好吧！
这个....打包不太好吧！
xf_david921 2001-12-19
- 打赏
- 举报
可以通过写入数据库的方法.再读出.
yigenhuochai 2001-12-19
- 打赏
- 举报
To cpplus(百合):
象这样：<body onload="../test.txt"> 吗？这样是有错误的呀！
象这样：<body onload="../test.txt"> 吗？这样是有错误的呀！
cpplus 2001-12-19
- 打赏
- 举报
在BODY的 onload 里指定这个文件，
<body onload="YourFileName or YourFileURL">
这样可以了吗？
<body onload="YourFileName or YourFileURL">
这样可以了吗？
neweb 2001-12-19
- 打赏
- 举报
文本文件？我倒。。。
还好不是 HTML 文件，提供一个思路，把http的头的 content_type 由 text/html 改为其他类型，比如 application/dll 等
还好不是 HTML 文件，提供一个思路，把http的头的 content_type 由 text/html 改为其他类型，比如 application/dll 等
free_doctor 2001-12-19
- 打赏
- 举报
那就打包
yigenhuochai 2001-12-19
- 打赏
- 举报
To neweb(永不言败)
可惜是文本文件:)
可惜是文本文件:)
neweb 2001-12-19
- 打赏
- 举报
打开一个指向文件的窗口就行了：
<body onload="window.open('../text.zip','_blank')">
<body onload="window.open('../text.zip','_blank')">
