【下载文档:  asp下用fso和ado.stream写xml文件的方法.txt 】

---

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 = "" msg=msg & "" msg=msg & "" msg=msg & "" 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 = "" msg=msg & "" msg=msg & "" msg=msg & "" call CreateFile(msg,"x1.xml")