一个关于下载文档保存的问题---------------十万火急

Question

这种情况很常见的,我经常的遇到,解决的办法是,给我起一个名字后,在保存.

Answer 1

可否让另存为对话框中的文件名保持原来的中文名而不是乱码？

Answer 2

可以试一下用这种方法.demo.asp<%
Dim Stream
Dim Contents
Dim FileName
Dim FileExt
Const adTypeBinary = 1
FileName = "data.rar"   '提供下载的文件.
OtherName ="数据包.rar" '另存后的名字,对话框中的文件名.
Response.Clear
Response.ContentType = "application/octet-stream"
Response.AddHeader "content-disposition", "attachment; filename=" &OtherName
Set Stream = server.CreateObject("ADODB.Stream")
Stream.Type = adTypeBinary
Stream.Open
Stream.LoadFromFile Server.MapPath(FileName)
While Not Stream.EOS
    Response.BinaryWrite Stream.Read(1024 * 64)
Wend
Stream.Close
Set Stream = Nothing
Response.Flush
Response.End
%>