ASP生成XML动态数据读取代码示例
发布时间:2022-01-11 14:25:39 所属栏目:Asp教程 来源:互联网
导读:!--#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
<!--#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>") MyFile.WriteLine(" <value xid=""0"">1997</value>") MyFile.WriteLine(" <value xid=""1"">1997</value>") MyFile.WriteLine(" </series>") MyFile.WriteLine(" <graphs>") MyFile.WriteLine(" <graph gid=""1"">") MyFile.WriteLine(" <value xid=""0"">50</value>") MyFile.WriteLine(" <value xid=""1"">50</value>") MyFile.WriteLine(" </graph>") MyFile.WriteLine(" </graphs>") MyFile.WriteLine("</chart>") MyFile.Close %> <a href="test1.xml">查看XML文件内容</a> (编辑:成都站长网) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |