您的位置:首页网页设计经验技巧 → 如何实现在点击图片下载链接时,直接弹出一个下载的窗口

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

时间:2008/11/18 15:50:00来源:本站整理作者:我要评论(0)

如何实现在点击图片下载链接时,直接弹出一个下载的窗口.而不是在新的窗口打开这个图片 以下另存为: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>  

 

相关视频

    没有数据

相关阅读 LOL云顶之弈各英雄如何搭配装备 云顶之弈全英雄装备搭配推荐瘟疫传说无罪配置要求如何 瘟疫传说无罪配置要求推荐进击的巨人2最终之战配置要求如何 进击的巨人2最终之战配置推荐如龙极2配置要求如何 如龙极2配置要求推荐三位一体4配置要求如何 三位一体4配置要求推荐共享体重秤如何实现为个人号加粉如何利用共享体重秤进行公众号推广apex英雄配置要求如何 apex英雄配置要求推荐

文章评论
发表评论

热门文章 Wordpress本地安装教程dx1.5如何设置二级域名

最新文章 hbuilder有哪些快捷键Wordpress本地安装教程 Wordpress本地安装教程expression web 4文档乱码解决方法dz 2.5“收藏本版”关闭小对话框无法关闭解在制作安装软件之前,您必须先将易语言存盘,

人气排行 如何使用multipart/form-data格式上传文件Photoshop PS图层混合模式详解(非常详细)ISAPI_Rewrite3使用教程网站里添加收藏和设为首页代码桌面快捷方式图标不见了C#获取执行程序所在的当前路径的方法详解(XMLHttpRequest)进行跨域请求方法如何用远程桌面连接进行传输文件