请教一个关于HTML页面上有个链接,点击链接下载word文件的问题。

gannbatte 2009-08-27 03:29:52
请教一个关于HTML页面上有个链接,点击链接下载word文件的问题。

我现在的写法是:
<a href="http://XXXXX.com:9000/xxxxx.doc">说明文档</a>
点击之后就直接在网页上打开了这个word文档,而且显示的是乱码。

我如何能做到,点击链接之后,能将这个文档下载到本地。。。。


多谢各位大侠~~~~
有答案立即给分。。。
...全文
550 7 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
egeg3000 2009-08-27
  • 打赏
  • 举报
回复
或者你打包成zip或者rar吧。。。估计就没问题了。。。
egeg3000 2009-08-27
  • 打赏
  • 举报
回复
我觉得是你机器的问题,同样的代码我在我机器上运行就显示下载,可能是你机器设置或者浏览器的问题。代码本身没有错误我觉得。。。至少在我机器上通过,lz换个机器或者换个浏览器测试下呢?
gannbatte 2009-08-27
  • 打赏
  • 举报
回复
小弟真的很急。。。
gannbatte 2009-08-27
  • 打赏
  • 举报
回复
再加50分,希望各位高手大侠能帮帮忙~~~~~~
gannbatte 2009-08-27
  • 打赏
  • 举报
回复
不知道还有没有其他的方法可以实现的,我们现在的项目是用java+webwork做的。。。。
hookee 2009-08-27
  • 打赏
  • 举报
回复
<a href="http://XXXXX.com:9000/down.asp">说明文档 </a>

down.asp

<%
sFilePath = "d:\abc.doc"

Set oSF = CreateObject("Scripting.FileSystemObject")
Set f = oSF.GetFile(sFilePath)
Set oStream = Createobject("ADODB.Stream")
With oStream
.Type = 1
.Mode = 3
.Open
.LoadFromFile sFilePath
End With
Set oSF = Nothing
If Not TransferFile(oStream, "application/octet-stream", f.Name) Then
response.Write "Error"
End If
oStream.close
Set oStream = Nothing

Function TransferFile(ByRef oStream, sMimeType, sFilename)
Dim iChar, iSent, iSize
Dim c
Const FILE_TRANSFER_SIZE = 32768 '32k

iSent = 0
TransferFile = True
iSize = oStream.Size
With Response
.Charset = "GB2312"
.ContentType= sMimeType
.AddHeader "Accept-Ranges", "bytes"
.AddHeader "Content-Length", iSize
.AddHeader "Content-Type", sMimeType
.AddHeader "DownloadOptions", "noopen"
.AddHeader "Content-Disposition","attachment; filename=" & sFilename
End With
c = 0
Do While c<=iSize
iChar = oStream.Read(FILE_TRANSFER_SIZE)
c = c + FILE_TRANSFER_SIZE
With Response
.BinaryWrite(iChar)
iSent = iSent + FILE_TRANSFER_SIZE
If (iSent MOD FILE_TRANSFER_SIZE) = 0 Then
.Flush
If Not .IsClientConnected Then
TransferFile = False
Exit Do
End If
End If
End With
Loop
Response.Flush
If Not Response.IsClientConnected Then TransferFile = False
'Set oStream = Nothing
End Function

%>

gannbatte 2009-08-27
  • 打赏
  • 举报
回复
自己顶起~~~~~

61,129

社区成员

发帖
与我相关
我的任务
社区描述
层叠样式表(英文全称:Cascading Style Sheets)是一种用来表现HTML(标准通用标记语言的一个应用)或XML(标准通用标记语言的一个子集)等文件样式的计算机语言。
社区管理员
  • HTML(CSS)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧