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

[gannbatte]

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

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

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


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

[gannbatte]

自己顶起～～～～～

[hookee]

<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]

不知道还有没有其他的方法可以实现的，我们现在的项目是用java+webwork做的。。。。

[gannbatte]

再加50分，希望各位高手大侠能帮帮忙～～～～～～

[gannbatte]

小弟真的很急。。。

[egeg3000]

我觉得是你机器的问题，同样的代码我在我机器上运行就显示下载，可能是你机器设置或者浏览器的问题。代码本身没有错误我觉得。。。至少在我机器上通过，lz换个机器或者换个浏览器测试下呢？

[egeg3000]

或者你打包成zip或者rar吧。。。估计就没问题了。。。