繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > asp下用fso和ado.stream写xml文件的方法
- ASP
- ASP编程入门进阶（十二）：ASP技巧累加（一）
- ASP编程入门进阶（十三）：Ad & Content Rotator
- ASP编程入门进阶（十四）：Browser & Linking
- ASP编程入门进阶（十五）：组件Counters
- 一些简单的ASP练习
- ASP编程入门进阶（十六）：FSO组件之驱动器操作
- ASP编程入门进阶（十七）：FSO组件之文件夹操作
- ASP编程入门进阶（十八）：FSO组件之文件操作（上）
- ASP编程入门进阶（十八）：FSO组件之文件操作（中）
- ASP编程入门进阶（十八）：FSO组件之文件操作（下）
- ASP编程入门进阶（十九）：ASP技巧累加（二）
- ASP中有关双引号，单引号以及&号的解释
- ASP编程入门进阶（二十）：ADO组件之显示数据记录
- ASP编程入门进阶（二十）：ADO组件之插入数据记录
- ASP编程入门进阶（二十）：ADO组件之分页程序
- ASP编程入门进阶（二十）：ADO组件之修改数据记录
- ASP编程入门进阶（二十）：ADO组件之删除数据记录
- ASP初学者常犯的几个错误（ZT）
- 无组件上传图片之文件采用方案
- ASP编程入门进阶（二十）：ADO组件之查询数据记录
ASP 中的 asp下用fso和ado.stream写xml文件的方法
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 65 ::
收藏到网摘: n/a
用asp来生成xml文件，一开始我用fso,只用了写，同时把读文件的办法也给大家
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.ruanchen.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=""http://www.ruanchen.com"" itemtitle=""软晨学习网""/>"
msg=msg & "</bcaster>"
call CreateFile(msg,"x1.xml")
评论 (0) All
