隨筆-47  評論-14  文章-0  trackbacks-0
          一個客戶提供一個股價的信息,要求放在頁面上,顯示一些數據,需要從遠程獲取xml,然后解析寫在網頁上,開始不會覺得很難,其實蠻簡單的,先用javascript寫了一個:
                      <script language=javascript>
                       var xmlDoc = new ActiveXObject("Microsoft.XMLDOM");
                       xmlDoc.async="false";
                       xmlDoc.load("http://****.com/scripts/****.asp?subcode=C22");
                       nodes = xmlDoc.documentElement.childNodes;
                       var text = xmlDoc.selectSingleNode("http://last").text
                       document.write(text);
                       </script>
          http://****.com/scripts/****.asp?subcode=C22 ,是客戶提供的頁面,其實是xml的內容,這里直接調用windows的組件進行讀取,然后調用其中一個selectSingleNode的方法,讀出last字段的內容;
          VBscript也寫了一個,其實差不多,不過有一點不同,asp中VB的不能直接讀取遠程xml的內容,很奇怪,不知道是不是由于VB的限制:

            dim XMLMorntekDocument
            Set http=Server.CreateObject("Microsoft.XMLHTTP")
            http.Open "GET","http://****com/scripts/******.asp?subcode=C22",False
            http.send
            Set XMLMorntekDocument=Server.CreateObject("Microsoft.XMLDOM")
            XMLMorntekDocument.Async=False
            XMLMorntekDocument.ValidateOnParse=False
            XMLMorntekDocument.Load(http.ResponseXML)
            price = XMLMorntekDocument.selectSingleNode("http://last").text
            response.write price
            Set http=Nothing
            Set XMLMorntekDocument=Nothing

          這里先用XMLHTTP的方法,get到xml文件,然后再解析。
          posted on 2005-04-16 14:03 Stephen 閱讀(292) 評論(0)  編輯  收藏 所屬分類: Others
          主站蜘蛛池模板: 类乌齐县| 壶关县| 高密市| 莲花县| 久治县| 墨竹工卡县| 九江县| 松溪县| 仪陇县| 尖扎县| 华容县| 新兴县| 肥西县| 施甸县| 乌兰浩特市| 邮箱| 阜平县| 额尔古纳市| 石狮市| 翁牛特旗| 武夷山市| 河南省| 阜南县| 二连浩特市| 融水| 松潘县| 上杭县| 玉树县| 通城县| 白城市| 三原县| 临清市| 榆社县| 临泽县| 蚌埠市| 霞浦县| 广安市| 大埔区| 连城县| 绩溪县| 天长市|