怎么实现不用右键，通过点击超链接下载图片！网易邮箱可以的。
怎么实现不用右键，通过点击超链接下载图片！
网易通过连接图片地址后家参数http://m238.mail.163.com/coremail/fcg/ldmsapp/Dingding-1.JPG?lettsid=GAjESkGzwpVAabAF&mid=1tbiRhpE3UH3Q5UkSAAAsJ%250A70%250A8388763%250A1&funcid=readpart&part=3&filename=Dingding-1.JPG&download=1
是不是通过组件实现的？
那位大虾知道？谢谢!
问题点数：0、回复次数：5Top
1 楼scoutlin（挖摸追挖摸追挖摸追..）回复于 2005-02-04 19:20:02 得分 0
Function DownFile2(strFile)
strFilename = server.MapPath(strFile)
fname=instrrev(replace(strFile,"\","/"),"/")
if fname>0 then
fname=right(strFile,len(strFile)-fname)
else
fname=strFile
end if
Response.ContentType = "application/x-download"
Response.AddHeader "content-disposition", "attachment; filename=" &fname
set Stream=CreateObject("Adodb.Stream")
Stream.Type = 1
Stream.Open
Stream.LoadFromFile strFilename
While Not Stream.EOS
Response.BinaryWrite Stream.Read(1024 * 64)
Wend
Stream.Close
Set Stream = Nothing
Response.Flush
End FunctionTop
2 楼hhjjhjhj（大头)(http://office.9zp.com）回复于 2005-02-04 19:22:05 得分 0
一般通过IIS中设置MIME就行。Top
3 楼sugarshop（SugarXu）回复于 2005-02-04 20:22:01 得分 0
学习Top
4 楼yzxushu（flyshu）回复于 2005-02-06 10:20:25 得分 0
学习了，谢谢Top
5 楼bluemoon0001（小天--追梦浪子）回复于 2005-02-06 11:29:31 得分 0
<a href='downattach.asp?n=原文件名&upname=下载时默认的文件名' >点击下载</a>
downattach.asp文件：
<%
Response.Buffer = true
Response.Clear
dim url
Dim fso,fl,flsize
dim Dname
Dim objStream,ContentType,flName,isre,url1
'*********************************************调用时传入的下载文件名
Dname=trim(request("n"))
upname=trim(request("upname"))
'******************************************************************
If Dname<>"" Then
'******************************下载文件存放的服务端目录
url=server.MapPath("UploadInfor/")&"\"&Dname
'***************************************************
End If
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set fl=fso.getfile(url)
flsize=fl.size
flName=fl.name
Set fl=Nothing
Set fso=Nothing
%>
<%
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = 1
objStream.LoadFromFile url
Select Case lcase(Right(flName, 4))
Case ".asf"
ContentType = "video/x-ms-asf"
Case ".avi"
ContentType = "video/avi"
Case ".doc"
ContentType = "application/msword"
Case ".zip"
ContentType = "application/zip"
Case ".xls"
ContentType = "application/vnd.ms-excel"
Case ".gif"
ContentType = "image/gif"
Case ".jpg", "jpeg"
ContentType = "image/jpeg"
Case ".wav"
ContentType = "audio/wav"
Case ".mp3"
ContentType = "audio/mpeg3"
Case ".mpg", "mpeg"
ContentType = "video/mpeg"
Case ".rtf"
ContentType = "application/rtf"
Case ".htm", "html"
ContentType = "text/html"
Case ".txt"
ContentType = "text/plain"
Case Else
ContentType = "application/octet-stream"
End Select
Response.AddHeader "Content-Disposition", "attachment; filename=" & upname
Response.AddHeader "Content-Length", flsize
Response.Charset = "UTF-8"
Response.ContentType = ContentType
Response.BinaryWrite objStream.Read
Response.Flush
response.Clear()
objStream.Close
Set objStream = Nothing
%>
Top
