我们在制作Flash网站时，经常用ASP生成XML文件，但是生成的XML有时FLASH读取出来由于不是utf-8的编码，会出现乱码现象，自己虽然有解决方法，但都不是很方便，有次在网上看到如下代码，觉得很方便，特转过来跟大家分享，希望对大家有帮助！
<%
‘******************************************
‘功能：生成UTF-8文件
‘参数：File_name 文件名
‘参数：File_path 生成文件所在相对目录
‘参数：content 写入内容
‘******************************************
sub Generation_File(File_name,File_path,content)
utf=”<?xml version=’1.0′ encoding=’utf-8′ standalone=’yes’?>” & vbCrLf
mappath = File_path&”/”&File_name
Set objStream = Server.CreateObject(“ADODB.Stream”)
With objStream
.Open
.Charset = “utf-8″
.Position = objStream.Size
.WriteText=utf&content
.SaveToFile server.mappath(mappath),2
.Close
End With
Set objStream = Nothing
response.write(“<script language=JavaScript> alert(‘:::生成文件成功:::’); </script>”)
end sub
‘******************************************
‘功能：获得写入文件的内容
‘返回：content
‘******************************************
function content()
content = “<content>”
content = content&”这是一个utf-8编码文件”
content = content&”</content>”
end function
call Generation_File(“content.xml”,”xml”,content) ‘在xml目录下生成编码为utf-8的content.xml文件
%>
运行结果
生成文件：xml/content.xml
文件编码：utf-8
文件内容：
<?xml version=’1.0′ encoding=’utf-8′ standalone=’yes’?>
<content>这是一个utf-8编码文件</content>
|
