梅花老大，关于在客户端能不能实现一个图片的另存为的弹出框阿？

[nittystone]

我一直觉得只要想到的就能实现.

<input type=button value=保存 onclick=document.execCommand('SaveAs')>
<input type=button value=另存为 onclick=document.execCommand('Saveas',false,'c:\\test.htm')>
<OBJECT id=WebBrowser classid=CLSID:8856F961-340A-11D0-A96B-00C04FD705A2 height=0 width=0></OBJECT>
<input type=button value=另存为 onclick=document.all.WebBrowser.ExecWB(4,1)>
这几个都是网页的。。。如果是图片该怎么弄阿？

[nittystone]

提

[meizz]

I am sorry, 这个我不会

[nittystone]

收到,我测试一下哈..

[伟大de虫子]

用下面的asp程序可以实现：
使用方法：
把下面的程序另存为downimg.asp
再把图片与这个文件放在同一个目录下，然后在IE里输入：
http://xxxx.xxx.xxx/downimg.asp?file=图片名.jpg

(注：此程序有可能下载服务器上的任何文件，要小心使用，注意对要下载的东西进行判断，非图片文件一律不准下载)


---------------------------------------------------------------
<%
call downloadFile(Request("file"))

Function downloadFile(strFile)

strFile=Server.HTMLEncode(strFile)

If Right(strFile,4)<>".jpg" Or Right(strFile,4)<>".gif" Or InStr(strFile,"?")>0 Then
Response.Redirect "about:blank"
Response.End
End If

strFilename = server.MapPath(strFile)
Response.Buffer = True
Response.Clear
Set s = Server.CreateObject("ADODB.Stream")
s.Open
s.Type = 1
on error resume next

Set fso = Server.CreateObject("Scripting.FileSystemObject")
if not fso.FileExists(strFilename) then
Response.Redirect "about:blank"
Response.End
end if

' 获得文件大小
Set f = fso.GetFile(strFilename)
intFilelength = f.size

s.LoadFromFile(strFilename)
if err then
Response.Write("<h1>错误 </h1>" & err.Description & "<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
%>