如何将asp生成的xml代码,写成xml文件
<!--#include file="conn.asp">
<%@codepage=936%>
<%
Dim mysql,rs,mychar,sXmlClear,sRssHead,sRssEnd,textC,replacetext,replacetext1,temptext
mychar = chr(13) & chr(10)
sXmlClear = "<?xml version='1.0' encoding='gb2312'?>"&mychar
sRssHead = "<rss version='2.0'>"&mychar
sRssHead = sRssHead & "<channel>"&mychar
sRssHead = sRssHead & "<title>test</title>"&mychar
sRssHead = sRssHead & "<description>test</description>"&mychar
sRssHead = sRssHead & "<link>http://www.test.com</link>"&mychar
sRssHead = sRssHead & "<language>zh-cn</language>"&mychar
sRssEnd = "</channel></rss>"
response.charset="gb2312"
response.contenttype="text/xml"
response.write sXmlClear
response.write sRssHead
set rs = conn.execute("select top 20 * from test order by test desc")
do while not rs.eof
response.write"<item>"&mychar
response.write"<title>"&rs("test")&"</title>"&mychar
response.write"<link>http://www.tests.com/</link>"&mychar
response.write"<description>test</description>"&mychar
response.write"<language>zh-cn</language>"&mychar
response.write"</item>"&mychar
rs.movenext
loop
response.write sRssEnd
%>
上面的asp代码生成了一段xml代码,如何将这些代码生成xml文档?谢谢!
已经搜索过原来的帖子,看到有人说用fso写,但是本人新手,不太了解具体写法.有没有朋友帮忙帖出相应的代码,谢谢了!
问题点数：50、回复次数：3Top
1 楼net_lover（【孟子E章】）回复于 2006-03-18 14:55:39 得分 0
Const ForReading = 1, ForWriting = 2
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(Server.MapPath("testfile.xml"), ForWriting, True)
f.WriteLine "<xml>hello</xml>"
f.WriteLine "<xml>hello2</xml>"
f.CloseTop
2 楼net_lover（【孟子E章】）回复于 2006-03-18 14:57:37 得分 50
也可以用xmldom来做
http://www.contnew.com/tech/develop/asp/2005/5/18_515117_01.htmlTop
3 楼ssdx（未来啊未来）回复于 2006-03-18 16:56:49 得分 0
代码如下:
<%@codepage=936%>
<!--#include file="conn.asp"-->
<%
const ForReading =1,ForWriting =2
dim fso,f
set fso = createObject("Scripting.FileSystemObject")
set f = fso.Open.TextFile(Server.MapPath("test.xml"),ForWriting,True)
set rs = conn.execute("select top test * from test order by test desc")
do while not rs.eof
f.WriteLine"<xml>test</xml>"
rs.movenext
loop
f.close
%>
执行完此段程序后,test.xml文件还是为空,没有写入任何数据,请问一下我上面代码逻辑或者语法有什么错误吗?Top
