index.asp

<%
' 在ASP页面中创建一个下载按钮
Response.Write "<a href='download.asp?file=yourimage.jpg' download='yourimage.jpg'>"
Response.Write "<button>下载图片</button>"
Response.Write "</a>"
%>

download.asp

<%
Dim fileName
fileName = Request.QueryString("file")

If fileName <> "" Then
    Response.ContentType = "application/octet-stream"
    Response.AddHeader "Content-Disposition", "attachment; filename=" & fileName
    
    Dim filePath
    filePath = Server.MapPath("/images/" & fileName) ' 假设图片在images目录
    
    Dim stream
    Set stream = Server.CreateObject("ADODB.Stream")
    stream.Type = 1
    stream.Open
    stream.LoadFromFile filePath
    Response.BinaryWrite stream.Read
    stream.Close
    Set stream = Nothing
End If
%>