Question

求一段asp查询的生成xml文本文件代码

查询方法index.asp?id=表id的形式&xml=所要生成的xml文件名
查询的数据库地址为：二级目录下mp3url.mdb文件库下有二十多个表

要查询的表为KS_Article
段名Title(文本)，Field(文本),Articlecontent(Text,过滤html标记处理：30个符,...,字段值为空时输出：无相关内容)，Adddate(Date,YYYY-MM-DD)，PhotoUrl(Text,字段值为空时输出：/swf.gif),mp3url(Text,字段值为空时输出：/swf.flv),

输出为文件:所要生成的xml文件名 "gb2312" 编码

内容为:
<?xml version="1.0" encoding="gb2312" standalone="yes"?>
<musiclist>
<music>
<title>(字段Title)主题</title>
<sbt>(字段Field,Articlecontent)内容1，2</sbt>
<dd>(字段Adddate)时间</dd>
<img>(字段PhotoUrl)图片地址</img>
<url>(字段mp3url)mp3地址</url>
</music>
</musiclist>

查询方法index.asp?id=表id的形式&xml=所要生成的xml文件名
查询的数据库地址为：二级目录下mp3url.mdb文件库下有二十多个表

要查询的表为KS_Article
段名Title(文本)，Field(文本),Articlecontent(Text,过滤html标记处理：30个符,...,字段值为空时输出：无相关内容)，Adddate(Date,YYYY-MM-DD)，PhotoUrl(Text,字段值为空时输出：/swf.gif),mp3url(Text,字段值为空时输出：/swf.flv),

输出为文件:所要生成的xml文件名 "gb2312" 编码

内容为:
<?xml version="1.0" encoding="gb2312" standalone="yes"?>
<musiclist>
<music>
<title>(字段Title)主题</title>
<sbt>(字段Field,Articlecontent)内容1，2</sbt>
<dd>(字段Adddate)时间</dd>
<img>(字段PhotoUrl)图片地址</img>
<url>(字段mp3url)mp3地址</url>
</music>
</musiclist>

请问这个asp文件怎么写

Answer 1

<%
sText = "<?xml version=""1.0"" encoding=""gb2312"" standalone=""yes""?>
<musiclist>
<music>
<title>(字段Title)主题</title>
<sbt>(字段Field,Articlecontent)内容1，2</sbt>
<dd>(字段Adddate)时间</dd>
<img>(字段PhotoUrl)图片地址</img>
<url>(字段mp3url)mp3地址</url>
</music>
</musiclist>
"
Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
filename="ks.xml"
Set openFile=FileObject.OpenTextfile(server.mapPath(filename),2,true)
openFile.writeline(sText)
Set OpenFile=nothing
response.write("搞定 生成成功")
%>

将上面一段保存成xml.asp filename="ks.xml" 这个文件名要根据xml.asp来改变