asp中实现下载（另存为功能）

今天系统需要提供一个查看客户资质(不能右键另存为，不能复制等等，为限制销售和客服保存客户资质，之前有实现过)和下载客户资质的功能，

实现方式如下：

在父页面加入下载超链接，传入图片在系统的路径：

 <a href="customer_qualification_downLoad.asp?filePath=<%= rsArr(10, i) %>" target="_blank" style="color:Blue">下载</a>

新建一个asp页面 customer_qualification_downLoad.asp

将下面代码贴入页面就可以实现点击“下载”链接，弹出另存为框(下面代码为网上搜寻到的，给自己做参考，估计以后不用asp了，很少会用到，但是思路和其他的都是相通的，有参考意义)

<%  
  Dim   Stream  
  Dim   Contents  
  Dim   FileName  
  Dim   FileExt  
  Const   adTypeBinary   =   1  
  FileName   =   Request.QueryString("filePath")  
  if   FileName   =   ""   Then  
          Response.Write   "无效文件名."  
          Response.End  
  End   if  
  '   下面是不希望下载的文件  
  FileExt   =   Mid(FileName,   InStrRev(FileName,   ".")   +   1)  
  Select   Case   UCase(FileExt)  
          Case   "ASP",   "ASA",   "ASPX",   "ASAX",   "MDB"  
                  Response.Write   "受保护文件,不能下载."  
                  Response.End  
  End   Select  
  '   下载这个文件  
  Response.Clear  
  Response.ContentType   =   "application/octet-stream"  
  Response.AddHeader   "content-disposition",   "attachment;   filename="   &   FileName  
  Set   Stream   =   server.CreateObject("ADODB.Stream")  
  Stream.Type   =   adTypeBinary  
  Stream.Open  
  Stream.LoadFromFile   Server.MapPath(FileName)  
  While   Not   Stream.EOS  
          Response.BinaryWrite   Stream.Read(1024   *   64)  
  Wend  
  Stream.Close  
  Set   Stream   =   Nothing  
  Response.Flush  
  Response.End  
  %>