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

call   download(                  response.binarywrite(data)  
          End   If  
          Set   s   =   Nothing  
  End   Function