湖南長沙八年做網(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.boundlesssupremacy.com
        郵箱:522392221@qq.com
        精辟網(wǎng)文
        長沙做網(wǎng)站聯(lián)系電話:0731-88571521 13637482004

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

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

        網(wǎng)站建設(shè)ASP生成XML動態(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.boundlesssupremacy.com   www.pk0731.com
        旗下網(wǎng)站:斌網(wǎng)網(wǎng)絡(luò)  長沙信息處  佛佛網(wǎng)  曬土貨網(wǎng)

        亚洲成A∨人片天堂网无码| 中文无码成人免费视频在线观看| 亚洲av无码一区二区三区人妖| 久久精品?ⅴ无码中文字幕| 久久久久久久亚洲Av无码| 中文无码vs无码人妻| 综合国产在线观看无码| 少妇精品无码一区二区三区| 婷婷综合久久中文字幕| 无码AV一区二区三区无码| 无码人妻一区二区三区在线| 亚洲日韩中文在线精品第一| 欧美日本道中文高清| 国产久热精品无码激情| 亚洲自偷自偷偷色无码中文 | 国产成人麻豆亚洲综合无码精品 | 国产精品无码无需播放器| 无码人妻精品一区二区蜜桃网站| 色噜噜亚洲精品中文字幕| 人妻一区二区三区无码精品一区| 国产乱人伦Av在线无码| 少妇无码AV无码专区在线观看| 毛片免费全部播放无码| 中文字幕在线看日本大片| 天堂中文8资源在线8| 日韩欧美一区二区不卡中文| 亚洲最大av无码网址| 无码人妻精品一区二区三区99不卡| 国产成人无码综合亚洲日韩| 日韩AV无码久久一区二区| 无码少妇一区二区三区浪潮AV| 亚洲国产精品无码久久久秋霞2 | 国产精品视频一区二区三区无码| 亚洲av永久无码精品漫画| 亚洲AV综合色区无码一区爱AV | 亚洲精品无码久久一线| 日韩AV高清无码| 丰满日韩放荡少妇无码视频| 久久AV无码精品人妻糸列| 亚洲av无码一区二区三区不卡| 亚洲国产精品无码中文字|