asp怎么读取不到xml信息

今天突然在网上发现自己以前的一个求助的帖子,问题已经解决了,今天就把它收到博客里来.
一个客户需要在网上读取准实时的公司股票信息,客户提供如下xml输出的地址.
现在我要从这个地址上读取信息http://esite.sgx.com/scripts/GenXML_SGXPriceMDDL.asp?subcode=z25  
   
  要获取这段代码的内容:  
  <previousClose>1.200</previousClose>  
  <open>1.200</open>  
  <last>1.200</last>  
  <bid>1.190</bid>  
  <offer>1.200</offer>  
  <high>1.200</high>  
  <low>1.200</low>  
  怎么获取? 
代码如下:

1. <%@   Language=VBScript   %>   
2.   <%on   error   resume   next   
3.   '   define   the   variables   
4.   dim   objHTTP   
5.   dim   objXML   
6.   dim   objLst   
7.     
8.   '   set-up   XMLHTTP   
9.   set   objHTTP   =   Server.CreateObject("Microsoft.XMLHTTP")   
10.     
11.   '   get   the   requested   XML   data   from   the   remote   location   
12.   '   change   the   URL   as   per   your   feed.   
13.   objHTTP.open   "GET",   "http://esite.sgx.com/scripts/GenXML_SGXPriceMDDL.asp?subcode=z25",   false   
14.   objHTTP.send   
15.     
16.   '   save   the   XML   in   objXML   as   XML   
17.   set   objXML   =   objHTTP.responseXML   
18.   %>   
19.     
20.   <%   
21.   Set   objLst   =   Server.CreateObject("Microsoft.XMLDOM")   
22.   Set   objConfig   =   Server.CreateObject("Microsoft.XMLDOM")   
23.     
24.   objXML.async   =   False   
25.     
26.   If   objXML.parseError.errorcode   <>   0   then   
27.   '   Error   parsing   XML   file   
28.   Response.Write   "Error   parsing   XML   File"   
29.     
30.   Else   
31.   '   No   error   
32.   Set   objLst   =   objXML.getElementsByTagName("equityDomain")   
33.   Set   objConfig   =   objLst.item(0).childNodes(0)   
34.   nameFull   =   objConfig.childNodes(2).text   
35.     
36.   Set   objLst   =   objXML.getElementsByTagName("tradePrice")   
37.   Set   objConfig   =   objLst.item(0)   
38.   prevClose   =   objConfig.childNodes(0).text   
39.   curOpen   =   objConfig.childNodes(1).text 
40. last   =   objConfig.childNodes(2).text   
41.   bid   =   objConfig.childNodes(3).text   
42.   offer   =   objConfig.childNodes(4).text   
43.   high   =   objConfig.childNodes(5).text   
44.   low   =   objConfig.childNodes(6).text   
45.   change   =   objConfig.childNodes(7).text   
46.   percent   =   objConfig.childNodes(8).text   
47.     
48.   Set   objLst   =   objXML.getElementsByTagName("tradeVolume")   
49.   Set   objConfig   =   objLst.item(0)   
50.   bidVol   =   objConfig.childNodes(0).text   
51.   offerVol   =   objConfig.childNodes(1).text   
52.   totalVol   =   objConfig.childNodes(2).text   
53.     
54.   Set   objLst   =   objXML.getElementsByTagName("header")   
55.   Set   objConfig   =   objLst.item(0)   
56.   last_update_datetime   =   objConfig.childNodes(0).text   
57.   neirong2   =   objConfig.childNodes(1).text   
58.     
59.   End   If   
60.     
61.   Set   objXML   =   Nothing   
62.   Set   objLst   =   Nothing   
63.   Set   objConfig   =   Nothing   
64.     
65.      
66.     %>   

但是这段代码一直取不到值?

 

问题解决
最后才发现问题不出在程序上,程序写的没有任何问题,原来是调用的xml文件输出地址区分大小写:
http://esite.sgx.com/scripts/GenXML_SGXPriceMDDL.asp?subcode=z25 这个地址本身就没有数据输出
http://esite.sgx.com/scripts/GenXML_SGXPriceMDDL.asp?subcode=Z25这个地址才是对的；
修改
objHTTP.open   "GET",   "http://esite.sgx.com/scripts/GenXML_SGXPriceMDDL.asp?subcode=z25",   false  
为
 objHTTP.open   "GET",   "http://esite.sgx.com/scripts/GenXML_SGXPriceMDDL.asp?subcode=Z25",   false
后就可以正常获取数据了

URL :http://blog.csdn.net/vince6799   

 

原文链接： http://blog.csdn.net/vince6799/article/details/2880733