| 网站首页 | 模板 | 资料 | 源码 | 工具 | 开发 | 设计 | 安全 | 项目 | 网络 | 图片 | 系统 | 数据库 | 博客 | 会员中心 | 小说 | 
MYFTP 精品资料下载
网络学院
学习资料
源码模版
您现在的位置: 精品下载 >> 网络 >> 电脑课堂 >> 网络正文 用户登录 新用户注册
使IE下载WORD文档            【字体:
使IE下载WORD文档
作者:佚名    网络来源:不详    点击数:    更新时间:2007-12-28

在论坛中有很多人问到怎么在IE中让用户直接下载如WORD,PDF等这些文件呢?

下面是一个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.doc
把你的DOC文件放到根目录Files下,你也可以放到其它地方了。

如:
<A HREF="Download.asp?FileName=/Files/MY.doc">点击下载WORD文档</A>

网络录入:chqnet    责任编辑:chqnet 
  • 上一个网络:

  • 下一个网络:
  • 最新热点 最新推荐 相关网络
    解决IE更新对FLASH产生影响
    Create a simple Delphi Exp…
    如何使用InstallShield X Ex…
    保护视力在IE中不使用网页中…
    常识:IE经典实用技巧两则
    不仅是上网谈IE浏览器地址栏…
    小技巧:教你如何让IE浏览器也…
    巧妙使用加载项扩展IE7的功能
    新手入门:六个令人头疼的IE…
    教你在IE7浏览器中查看网页h…
      网友评论:(只显示最新10条。评论内容只代表网友观点,与本站立场无关!)