如题，下载程序文件名为down.asp,该文件保存为ANSI编码时，一切正常，但是保存为UTF-8,并且前面两行做相应修改后，每次点击下载，文件名就变成
乱码，

谁能看出问题在哪？

正常的down.asp（保存为ANSI编码）
<%
filePath="E:\test\11111.rar"
fdisplayName="中文文件名999.rar"

   set objFso=server.CreateObject("scripting.filesystemobject")
   set fn=objFso.GetFile(filePath)
   flsize=fn.size
   flname=fn.name
   set fn=nothing
   set objFso=nothing
   
   set objStream=server.CreateObject("adodb.stream")
   objStream.Open
   objStream.Type=1
   objStream.LoadFromFile filePath
   
   ContentType="appliation/octet-stream"

   Response.AddHeader "Content-Disposition", "attachment; filename="&fdisplayName
   Response.AddHeader "Content-Length", flsize
   Response.ContentType=ContentType
   Response.BinaryWrite objStream.Read
   Response.Flush
   Response.Clear()
   objStream.Close
   set objStream=nothing   
%>


文件名出现乱码的down.asp(保存为UTF-8编码，并且做了红色部分的改动，其他不变)


<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Response.CharSet="utf-8"


filePath="E:\test\11111.rar"
fdisplayName="中文文件名999.rar"

   set objFso=server.CreateObject("scripting.filesystemobject")
   set fn=objFso.GetFile(filePath)
   flsize=fn.size
   flname=fn.name
   set fn=nothing
   set objFso=nothing
   
   set objStream=server.CreateObject("adodb.stream")
   objStream.Open
   objStream.Type=1
   objStream.LoadFromFile filePath
   
   ContentType="appliation/octet-stream"

   Response.AddHeader "Content-Disposition", "attachment; filename="&fdisplayName
   Response.AddHeader "Content-Length", flsize
   Response.ContentType=ContentType
   Response.BinaryWrite objStream.Read
   Response.Flush
   Response.Clear()
   objStream.Close
   set objStream=nothing   
%>

自己解决了，把没解决后的代码贴出来，希望对遇到和我类似问题的朋友有帮助。

这个问题搞得我昨晚熬夜到3点才睡，今天中午试了一下，就OK了。

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
session.CodePage = 65001
Response.CharSet="utf-8"

filePath="E:\test\11111.rar"
fdisplayName="中文文件名999"

   set objFso=server.CreateObject("scripting.filesystemobject")
   set fn=objFso.GetFile(filePath)
   flsize=fn.size
   flname=fn.name
   set fn=nothing
   set objFso=nothing
   
   set objStream=server.CreateObject("adodb.stream")
   objStream.Open
   objStream.Type=1
   objStream.LoadFromFile filePath
   
   ContentType="appliation/octet-stream"

   Response.AddHeader "Content-Disposition", "attachment; filename="&server.URLEncode(fdisplayName)&".rar"
   Response.AddHeader "Content-Length", flsize
   Response.ContentType=ContentType
   Response.BinaryWrite objStream.Read
   Response.Flush
   Response.Clear()
   objStream.Close
   set objStream=nothing   
%>