asp输出XML
发布网友
发布时间：2023-07-30 04:16
共1个回答
热心网友
时间：2024-12-11 22:24
方法一的例子：
xmlfile=server.mappath("1.xml")
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile(xmlfile,True)
MyFile.WriteLine("<?xml version=""1.0"" encoding=""UTF-8""?>")
MyFile.WriteLine("<topStories>")
For i = 0 To m
MyFile.WriteLine("<story1 name=""name1"" id=""id1"" />")
Next
MyFile.WriteLine("</topStories>")
MyFile.Close
方法二：这是个函数 参数filename是文件名称 bodytext是你要输入XML文件内的内容
Function CreateAfile(filename,bodytext)
Dim st
Set st=server.createobject("adodb.stream")
st.type=2
st.mode=3
st.charset="utf-8"
st.open()
st.writetext bodytext
st.savetofile filename,2
st.close()
Set st=Nothing
End Function
