登录  
 加关注
查看详情
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

樱之花

叶散的时候,你明白欢聚;花谢的时候,你明白青春.

 
 
 

日志

 
 
关于我

分类中“我的实验室”是我在日常工作中的一些知识总结,有些写的比较匆忙,可能大家在阅读时会产生困扰,后期有时间我会重新整理编辑,谢谢大家的到访,您们的支持是我前进的动力!

asp如何弹出文件保存对话框?  

2007-04-18 12:18:34|  分类: ASP开发 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

将下面的东西存成download.asp 
然后你就可以用a  herf="http://xxx.xxx.com/download.asp?n=file.doc">download!</a
来下载了! 
------------------------------------------------------------ 
<% 
Response.Buffer  =  true 
Response.Clear 

dim  url 
Dim  fso,fl,flsize 
dim  Dname 
Dim  objStream,ContentType,flName,isre,url1 
'*********************************************调用时传入的下载文件名 
Dname=trim(request("n")) 
'****************************************************************** 
If  Dname<>""  Then 
'******************************下载文件存放的服务端目录 
   url=server.MapPath("/")&"\"&Dname 
   url=server.MapPath("./")&"\"&Dname  '这边做了一下改动By Fanshui
'*************************************************** 
End  If 
'Response.write url
'response.end

Set  fso=Server.CreateObject("Scripting.FileSystemObject") 
   Set  fl=fso.getfile(url) 
   flsize=fl.size 
   flName=fl.name 
   Set  fl=Nothing 
   Set  fso=Nothing 
%> 
<% 
   Set  objStream  =  Server.CreateObject("ADODB.Stream") 
   objStream.Open 
   objStream.Type  =  1 
   objStream.LoadFromFile  url 


   Select  Case  lcase(Right(flName,  4)) 
      Case  ".asf" 
         ContentType  =  "video/x-ms-asf" 
      Case  ".avi" 
         ContentType  =  "video/avi" 
      Case  ".doc" 
         ContentType  =  "application/msword" 
      Case  ".zip" 
         ContentType  =  "application/zip" 
      Case  ".xls" 
         ContentType  =  "application/vnd.ms-excel" 
      Case  ".gif" 
         ContentType  =  "image/gif" 
      Case  ".jpg",  "jpeg" 
         ContentType  =  "image/jpeg" 
      Case  ".wav" 
         ContentType  =  "audio/wav" 
      Case  ".mp3" 
         ContentType  =  "audio/mpeg3" 
      Case  ".mpg",  "mpeg" 
         ContentType  =  "video/mpeg" 
      Case  ".rtf" 
         ContentType  =  "application/rtf" 
      Case  ".htm",  "html" 
         ContentType  =  "text/html" 
      Case  ".txt" 
         ContentType  =  "text/plain" 
      Case  Else 
         ContentType  =  "application/octet-stream" 
   End  Select   

   Response.AddHeader  "Content-Disposition",  "attachment;  filename="  &  flName 
   Response.AddHeader  "Content-Length",  flsize 

   Response.Charset  =  "UTF-8" 
   Response.ContentType  =  ContentType 

   Response.BinaryWrite  objStream.Read 
   Response.Flush 
   response.Clear() 
   objStream.Close 
   Set  objStream  =  Nothing 

%>

  评论这张
 
阅读(1439)| 评论(0)

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018