关于文件下载

kingapex1

于 2004-08-11 14:35:00 发布

阅读量1.4k

点赞数

CC 4.0 BY-SA版权

分类专栏： ASP 文章标签： function javascript border action path

本文链接：https://blog.youkuaiyun.com/kingapex1/article/details/71284

ASP 专栏收录该内容

16 篇文章

订阅专栏

博客展示了使用JavaScript和相关代码实现图片下载与保存的功能。通过自定义函数，处理文件读取、响应设置等操作，实现点击链接下载图片，还可通过点击图片调用函数保存图片。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

<%
function dl(f,n)

on error resume next
Dim S
Set S=CreateObject("Adodb.Stream")
S.Mode=3
S.Type=1
S.Open
S.LoadFromFile(server.mappath(f))
if Err.Number>0 then
Response.Status="404"
else
Response.ContentType="application/*"
Response.AddHeader "Content-Disposition:","attachment; filename=" & n
Range=Mid(Request.ServerVariables("HTTP_RANGE"),7)
if Range="" then
   Response.BinaryWrite(S.Read)
else
   'S.position=Clng(Split(Range,"-")(0))
   Response.BinaryWrite(S.Read)
End if
end if
Response.End
end function

If request("action")="down" Then
call dl(request("path"),"aa.gif")
End If

%>
<img src=index.gif>
<a href=?action=down&path=index.gif>点击下载此图片</a>

<SCRIPT language=JavaScript>
function aa(tt)
{
var wp = window.open(tt.src,"","width=100,height=100");
wp.document.execCommand("saveAs");
}
</SCRIPT>
<IMG onclick=aa(this) alt=单击保存 src="../face/0001.gif" border=0>