日韩欧美伦理_精品成人乱色一区二区_国产精品巨作av_欧美视频国产精品

湖南長沙八年做網站,網絡優化推廣服務團隊,讓您小投資大回報,幫您打開網絡營銷財富之門!
 業務服務熱線:0731-88571521  13637482004  
 


地址:長沙市韶山南路248號南園503
      室(瀟湘晨報旁)
電話:0731-88571521
手機:136-3748-2004
Q  Q:44377655 522392221
網址:www.774sw.com
郵箱:522392221@qq.com
精辟網文
長沙做網站聯系電話:0731-88571521 13637482004

ASP生成XML動態數據讀取代碼實例

信息來源:長沙做網站   發布時間:2014-2-12   瀏覽:

網站建設ASP生成XML動態數據讀取代碼實例

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



相關熱點文章


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

主站蜘蛛池模板: 和平县| 武功县| 久治县| 丹阳市| 灌阳县| 南康市| 保靖县| 阿图什市| 邵阳市| 墨竹工卡县| 胶州市| 固始县| 济南市| 鄂尔多斯市| 油尖旺区| 赤壁市| 饶阳县| 嵊泗县| 手游| 文山县| 海南省| 佛学| 高唐县| 富川| 祁阳县| 鹤壁市| 贺兰县| 浦城县| 乐山市| 贺州市| 德昌县| 宜兰县| 南陵县| 崇信县| 从江县| 蚌埠市| 咸阳市| 甘泉县| 台中县| 麟游县| 永嘉县|