点击链接弹出保存图片对话框（asp）

call   download( server .mappath("./test.jpg"))  
  Function   download(File)  
          temp   =   Split(File,   "/")  
          filename   =   temp(UBound(temp))  
          Set   s   =   CreateObject("adodb.stream")  
          s.mode   =   3  
          s.Type   =   1  
          s.Open  
          s.loadfromfile(File)  
          data   =   s.Read  
          If   IsNull(data)   Then  
                  response.Write   "空"  
          Else  
                  response.Clear  
                  Response.ContentType   =   "application/octet-stream"  
                  Response.AddHeader   "Content-Disposition",   "attachment;   filename="   &   filename  
                  response.binarywrite(data)  
          End   If  
          Set   s   =   Nothing  
  End   Function