用XMLHttp获取服务器页面数据实例

<%
  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 "<BR><BR><BR>"
  Response.Write "<xmp>"
  Response.Write xml.responseText
  Response.Write "</xmp>"
  Response.write "<BR><BR><BR>"
 Response.write " Now here's how the page looks:<BR><BR>"
  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

<xsl:stylesheet xmlns:xsl="http://www.w3.org/TR/WD-xsl">

    <xsl:template match="/">

<html>

<head>

<TITLE>moreover...</TITLE>

</head>

<body BGCOLOR="ffffff">

<!--[if !supportEmptyParas]--> <!--[endif]-->

 

<DIV ALIGN="center">

<TABLE BGCOLOR="ffffff" BORDER="0" CELLPADDING="4" CELLSPACING="0" WIDTH="100%">

      <xsl:for-each select="moreovernews/article">

      

         <TR VALIGN="middle">

           <TD ALIGN="left" BGCOLOR="ffffff">

            

                  

             <xsl:attribute >

               <xsl:value-of select="url"/>

             </xsl:attribute>

             <xsl:attribute >

               _blank

             </xsl:attribute>

             

             <xsl:value-of select="headline_text"/>

                 

           <xsl:attribute >

             <xsl:value-of select="document_url"/>

           </xsl:attribute>

           <xsl:attribute >

             _blank

           </xsl:attribute>

          

             <xsl:value-of select="source"/>

          

        

                 

           <xsl:attribute >

           <xsl:value-of select="access_registration"/>

           </xsl:attribute>

           <xsl:attribute >

             _blank

           </xsl:attribute>

          

             <xsl:value-of select="access_status"/>

 

           <xsl:value-of select="harvest_time"/> GMT

        

           </TD>

         </TR>

         

       </xsl:for-each>

<!--[if !supportEmptyParas]--> <!--[endif]-->

</TABLE>

</DIV>

</body>

</html>

    </xsl:template>

  </xsl:stylesheet>

 
  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值