一个关于下载文档保存的问题---------------十万火急 这种情况很常见的,我经常的遇到,解决的办法是,给我起一个名字后,在保存. 解决方案 » 免费领取超大流量手机卡,每月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%> 高手指点:有关Jquery方面知识 两个js文件有冲突,应该怎么解决呢?希望各位指点。 ext控件赋初值的问题 求一个关于密码验证的正则表达式,想了好久都找不到简短的解决方案 这样的正则表达式简单吗? 碰到这样的兼容问题好元耐哦。 实现类似VB的编辑器,有个难点望高手解答 急,高手請進,為什麼radio的onSelect事件不響應? 为何提示说我不能创建 ADODB.Stream 对像 弹出的子窗口怎样得到父窗口中多选框选中的值,并和子窗口的表单一起发送 如何有条件循环退出! 【求助】请教文本框焦点问题!
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
%>