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

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=""//www.Cuoxin.com"" 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=""//www.Cuoxin.com"" itemtitle=""错新站长站""/>"

msg=msg & "</bcaster>"

call CreateFile(msg,"x1.xml")

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!