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.jb51.net"" 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.jb51.net"" itemtitle=""查字典教程网""/>"

msg=msg & "</bcaster>"

call CreateFile(msg,"x1.xml")