如何实现在点击图片下载链接时,直接弹出一个下载的窗口

如何实现在点击图片下载链接时,直接弹出一个下载的窗口.而不是在新的窗口打开这个图片 以下另存为：DOWNLOAD.HTM  
   
  <a   href=download.asp?filename=download.asp>guid.asp</a>  
   
  以下另存为：DOWNLOAD.ASP  
   
  <%@language=VBscript%>  
  <%  
  Const   ForReading=1  
  Const   TristateTrue=-1    
  Const   FILE_TRANSFER_SIZE=16384    
  Response.Buffer   =   True  
  Function   TransferFile(path,   mimeType,   filename)  
  Dim   objFileSystem,   objFile,   objStream  
  Dim   char  
  Dim   sent  
  send=0  
  TransferFile   =   True  
  Set   objFileSystem   =   Server.CreateObject("Scripting.FileSystemObject")  
  Set   objFile   =   objFileSystem.GetFile(Path)  
  Set   objStream   =   objFile.OpenAsTextStream(ForReading,   TristateTrue)  
  Response.AddHeader   "content-type",   mimeType  
  response.AddHeader   "Content-Disposition","attachment;filename="   &   filename    
  Response.AddHeader   "content-length",   objFile.Size  
  Do   While   Not   objStream.AtEndOfStream  
  char   =   objStream.Read(1)  
  Response.BinaryWrite(char)  
  sent   =   sent   +   1  
  If   (sent   MOD   FILE_TRANSFER_SIZE)   =   0   Then  
  Response.Flush  
  If   Not   Response.IsClientConnected   Then  
  TransferFile   =   False  
  Exit   Do  
  End   If  
  End   If  
  Loop  
  Response.Flush  
  If   Not   Response.IsClientConnected   Then   TransferFile   =   False  
  objStream.Close  
  Set   objStream   =   Nothing  
  Set   objFileSystem   =   Nothing  
  End   Function  
  Dim   path,   mimeType,   sucess,downfilename  
  downfilename=request("filename")  
  path   =   Server.MapPath(downfilename)  
  mimeType="text/plain"  
  sucess   =   TransferFile(path,   mimeType,downfilename)  
  Response.End  
  %>    
  以上是下载个ASP文件，图片是一样。

下面是一个ASP解决方案：  
   
  文件名:Download.asp  
   
  <%  
  Dim   Stream  
  Dim   Contents  
  Dim   FileName  
  Dim   FileExt  
  Const   adTypeBinary   =   1  
  FileName   =   Request.QueryString("FileName")  
  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  
  %>  
  使用：Download.asp?FileName=/Files/MY.gif  
  把你的文件放到根目录Files下，你也可以放到其它地方了。  
   
  如：  
  <A   HREF="Download.asp?FileName=/Files/MY.gif">点击下载WORD文档</A>