TXT.WORD文档下载在本地,而不是在浏览器中打开
来源:互联网 发布:足球实时数据 编辑:程序博客网 时间:2024/04/29 15:41
<%
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
%>
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
%>
- TXT.WORD文档下载在本地,而不是在浏览器中打开
- php 在浏览器中打开word文档
- js打开word文档,而不是下载
- Asp直接下载而不是在浏览器打开函数
- Asp直接下载而不是在浏览器打开函数
- 强制文件下载而不是在浏览器里打开显示
- 默认点击下载pdf等文件而不是在浏览器中打开
- 在IE浏览器中打开WORD、EXCEL、PDF和TXT文件
- 在web网页中打开word文档
- 让office2007文档(word excel 等)在ie浏览器中打开
- 让office2007文档(word excel 等)在ie浏览器中打开
- 让ie浏览器下载word,excel,而不是直接打开
- Html直接打开word文档而不是提示下载
- 在文件下载的时候将其保存而不是直接在浏览器上打开!
- 轻松下载.pdf文件(直接下载,而不是在IE浏览器里面打开)
- 怎么解决点击下载Csv文件时在浏览器里面打开,而不是下载
- 轻松下载.pdf文件(直接下载,而不是在IE浏览器里面打开)
- 在iphone中UIWebView显示本地Word文档数据
- SOA是什么--拨开SOA的面纱
- flysoft.image 缩略水印组件
- 早接触Debian,会少走很多弯路
- Berkeley DB -- 入门知识和一个小例子
- fork函数——多进程编程,其实也不是很难
- TXT.WORD文档下载在本地,而不是在浏览器中打开
- 用场景树来组织场景
- CSS应用小技巧十四例
- 常用CPLD/FPGA 标识的含义
- 网络游戏发展历史
- 架构(SOA)安全标准 过犹不及?
- 测试MS面试题
- 全角、半角字符相互转换
- 一个程序员的成长的六个阶段