企業與個人網絡營銷一站式服務商
        網站建設 / 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一区二区| 国产成人无码AV麻豆| 国产V亚洲V天堂A无码| 最好看最新的中文字幕免费| 久久精品无码一区二区无码| 色综合久久最新中文字幕| 亚洲AV无码国产精品麻豆天美| 精品无码三级在线观看视频| 日韩av无码中文无码电影| 成人免费无码H在线观看不卡 | 最近高清中文在线国语字幕5 | 亚洲欧美日韩在线不卡中文 | 亚欧无码精品无码有性视频 | 性无码专区无码片| 伊人久久无码中文字幕| 亚洲日韩av无码| 日本精品中文字幕| 精品人妻系列无码人妻免费视频 | AV无码人妻中文字幕| 最近2019中文字幕大全第二页| 午夜精品久久久久久久无码| 成人无码区免费A片视频WWW| 丝袜熟女国偷自产中文字幕亚洲 | 亚洲久本草在线中文字幕| 精品无码AV一区二区三区不卡| 亚洲七七久久精品中文国产| 亚洲中文字幕日本无线码| 久久久无码精品亚洲日韩蜜臀浪潮| 精品人妻V?出轨中文字幕| 亚洲AV无码乱码精品国产| 无码人妻久久久一区二区三区| 一夲道DVD高清无码| 无码专区中文字幕无码| 久久久精品人妻无码专区不卡| 无码人妻黑人中文字幕| 少妇性饥渴无码A区免费| 亚洲欧美中文字幕| 国产精品 中文字幕 亚洲 欧美 | 亚洲中文字幕丝袜制服一区| 亚洲乱码中文字幕综合|