asp按关键字查询XML的问题 '------------------------------------------------------ '读取文件 ReadTxtFile(FileName) '------------------------------------------------------ Function ReadTxtFile(FileName) Dim fso,f1,ts,FilePath FilePath=server.mappath(FileName) Set fso = CreateObject("Scripting.FileSystemObject") Set ts = fso.OpenTextFile(FilePath,1,1) ReadTxtFile = ts.ReadAll set ts=nothing set fso=nothing End Function '------------------------------------------------------------ '把信息写入文件 '------------------------------------------------------------ Function WriteTxtFile(Text,FileName) path=Server.MapPath(FileName) Set fso = CreateObject("Scripting.FileSystemObject") Set f1 = fso.CreateTextFile(path,true) f1.Write (Text) f1.Close End Function '----------------------------------------------------------- '生成xml文件 '----------------------------------------------------------- msg = "<?xml version=""1.0"" encoding=""utf-8""?>" msg=msg & "<bcaster>" msg=msg & "<item item_url=""http://www.1sucai.cn"" itemtitle=""编程素材网""/>" msg=msg & "</bcaster>" call WriteTxtFile(msg,"x1.xml") fso默认是ascII编码的，因为必须使用utf-8编码，用ado.stream来写这个文件，代码如下： Sub CreateFile(Text,FileName) Dim st Set st=Server.CreateObject("ADODB.Stream") st.Type=2 st.Mode=3 st.Charset="utf-8" st.Open() st.WriteText Text st.SaveToFile Server.MapPath(FileName),2 st.Close() Set st=Nothing End Sub msg = "<?xml version=""1.0"" encoding=""utf-8""?>" msg=msg & "<bcaster>" msg=msg & "<item item_url=""http://www.1sucai.cn"" itemtitle=""编程素材网""/>" msg=msg & "</bcaster>" call CreateFile(msg,"x1.xml")