[求助]怎样做WORD文档的连接，让别人只能下载，不激活IE或WORD软件 - ASP技术论坛

楼主

问题点数：0 回复次数：8

[求助]怎样做WORD文档的连接，让别人只能下载，不激活IE或WORD软件

我在页面中想做这样一个功能,就是用户通过点击"下载文件"链接,可以下载指定的文件.但仅有下载权限.
请各位指点一下该从哪方面入手,谢谢!

搜索更多相关主题的帖子: WORD　文档　软件　

第 2 楼

得分:0

不是很明白楼主的意思，只要文件不被解析，就可以下载的。
比如word文件的后缀是doc，因为.doc文件不能被解析，所以点击时
就会下载的。

第 3 楼

得分:0

谢谢楼主指点，我是想问问做这样一个下载文件功能的代码该从哪方面入手实现呢？多谢！

第 4 楼

得分:0

http://blog.163.com/chenmanyi0818@126/blog/static/20012602006102785943671/

专注于WEB前端交互平台开发：[url=http://blog./]blog.[/url]（富客户端技术（RIA）交流平台）

第 5 楼

得分:0

<%
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下，你也可以放到其它地方了。