99热精品在线,欧美精,自慰免费,国产亚洲无码一区

湖南長沙八年做網(wǎng)站,網(wǎng)絡(luò)優(yōu)化推廣服務(wù)團(tuán)隊(duì),讓您小投資大回報(bào),幫您打開網(wǎng)絡(luò)營銷財(cái)富之門!
 業(yè)務(wù)服務(wù)熱線:0731-88571521  13637482004  
 


地址:長沙市韶山南路248號南園503
      室(瀟湘晨報(bào)旁)
電話:0731-88571521
手機(jī):136-3748-2004
Q  Q:44377655 522392221
網(wǎng)址:www.sdwxvip.com
郵箱:522392221@qq.com
精辟網(wǎng)文
長沙做網(wǎng)站聯(lián)系電話:0731-88571521 13637482004

ASP生成XML動(dòng)態(tài)數(shù)據(jù)讀取代碼實(shí)例

信息來源:長沙做網(wǎng)站   發(fā)布時(shí)間:2014-2-12   瀏覽:

網(wǎng)站建設(shè)ASP生成XML動(dòng)態(tài)數(shù)據(jù)讀取代碼實(shí)例

<!--#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">長沙斌網(wǎng)網(wǎng)絡(luò)請您 查看XML文件內(nèi)容</a>



相關(guān)熱點(diǎn)文章


地址:長沙市韶山南路248號南園503室(瀟湘晨報(bào)旁)  網(wǎng)站ICP備案號:湘ICP備09008272號  版權(quán)所有:長沙斌網(wǎng)網(wǎng)絡(luò)工作室
咨詢電話:0731-88571521   136-3748-2004
業(yè)務(wù) QQ:客服一 1306053142 客服二 1320506001 技術(shù)/售后 522392221 高級顧問 44377655
服務(wù)郵箱:fanbin@binweb.cn   522392221@qq.com
官方網(wǎng)址:www.sdwxvip.com   www.pk0731.com
旗下網(wǎng)站:斌網(wǎng)網(wǎng)絡(luò)  長沙信息處  佛佛網(wǎng)  曬土貨網(wǎng)