在服务器上有个111.doc的文件我下载进想把文件名变成中文《你好.doc》大家有什么好方法推荐一下

gxnnyzr 2012-07-23 05:51:10

..................

...全文

89 13 打赏收藏转发到动态举报

写回复

用AI写文章

13 条回复

切换为时间正序

请发表友善的回复…

发表回复

jimmy1230 2012-07-24

打赏
举报

感謝分享，正在學習

gxnnyzr 2012-07-24

打赏
举报

谢谢，net_lover

孟子E章 2012-07-24

打赏
举报

Response.AddHeader "Content-Disposition", "attachment; filename=" & Server.UrlEncode("新名字") & ".doc"

这样就不会.doc[1]

%D0%C2%C3%FB%D7%D6是编码，你可以测试是否需要Server.UrlEncode
ie9下是需要的

gxnnyzr 2012-07-24

打赏
举报

万分感谢了，得了

下载时的文件名变成了%D0%C2%C3%FB%D7%D6.doc[1]

孟子E章 2012-07-24

打赏
举报

Response.AddHeader "Content-Disposition", "attachment; filename=" & Server.UrlEncode("新名字.doc")

完整的测试

<%



Response.Buffer = true

Response.Clear



Dim fso,fl,flsize

dim Dname

Dim objStream,ContentType,flName,isre,url1



Dname= Server.Mappath("111.doc")



Set fso=Server.CreateObject("Scripting.FileSystemObject")

Set fl=fso.getfile(Dname)

flsize=fl.size

Set fl=Nothing

Set fso=Nothing 





Set objStream = Server.CreateObject("ADODB.Stream")

objStream.Open

objStream.Type = 1

objStream.LoadFromFile Dname



ContentType = "application/octet-stream"



Response.AddHeader "Content-Disposition", "attachment; filename=" & Server.UrlEncode("新名字.doc")

Response.AddHeader "Content-Length", flsize



Response.Charset = "UTF-8"

Response.ContentType = ContentType



Response.BinaryWrite objStream.Read

Response.Flush

response.Clear()

objStream.Close

Set objStream = Nothing

%>

gxnnyzr 2012-07-24

打赏
举报

[Quote=引用 6 楼的回复:]

Response.AppendHeader("Content-Disposition", "attachment;filename=" & Server.UrlEncode("你好.doc"))

这不是asp吗
[/Quote]

可我执行了，是错误的，万分感谢

孟子E章 2012-07-24

打赏
举报



Response.Buffer = true

Response.Clear



Dim fso,fl,flsize

dim Dname

Dim objStream,ContentType,flName,isre,url1



Dname= Server.Mappath("111.doc")



Set fso=Server.CreateObject("Scripting.FileSystemObject")

Set fl=fso.getfile(Dname)

flsize=fl.size

Set fl=Nothing

Set fso=Nothing 





Set objStream = Server.CreateObject("ADODB.Stream")

objStream.Open

objStream.Type = 1

objStream.LoadFromFile Dname



ContentType = "application/octet-stream"



Response.AddHeader "Content-Disposition", "attachment; filename=新名字.doc"

Response.AddHeader "Content-Length", flsize



Response.Charset = "UTF-8"

Response.ContentType = ContentType



Response.BinaryWrite objStream.Read

Response.Flush

response.Clear()

objStream.Close

Set objStream = Nothing