关于ASP用FSO输出XML文件的问题,请高手指教。
Sub CreateAfile(path,msgstr)
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile(path,2)
MyFile.WriteLine(msgstr)
MyFile.Close
End Sub
xmlurlstr="<?xml version='1.0' encoding='UTF-8'?> <vto>"
xmlurlstr=xmlurlstr&"<subject name='中文' url='http://' block='true'/>"
xmlurlstr=xmlurlstr&"<subject name='中文' url='http://' block='true'/>"
xmlurlstr=xmlurlstr&"<subject name='中文' url='http://' block='true'/>"
xmlurlstr=xmlurlstr&"</vto>"
CreateAfile server.mappath("./")&"/menu.xml",replace(xmlurlstr,"'",chr(34))
'////////////////////////////////////////////////////////////////////
CreateTextFile不能输出UTF-8的格式的文件,请问还有什么办法可以解决?
谢谢。