企業與個人網絡營銷一站式服務商
        網站建設 / 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  
        亚洲国产精品无码AAA片| 中文字幕精品视频在线| 天堂新版8中文在线8| AV无码久久久久不卡蜜桃| 成年午夜无码av片在线观看 | 熟妇人妻中文字幕无码老熟妇| 欧美日韩中文字幕在线看| 精品一区二区三区无码免费视频| 最近中文字幕在线中文视频| 亚洲成a人片在线观看无码专区 | 日韩精品中文字幕第2页| 精品无码国产污污污免费网站 | 伊人久久无码精品中文字幕| 免费看成人AA片无码视频吃奶| 成年免费a级毛片免费看无码| 日韩AV无码中文无码不卡电影| 无码人妻品一区二区三区精99| 久久精品aⅴ无码中文字字幕重口 久久精品天天中文字幕人妻 | 永久免费AV无码网站国产| 中文字幕有码无码AV| 无码av免费一区二区三区| 日本中文字幕中出在线| 国产精品无码a∨精品| 中文午夜乱理片无码| 中文精品久久久久国产网址| 69天堂人成无码麻豆免费视频| 日韩精品无码一区二区三区AV | 精品久久久无码中文字幕| 无码少妇一区二区浪潮av| 无码少妇一区二区| 欧美日韩中文在线| 国产综合无码一区二区三区| 亚洲热妇无码AV在线播放 | 波多野42部无码喷潮在线| 中文字幕乱码无码人妻系列蜜桃| 精品久久久久久久久中文字幕| 人妻少妇无码视频在线| 97免费人妻无码视频| 久久久久亚洲AV无码麻豆| 人妻少妇无码精品视频区| 中文字幕在线免费看线人|