<% “)
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(““)
MyFile.WriteLine(“
if not rs.eof then
do while not rs.eof
MyFile.WriteLine(“MyFile.WriteLine(“
MyFile.WriteLine(“
MyFile.WriteLine(“
MyFile.WriteLine(“
MyFile.WriteLine(“
MyFile.WriteLine(“
rs.movenext
loop
end if
rs.close
MyFile.WriteLine(““)
MyFile.Close
%>
最近研究asp生成xml文件,发现如果生成文件里面出现中文的话,xml文件就是乱码。在网上找了一下,说的都是把页面,xml都设置成统一的编码等等,但是都没有解决问题。
原因:后来发现原来是fso的问题:fso不支持utf-8。
解决办法:Set MyFile = fso.CreateTextFile(xmlfile,-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,-1)
MyFile.WriteLine(““)
MyFile.WriteLine(“
%>
<%
MyFile.WriteLine(“
%>
<%
MyFile.WriteLine(“
%>
<%
MyFile.WriteLine(““)
%>
<%
MyFile.Close
%>