我們在制作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>
|
