企業與個人網絡營銷一站式服務商
        網站建設 / SEO優化排名 / 小程序開發 / OA
        0731-88571521
        136-3748-2004
        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>




        上一條: asp做網站中如何循環輸出26個英文字母
        下一條: 長沙做網站想要超越競爭對手需全面重視網站優化
        案例鑒賞
        多年的網站建設經驗,斌網網絡不斷提升技術設計服務水平,迎合搜索引擎優化規則
        精辟網文
        多年的網站建設經驗,網至普不斷提升技術設計服務水平,迎合搜索引擎優化規則
        長沙私人做網站    長沙做網站    深圳網站建設    株洲做網站    東莞做網站    南京防腐木    湖南大拇指養豬設備    株洲做網站    
        版權所有 © 長沙市天心區斌網網絡技術服務部    湘公網安備 43010302000270號  統一社會信用代碼:92430103MA4LAMB24R  網站ICP備案號:湘ICP備13006070號-2  
        亚洲AV日韩AV高潮无码专区| 亚洲成?v人片天堂网无码| 午夜无码国产理论在线| 日本精品久久久久中文字幕8| 无码AV动漫精品一区二区免费| 无码专区中文字幕无码| 国产真人无码作爱免费视频| 国产一区三区二区中文在线| 无码超乳爆乳中文字幕久久| 亚洲中文字幕无码久久综合网| 无码人妻丝袜在线视频| 18禁黄无码高潮喷水乱伦| 最近免费视频中文字幕大全| 波多野结衣AV无码| 伊人久久无码精品中文字幕 | 免费A级毛片无码A∨中文字幕下载| 国产成人无码免费网站| 熟妇人妻系列av无码一区二区| 久久精品无码专区免费| 亚洲一区爱区精品无码| 国产中文字幕在线视频| 精品无码久久久久久久久久 | 亚洲福利中文字幕在线网址 | 久久精品国产亚洲AV无码偷窥 | 无码一区二区三区在线观看| 亚洲伦另类中文字幕| 无码人妻精品一区二区蜜桃百度| 亚洲国产精品无码久久98| 99高清中文字幕在线| 精品无码综合一区| 日韩精品无码熟人妻视频| 日本无码色情三级播放| 国产在线精品一区二区中文| 久久久久亚洲AV无码专区网站| 亚洲AV无码久久精品成人| 7国产欧美日韩综合天堂中文久久久久 | 亚洲AV永久无码区成人网站| 日韩欧美一区二区三区中文精品 | 亚洲精品无码专区久久久 | 亚洲∧v久久久无码精品| 日本无码WWW在线视频观看|