Asp產生xml亂碼解放方法

<!--#include file="../inc/conn.asp"-->
<%
Call opendata(1)
Set rs=server.CreateObject("adodb.recordset")
xmlfile=server.mappath("content.xml")
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile(xmlfile,True,-1)
MyFile.WriteLine("<?xml version=""1.0"" encoding=""utf-8"" standalone=""yes""?>")
MyFile.WriteLine("<content Name=""新聞動態"">")
rs.open "select * from detail where classid=268 order by updatetime desc",conn,1,1
if not rs.eof then
do while not rs.eof
 MyFile.WriteLine("<article Thumb=""news/thumb4.jpg"" Large =""news/large4.jpg"">")
 MyFile.WriteLine("<headline>xx竹立方竹藝臻品館開館</headline>")
 MyFile.WriteLine("<date>2010/05/01</date>")
 MyFile.WriteLine("<copy_intro><![CDATA[竹立方，來自竹林深處的清新氣息，來自時代低碳環保的呼喚，來自健康時尚的現代生活理念。]]></copy_intro>")
 MyFile.WriteLine("<copy_full><![CDATA[    竹立方，來自竹林深處的清新氣息，來自時代低碳環保的呼喚，來自健康時尚的現代生活理念。<br><br>    竹立方——竹藝臻品館，主要經營竹炭、竹纖維、竹傢具、竹工藝品等，與最具實力的廠家合作，提供一手貨源，為廣大追求現代都市時尚生活的人提供低碳環保的竹產品。<br><br>     一想到竹，便想到那份翠綠。竹子，從竹竿，竹筍到竹纖維，竹地板，竹炭，從以其虛心謙恭的品格，默默無聞地做出貢獻。而其獨特的品質，自身的特性，發展前景不可限量。<br><br>    來竹立方，感受竹子帶來的那份美妙神奇吧！]]></copy_full>")
 MyFile.WriteLine("<copy_pic><![CDATA[竹立方]]></copy_pic>")
 MyFile.WriteLine("</article>")
rs.movenext
loop
end if
rs.close
MyFile.WriteLine("</content>")
MyFile.Close
%>

 

 

最近研究asp產生xml檔案，發現如果組建檔案裡面出現中文的話，xml檔案就是亂碼。在網上找了一下，說的都是把頁面，xml都設定成統一的編碼等等，但是都沒有解決問題。

原因：後來發現原來是fso的問題：fso不支援utf-8。

解決辦法：Set MyFile = fso.CreateTextFile(xmlfile,True,-1)  這句的第三個參數就非常重要-1是boolean值的true;

 

拓展：

下面是對CreateTextFile的參數的詳細說明:
object.CreateTextFile(filename[, overwrite[, unicode]])
參數
object
必選項。應為 FileSystemObject 或 Folder 對象的名稱。
filename
必選項。指明所要建立檔案的字串運算式。
overwrite
可選項。Boolean 值，指明能否覆蓋已有檔案。如果檔案可以覆蓋，則值為 true ，否則為 false。如果忽略，則已有檔案不能被覆蓋。
unicode
可選項。Boolean 值，指明檔案是否以 Unicode 或 ASCII 檔案方式建立。如果檔案作為 Unicode 檔案建立，則值為 true ，如果作為 ASCII 檔案建立，則為 false。如果忽略，則假定為 ASCII 檔案。

 

範例代碼：

<%
xmlfile=server.mappath("media.xml")
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile(xmlfile,True,-1)
MyFile.WriteLine("<?xml version=""1.0"" encoding=""UTF" & "-8""?>")
MyFile.WriteLine("<settings autoRotate=""1"" autoRotateSpeed=""4""  useSubtitle=""0"" useTooltip=""1""   useSecondCaption=""1""   spanX=""400""  spanY=""40""  centerX=""500"" centerY=""300""  distanceValue=""0""  perspectiveRatio=""0.5""  minimumscale="".1"" turningspeed=""4""  rotationKind=""1""  useFocalBlur=""1""  focalBlurValue="".6""  useMotionBlur=""1""   motionBlurValue="".25""  useFadeOnMouseOver=""1""  mouseOverAlphaValue="".5"" useReflection=""1""   reflectionAlphaValue="".5""")
MyFile.WriteLine(" />")
%>

<%
MyFile.WriteLine("<photos>")
%>
<%

MyFile.WriteLine("<photo imageURL=""空調打孔"" linkData=""http://www.kongtiaodakong.com/"" linkType=""frameNumber"" linkTarget=""carousel"" captionText=""陳瑞"" captionText2=""陳瑞"" enableButtonWhenInFront=""1"" />")

%>
<%
MyFile.WriteLine("</photos>")
%>

<%
MyFile.Close
%>