asp操作xml的有关问题

asp操作xml的问题

XML code

<?xml version="1.0"?> 
<Banner 
    bannerWidth="310"
    bannerHeight="116"

    textSize="14"
    textColor=""
    textAreaWidth=""
    textLineSpacing="0"    
    textLetterSpacing="-0.5"    
    textMarginLeft="12"
    textMarginBottom="3"
    
    transitionType="1"
    transitionDelayTimeFixed="2.5" 
    transitionDelayTimePerWord=".5"
    transitionSpeed="8"
    transitionBlur="yes"
    transitionRandomizeOrder="no"    
    
    showTimerClock="yes"
    showBackButton="yes"
    showNumberButtons="yes"
    showNumberButtonsAlways="Yes"
    showNumberButtonsHorizontal="yes"
    showNumberButtonsAscending="yes"
    autoPlay="yes">
    
    <item image="../images/b1.jpg" link="#" textBlend="no"><![CDATA[]]></item>

    <item image="../images/b2.jpg" link="#" textBlend="no"><![CDATA[]]></item>

    <item image="../images/b3.jpg" link="#" textBlend="no"><![CDATA[]]></item>

    <item image="../images/b4.jpg" link="#" textBlend="no"><![CDATA[]]></item>

    <item image="../images/b5.jpg" link="#" textBlend="no"><![CDATA[]]></item>    
</Banner>

我想用程序 从db读取生成item列表，如何实现？

------解决方案--------------------
<!--#include file="M_conn.asp"-->
<%
username=request("username")
set rshot=server.CreateObject("adodb.recordset")
sql="select * from TZ_all where username='"&username&"' order by id desc"
rshot.open sql,conn,1,1
if not (rshot.eof and rshot.bof) then
i=0
do while not rshot.eof
line=line&" <value xid="""&i&""">"&rshot("rl_time")&"</value>"&vbcrlf&""
line2=line2&" <value xid="""&i&""">"&rshot("rl")&"</value>"&vbcrlf&""
i=i+1
rshot.movenext
loop
end if
rshot.close
set rshot=nothing

xmlfile=server.mappath("/party/amline/value_indicator/amline_rl_"&username&".xml")
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile(xmlfile,True)
MyFile.WriteLine("<?xml version=""1.0"" encoding=""UTF-8""?>")
MyFile.WriteLine("<chart>")
MyFile.WriteLine(" <series>")
MyFile.WriteLine line
MyFile.WriteLine(" </series>")
MyFile.WriteLine(" <graphs>")
MyFile.WriteLine(" <graph gid=""1"">")
MyFile.WriteLine line2
MyFile.WriteLine(" </graph>")
MyFile.WriteLine(" </graphs>")
MyFile.WriteLine("</chart>")
MyFile.Close
response.Redirect("m_my_bar.asp?username="&username&"")
%>


<%
xmlfile=server.mappath("test1.xml")
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile(xmlfile,True)
MyFile.WriteLine("<?xml version=""1.0"" encoding=""UTF-8""?>")
MyFile.WriteLine("<chart>")

MyFile.WriteLine(" <series>")