TXT.WORD文档下载在本地,而不是在浏览器中打开

原创 2007年09月21日 11:54:00
<%
Response.Buffer=true
取得要下载的文件,如果不为空。就下载
dim url,trueurl
url="下载文件路径和下载文件名"
   fname=Request("filename")
   if fname<>"" then
      trueurlurl=server.MapPath("/") &url
   end if
   set objFso=server.CreateObject("scripting.filesystemobject")
   set fn=objFso.GetFile(trueurl)
   flsize=fn.size
   flname=fn.name
   set fn=nothing
   set objFso=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 ".ASP", ".ASA", "ASPX", "ASAX", ".MDB"
        Response.Write "受保护文件,不能下载."
        Response.End
      case else
      ContentType="appliation/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
%>
 

相关文章推荐

在IE浏览器中打开WORD、EXCEL、PDF和TXT文件

protected void Page_Load(object sender, EventArgs e) { if (!IsPostBack) { string f...

让office2007文档(word excel 等)在ie浏览器中打开

来自:http://blog.csdn.net/atlasroben/archive/2008/08/08/2788155.aspx 做项目,需要获取客户在windowsform程序中编辑的word,...

java通过url在线预览Word、excel、ppt、pdf、txt文档中的内容【只获得其中的文字】

在页面上显示各种文档中的内容。在servlet中的逻辑 word:  BufferedInputStream bis = null;   URL url = null;   HttpU...

实现Word、Excel、Txt文档在线转换为Swf(或PDF)

测试环境:Win2003+IIS6+Office2007+ASP+Adobe Macromedia FlashPaper 2.2。 备注说明:建议使用Office2007或以上,原因是Offic...
  • wowmboy
  • wowmboy
  • 2014年01月15日 20:09
  • 1859

使用Jacob批量转换word为txt、pdf、xps、html、xml等文档

Jacob全称位java com bridge,通过该插件,可以使用Java语言编写程序,调用COM、ActiveX组件来操作Windows本地程序。 参考一位网友的例子,我写了一个程序,用来将wo...

lucene 索引非txt文档 (pdf word rtf html xml)

搜索要首先要索引,索引的话最简单的方式是索引txt文件,上文已经介绍了。这里介绍一下一些其它格式的文档的索引,例如ms word ,pdf ,rtf等。 索引方法:就是先把各种文档先转化成纯文本...

apache poi操作office文档----java在线预览txt、word、ppt、execel,pdf代码

原文地址:点击打开链接 在页面上显示各种文档中的内容。在servlet中的逻辑 word:  BufferedInputStream bis = null;   URL url = null;...

C#在线预览文档(word,excel,pdf,txt,png)

C#在线预览文档(word,excel,pdf,txt,png) 1、预览方式:将word文件转换成html文件然后预览html文件 2、预览word文件:需要引入Interop.Micr...

word文档转换为PDF、jpg、HTML、txt、swf

好记性不如烂笔头,写下来以后参考  word转换为PDF   ///                   ///          /// 把Word文件转换成为PDF格式文件      ...
  • chhdxzq
  • chhdxzq
  • 2015年08月21日 19:15
  • 850
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:TXT.WORD文档下载在本地,而不是在浏览器中打开
举报原因:
原因补充:

(最多只允许输入30个字)