快精灵印艺坊 您身边的文印专家
广州名片 深圳名片 会员卡 贵宾卡 印刷 设计教程
产品展示 在线订购 会员中心 产品模板 设计指南 在线编辑
 首页 名片设计   CorelDRAW   Illustrator   AuotoCAD   Painter   其他软件   Photoshop   Fireworks   Flash  

 » 彩色名片
 » PVC卡
 » 彩色磁性卡
 » 彩页/画册
 » 个性印务
 » 彩色不干胶
 » 明信片
   » 明信片
   » 彩色书签
   » 门挂
 » 其他产品与服务
   » 创业锦囊
   » 办公用品
     » 信封、信纸
     » 便签纸、斜面纸砖
     » 无碳复印纸
   » 海报
   » 大篇幅印刷
     » KT板
     » 海报
     » 横幅

利用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 "<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">




<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 name="HREF">
        <xsl:value-of select="url"/>
       </xsl:attribute>
       <xsl:attribute name="TARGET">
        _blank
       </xsl:attribute>
      
        <xsl:value-of select="headline_text"/>
      
     
    
    
        
      <xsl:attribute name="HREF">
       <xsl:value-of select="document_url"/>
      </xsl:attribute>
      <xsl:attribute name="TARGET">
       _blank
      </xsl:attribute>
     
       <xsl:value-of select="source"/>
     
    
        
      <xsl:attribute name="HREF">
      <xsl:value-of select="access_registration"/>
      </xsl:attribute>
      <xsl:attribute name="TARGET">
       _blank
      </xsl:attribute>
     
       <xsl:value-of select="access_status"/>
     
    
    
      <xsl:value-of select="harvest_time"/> GMT
    
      </TD>
     </TR>
     
    </xsl:for-each>


</TABLE>
</DIV>
</body>
</html>
  </xsl:template>
 </xsl:stylesheet>
返回类别: 教程
上一教程: XML编程实例(一)
下一教程: 利用XMLHTTP无刷新添加数据之Get篇

您可以阅读与"利用XMLHTTP 从其他页面获取数据"相关的教程:
· 利用XMLHTTP无刷新自动实时更新数据
· 利用XML不离开页面刷新数据
· XMLHTTP异步获取网站数据的例子
· 利用XMLHTTP无刷新添加数据之Get篇
· xmlhttp组件获取远程文件并筛选出目标数据
    微笑服务 优质保证 索取样品