asp怎么读取不到xml信息

最新推荐文章于 2024-12-11 09:14:34 发布

vinceding

最新推荐文章于 2024-12-11 09:14:34 发布

阅读量1.5k

点赞数

CC 4.0 BY-SA版权

分类专栏： ASP 文章标签： xml asp vbscript header url

本文链接：https://blog.youkuaiyun.com/vince6799/article/details/2880733

ASP 专栏收录该内容

40 篇文章

订阅专栏

这篇博客记录了一位开发者在使用ASP从XML地址读取数据时遇到的问题及解决方案。通过创建Microsoft.XMLHTTP对象并发送GET请求，开发者发现原本的URL无法正确获取XML数据，原因是URL中参数的大小写敏感性导致。将URL中的参数'z25'改为'Z25'后，程序能够成功获取并解析XML文件中的股票信息。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

今天突然在网上发现自己以前的一个求助的帖子,问题已经解决了,今天就把它收到博客里来.
一个客户需要在网上读取准实时的公司股票信息,客户提供如下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>
怎么获取?
代码如下:

 
 <%@   Language=VBScript   %>   
  <%on   error   resume   next   
  '   define   the   variables    
  dim   objHTTP   
  dim   objXML   
  dim   objLst   
    
  '   set-up   XMLHTTP    
  set   objHTTP   =   Server.CreateObject("Microsoft.XMLHTTP")   
    
  '   get   the   requested   XML   data   from   the   remote   location    
  '   change   the   URL   as   per   your   feed.    
  objHTTP.open   "GET",   "http://esite.sgx.com/scripts/GenXML_SGXPriceMDDL.asp?subcode=z25",   false   
  objHTTP.send   
    
  '   save   the   XML   in   objXML   as   XML    
  set   objXML   =   objHTTP.responseXML   
  %>   
    
  <%   
  Set   objLst   =   Server.CreateObject("Microsoft.XMLDOM")   
  Set   objConfig   =   Server.CreateObject("Microsoft.XMLDOM")   
    
  objXML.async   =   False   
    
  If   objXML.parseError.errorcode   <>   0   then   
  '   Error   parsing   XML   file    
  Response.Write   "Error   parsing   XML   File"   
    
  Else   
  '   No   error    
  Set   objLst   =   objXML.getElementsByTagName("equityDomain")   
  Set   objConfig   =   objLst.item(0).childNodes(0)   
  nameFull   =   objConfig.childNodes(2).text   
    
  Set   objLst   =   objXML.getElementsByTagName("tradePrice")   
  Set   objConfig   =   objLst.item(0)   
  prevClose   =   objConfig.childNodes(0).text   
  curOpen   =   objConfig.childNodes(1).text 
last   =   objConfig.childNodes(2).text   
  bid   =   objConfig.childNodes(3).text   
  offer   =   objConfig.childNodes(4).text   
  high   =   objConfig.childNodes(5).text   
  low   =   objConfig.childNodes(6).text   
  change   =   objConfig.childNodes(7).text   
  percent   =   objConfig.childNodes(8).text   
    
  Set   objLst   =   objXML.getElementsByTagName("tradeVolume")   
  Set   objConfig   =   objLst.item(0)   
  bidVol   =   objConfig.childNodes(0).text   
  offerVol   =   objConfig.childNodes(1).text   
  totalVol   =   objConfig.childNodes(2).text   
    
  Set   objLst   =   objXML.getElementsByTagName("header")   
  Set   objConfig   =   objLst.item(0)   
  last_update_datetime   =   objConfig.childNodes(0).text   
  neirong2   =   objConfig.childNodes(1).text   
    
  End   If   
    
  Set   objXML   =   Nothing   
  Set   objLst   =   Nothing   
  Set   objConfig   =   Nothing   
    
     
    %>   