IE实现弹出下载窗口，将服务器某文件另存为

[xtxc]

Thanks

[fokker]

<script language=javascript>
window.location.href="http://yourserver/path/file"
</script>

[xtxc]

好象这样不是另存为，而是打开文件吧，不要想得那么简单好不好？

[孟子E章]

这要在服务器端实现

<%
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 = "C:\aa.doc"
mimeType = "application/x-msdownload"
sucess = TransferFile(path, mimeType,"cdd.doc")
Response.End
%>

[xtxc]

是不是哪儿搞错了，执行以后会这样

邢唷?>? "$?!欹5@ 餜bjbj??2璛璛dddd p S???????????????ER?>????????? ???????????????| 牊熠?d? ??#0S??????? ??????????$@$?@Test  hY_o( h|ko(gdY_01?2P皞. 捌A!?"?#悹$悹%癝班 惄N@?N ck噀 $1$a$$CJKHPJ_HaJmH nHsH tH$A?$ 貫祂=刉[SOBi?B nf恏?h?4? l4?a? k? 鄀Rh0€€O90€hondyY_|k@@@UnknownG?噝 €Times New Roman5?€Symbol3&? 噝 €Arial;??媅SOSimSun ???h*df.df!-!),.:;?]}?? & 6"0000 0 0 00000  =@\]^?([{ 0 0 00000;[???個rH(???Y_hondyhondy?鄥燆鵒h珣+'迟0T (4<DL?sshondyfond Normal.dothondy.d4ndMicrosoft Word 10.0@寙G@<択脍?@T燏脍??胀諟.摋+,0 X`px€ ?infoxfoA ? ?? ??#???Root Entry F? 熠?%€1Table WordDocument2SummaryInformation(DocumentSummaryInformation8CompObjf??  FMicrosoft Word 文档 MSWordDocWord.Document.8?瞦

[julyclyde]

mimeType = "application/x-msdownload"
改成
mimeType = "application/octec-stream"
试试看？

[xtxc]

谢谢了，可以加分，你等着吧
不过希望你能解释一下
x-msdownload
octec-stream
之含义
如果能全程解真的非常感谢了。