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

2009-08-27 03:29:52 596 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Unity XR Interaction Toolkit（二）手柄交互 XR Interaction 手柄事件和抓取设置阅读详情

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

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

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

多谢各位大侠～～～～
有答案立即给分。。。

...全文

头歌工程实训答案-机器学习篇之手写体识别篇第2关：激活函数'''x:负无穷到正无穷的实数'''if x<=0:return 0else:return x#***第3关：反向传播算法import os。阅读详情

gannbatte

CSS 61,116 成员 60,701 内容

+ 关注 + 加入社区

切换为时间正序

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

打赏
举报

自己顶起～～～～～

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

相关推荐