想实现点击链接就直接下载这个链接所指向的文件，怎么实现？

[xingzi0077]

<a href="test1.doc">下载</a>
页面上点击链接时，就会在当前页面上打开这个文件，我希望点击链接就直接弹出保存的对话框，请文该如何实现？

[梅雪香]

a href="test1.doc">下载</a>
压成rar吧，如果直接写是会打开的。
要不可以用输出流来下载吧，我不太懂这个

[xingzi0077]

压成压缩文件是肯定能够下载的，但是这样子就给别人的上传照成了麻烦，上传之前都得压缩一下，还是希望能够不压缩就下载

[fantiny]

<%@language=VBscript%>
<%
Const ForReading=1
Const TristateTrue=-1
Const FILE_TRANSFER_SIZE=16384
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,downfilename
downfilename=request("filename")
path = Server.MapPath(downfilename)
mimeType="text/plain"
sucess = TransferFile(path, mimeType,downfilename)
Response.End
%>

[navis]

在服务器端将文件用流来读取,然后输出一个header ,就可以实现下载目的,需要服务器端脚本程序,如asp,jsp,php