在网页中如何实现右键点击超级连接中“目标另存为...“功能？

[CHENJUXIANG]

在网页中,右键点击超级连接时弹出一个菜单，其中有一项为“目标另存为...“，请问“目标另存为“是如何实现的？

[gamestar1]

IE自带的，寒一下！
<a href="xxx.asp">下载</a>

[mjpclab]

document.execCommand('SaveAs')
==============
<input type=button onclick="document.execCommand('SaveAs');">

[hxnet]

我顶！

[fashchina]

好象IE本身就有的呀

[CHENJUXIANG]

to mjpclab(我是大猫猫啊 mjpclab.8u8.com) :
document.execCommand('SaveAs')是将当前页面保存下来。我想把超级连接中连接的内容另存下来。

[笨笨兔兔兔兔兔]

script language="vbscript">
dim fso, myFile, xml

set fso = CreateObject("Scripting.FileSystemObject")


xml = "<?xml version=""1.0"" encoding=""gb2312""?>" & vbCrLf

' 得到某文件夹及其子孙的列表
function GetChildren(folderPath)
dim f, fd, self, result

set self = fso.GetFolder(folderPath)

result = "<folder name='" & self.Name & "' path='" & self.Path & "'>" & vbCrLf

for each fd in self.SubFolders
if (fd.Attributes and 2) = 0 then
result = result & GetChildren(fd.Path) & vbCrLf
end if
next

for each f in self.Files
if (f.Attributes and 2) = 0 then
result = result & "<file name='" & f.Name & "' path='" & f.Path & "'/>" & vbCrLf
end if
next

result = result & "</folder>"

GetChildren = result

end function

sub writeFile()
set myFile = fso.CreateTextFile(file.value, true)
xml = xml & GetChildren(folder.value)
myFile.Write xml
myFile.Close
set myFile = nothing
alert("输出完毕！")
end sub

[华之瓯越]

怕了你了，微软已经为你开发好了

[笨笨兔兔兔兔兔]

忽然想起来了，你在超链后的页面中onload事件中就用大猫猫说的就好了，

[cghdenglu]

up

[超级大笨狼]

<%
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
%>

[nchen123]

liuxiaoyi666(兔子) 这段脚本我好眼熟？

[凯晰叶子]

上面的代码不错，正好我能用上！！！

谢谢了！！

学习中

[CHENJUXIANG]

to superdullwolf(超级大笨狼,每天要自强):
文件下载完后，我在你的代码Set Stream = Nothing
后加了这样一句：response.write("<script>window.close();</script>").但是不能执行，有什么办法可以关闭本窗口吗？

[ryuginka]

learning

[nchen123]

CHENJUXIANG(DD), 这么做是行不通的， 因为前面输出的是文件的流。 不可能在允许你输出 <script> 这样的内容。

你的做法一开始就不对， 应该是这样， 在下载文件的超级链接那里， 就指向本页的一个大小为 0 的 iframe, 这样， 就看不到弹出的下载窗体了， 也就不存在关闭的问题。

[nchen123]

兔子那段好像是我写的

[nchen123]

这一段不是我写的，

sub writeFile()
set myFile = fso.CreateTextFile(file.value, true)
xml = xml & GetChildren(folder.value)
myFile.Write xml
myFile.Close
set myFile = nothing
alert("输出完毕！")
end sub

[lmxw]

強人多啊