asp下用fso和ado.stream写xml文件的方法

asp按关键字查询XML的问题

1. '------------------------------------------------------  
2. '读取文件 ReadTxtFile(FileName)  
3. '------------------------------------------------------  
4. Function ReadTxtFile(FileName)  
5. Dim fso,f1,ts,FilePath  
6. FilePath=server.mappath(FileName)  
7. Set fso = CreateObject("Scripting.FileSystemObject")  
8. Set ts = fso.OpenTextFile(FilePath,1,1)  
9. ReadTxtFile = ts.ReadAll  
10. set ts=nothing  
11. set fso=nothing  
12. End Function  
13. '------------------------------------------------------------  
14. '把信息写入文件  
15. '------------------------------------------------------------  
16. Function WriteTxtFile(Text,FileName)  
17. path=Server.MapPath(FileName)  
18. Set fso = CreateObject("Scripting.FileSystemObject")  
19. Set f1 = fso.CreateTextFile(path,true)  
20. f1.Write (Text)  
21. f1.Close  
22. End Function  
23. '-----------------------------------------------------------  
24. '生成xml文件  
25. '-----------------------------------------------------------  
26. msg = "<?xml version=""1.0"" encoding=""utf-8""?>"  
27. msg=msg & "<bcaster>"  
28. msg=msg & "<item item_url=""//www.zzvips.com"" itemtitle=""服务器之家""/>"  
29. msg=msg & "</bcaster>"  
30. call WriteTxtFile(msg,"x1.xml")  

fso默认是ascII编码的，因为必须使用utf-8编码，用ado.stream来写这个文件，代码如下：

1. Sub CreateFile(Text,FileName)  
2. Dim st  
3. Set st=Server.CreateObject("ADODB.Stream")  
4. st.Type=2  
5. st.Mode=3  
6. st.Charset="utf-8"  
7. st.Open()  
8. st.WriteText Text  
9. st.SaveToFile Server.MapPath(FileName),2  
10. st.Close()  
11. Set st=Nothing  
12. End Sub  
13. msg = "<?xml version=""1.0"" encoding=""utf-8""?>"  
14. msg=msg & "<bcaster>"  
15. msg=msg & "<item item_url=""//www.zzvips.com"" itemtitle=""服务器之家""/>"  
16. msg=msg & "</bcaster>"  
17. call CreateFile(msg,"x1.xml")