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

[HUBSX]

我提供文档下载时（。DOC文件）。点击联接，会自动激活IE或WORD软件。我想提供别人下载，请问能实现吗？我该怎么做？

[cpplus]

这篇文章还没有审批通过，请稍后……
（说明：推荐给《程序员》杂志的文章只有没被采用，或者已经在杂志上发表了，才会审批通过。）

哪里还有？

[HUBSX]

有谁能给我解决这个问题？谢谢！

[sook_l]

做成一个zip文件罗！

:-)

[孟子E章]

直接让客户端浏览器下载已知类型的文件

http://www.csdn.net/develop/read_article.asp?id=13004

[HUBSX]

net_lover(孟子E章)
谢谢你，我知道了：）

[xjd5555]

o

[baggio785]

以前有过这样的帖子,给你贴出来
<%
Const ForReading=1
Const TristateTrue=-1 ''Unicode
Const FILE_TRANSFER_SIZE=16384 ''16k
''Use the following line for IIS4/PWS - this is the default for IIS5
Response.Buffer = True
Function TransferFile(path, mimeType, filename)
Dim objFileSystem, objFile, objStream
Dim char
Dim sent
send=0
TransferFile = True
Set objFileSystem = Server.CreateObject("Scripting.FileSystemObject")
Set objFile = objFileSystem.GetFile(Path)
Set objStream = objFile.OpenAsTextStream(ForReading, TristateTrue)
Response.AddHeader "content-type", mimeType
Response.AddHeader "Content-Disposition","attachment;filename="&filename
Response.AddHeader "content-length", objFile.Size
Do While Not objStream.AtEndOfStream
char = objStream.Read(1)
Response.BinaryWrite(char)
sent = sent + 1
If (sent MOD FILE_TRANSFER_SIZE) = 0 Then
Response.Flush
If Not Response.IsClientConnected Then
TransferFile = False
Exit Do
End If
End If
Loop
Response.Flush
If Not Response.IsClientConnected Then TransferFile = False
objStream.Close
Set objStream = Nothing
Set objFileSystem = Nothing
End Function
Dim path, mimeType, sucess
'Server.MapPath(path)
path = Server.MapPath("files/世界杯小组赛名单.htm")
mimeType = "application/x-msdownload"
success = TransferFile(path, mimeType,"世界杯小组赛名单.htm")
Response.End
%>