用户登录  |  用户注册
首 页源码下载技术资讯工具素材字体下载PPT模板休闲游戏站长工具加入收藏
当前位置:第一源码网技术资讯ASP技术

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

减小字体 增大字体 作者:佚名  来源:本站整理  发布时间:2012-09-23 00:40:09

<!--#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>


Tags:

作者:佚名

文章评论评论内容只代表网友观点,与本站立场无关!

   评论摘要(共 0 条,得分 0 分,平均 0 分) 查看完整评论
Copyright © 2010-2012 1SRC.Net. All Rights Reserved .
沪ICP备12037173号 页面执行时间:2,578.12500 毫秒