ASP生成XML动态数据读取代码实例

                  
"&rshot("rl_time")&""&vbcrlf&""
line2=line2&"   "&rshot("rl")&""&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("")
MyFile.WriteLine("")
MyFile.WriteLine(" ")
MyFile.WriteLine line
MyFile.WriteLine(" ")
MyFile.WriteLine(" ")
MyFile.WriteLine("  ")
MyFile.WriteLine line2
MyFile.WriteLine("  ")
MyFile.WriteLine(" ")
MyFile.WriteLine("")
MyFile.Close
response.Redirect("m_my_bar.asp?username="&username&"")
%>
[color=]
")
MyFile.WriteLine("")
MyFile.WriteLine(" ")
MyFile.WriteLine("  1997")
MyFile.WriteLine("  1997")
MyFile.WriteLine(" ")
MyFile.WriteLine(" ")
MyFile.WriteLine("  ")
MyFile.WriteLine("   50")
MyFile.WriteLine("   50")
MyFile.WriteLine("  ")
MyFile.WriteLine(" ")
MyFile.WriteLine("")
MyFile.Close
%>
查看XML文件内容