一个关于下载文档保存的问题---------------十万火急 这种情况很常见的,我经常的遇到,解决的办法是,给我起一个名字后,在保存. 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 可否让另存为对话框中的文件名保持原来的中文名而不是乱码? 可以试一下用这种方法.demo.asp<%Dim StreamDim ContentsDim FileNameDim FileExtConst adTypeBinary = 1FileName = "data.rar" '提供下载的文件.OtherName ="数据包.rar" '另存后的名字,对话框中的文件名.Response.ClearResponse.ContentType = "application/octet-stream"Response.AddHeader "content-disposition", "attachment; filename=" &OtherNameSet Stream = server.CreateObject("ADODB.Stream")Stream.Type = adTypeBinaryStream.OpenStream.LoadFromFile Server.MapPath(FileName)While Not Stream.EOS Response.BinaryWrite Stream.Read(1024 * 64)WendStream.CloseSet Stream = NothingResponse.FlushResponse.End%> 新手初学JS,给点建议吧 求助怎么实现边框切换呢? 两个frame之间的互相操作问题 有一个时间戳,如何得到它的日期 如何实现改变鼠标移动链接颜色 用javascript存储常量,实现网站模板式开发,碰到window.onload无法处理。 请教用javascript如何修改注册表才能把背景色打印出来? 十分火急!怎样判断输入的字符有多少个中文字符?在线等! javascript中调用dll 急死我了,高手帮忙 如何有条件循环退出! 【求助】请教文本框焦点问题!
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
%>