首页  ·  知识 ·  前端
利用XMLHTTP从其他页面获取数据
佚名  http://www.bjcan.com/hengxing/  综合  编辑:dezai  图片来源:网络
我们在编写ASP代码的时候,大家都知道可以通过post或者get获得form表单的数据,那么我们如何直接获得其他页面上的数据呢?这就要借助xmlhttp协议了。xmlhttp

我们在编写ASP代码的时候,大家都知道可以通过post或者get获得form表单的数据,那么我们如何直接获得其他页面上的数据呢?这就要借助xmlhttp协议了。xmlhttp是xmldom技术的一部分。

下面的代码就是一个很简单的例子,我们利用xmlhttp技术,把http://www.codetoad.com/站点首页的代码以xml的形式完全获取,并且在页面中输出。

<%
  Dim objXMLHTTP, xml
  Set xml = Server.CreateObject(Microsoft.XMLHTTP)
 
  xml.Open GET, http://www.codetoad.com/, False
  ' Pull the data from the web page
  xml.Send

  Response.write Here's the html we now have in our xml object
  Response.write



  Response.Write

<BR>  Response.Write xml.responseText<BR>  Response.Write
  Response.write



 Response.write Now here's how the page looks:


  Response.Write xml.responseText
 
  Set xml = Nothing
%>

下面是另一个实例

<%
dim objHTTP , objXML , objXSL
set objHTTP = Server.CreateObject(Microsoft.XMLHTTP)
objHTTP.open GET, http://p.moreover.com/cgi-local/page?c=Pop%20music%20reviews&o=xml, false
objHTTP.send
set objXML = objHTTP.responseXML
set objXSL=Server.CreateObject(microsoft.xmldom)
objXSL.async=false

objXSL.load(Server.MapPath(style.xsl))

if (objXSL.parseError.errorCode = 0) then
    Response.Write(objXML.transformnode(objXSL))
else
    Response.Write Error: & objXSL.parseError.reason & URL: & objXSL.url
end if

Set objHTTP = Nothing
Set objXML = Nothing
Set objXSL = Nothing
%>

style.xsl:
http://www.w3.org/TR/WD-xsl>
   



moreover...


 


     
      
        


          
        
         
      



            
                  
            
              
            

            
               _blank
            

            
              
            
          
        
        
                
          
            
          

          
             _blank
          

          
            
          
        
                
          
          
          

          
             _blank
          

          
            
          
        
        
           GMT
        
          




   
 

本文作者:佚名 来源:http://www.bjcan.com/hengxing/
CIO之家 www.ciozj.com 微信公众号:imciow
   
免责声明:本站转载此文章旨在分享信息,不代表对其内容的完全认同。文章来源已尽可能注明,若涉及版权问题,请及时与我们联系,我们将积极配合处理。同时,我们无法对文章内容的真实性、准确性及完整性进行完全保证,对于因文章内容而产生的任何后果,本账号不承担法律责任。转载仅出于传播目的,读者应自行对内容进行核实与判断。请谨慎参考文章信息,一切责任由读者自行承担。
延伸阅读