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

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

时间：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英雄配置要求推荐

文章评论

查看所有0条评论>>

发表评论

我来说两句...

提交评论