asp下利用XMLHTTP 从其他页面获取数据的代码

利用XMLHTTP 从其他页面获取数据

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

下面的代码就是一个很简单的例子，我们利用xmlhttp技术，把http://www.xxxx.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>

赞 (0)

相关推荐

  • asp下利用XMLHTTP 从其他页面获取数据的代码

    利用XMLHTTP 从其他页面获取数据 我们在编写ASP代码的时候,大家都知道可以通过post或者get获得form表单的数据,那么我们如何直接获得其他页面上的数据呢?这就要借助xmlhttp协议了.xmlhttp是xmldom技术的一部分. 下面的代码就是一个很简单的例子,我们利用xmlhttp技术,把http://www.xxxx.com/站点首页的代码以xml的形式完全获取,并且在页面中输出. <% Dim objXMLHTTP, xml Set xml = Server.CreateOb

  • bootstrap select2 动态从后台Ajax动态获取数据的代码

    效果图展示: 实现方式: 前端代码: <div class="form-group"> <label class="font-noraml">动态多选</label> <select id="bsselect2ID" name="bsselect2ID" class="form-control select2-multiple" type="text&qu

  • ASP.NET通过更改Url进行页面传值的实现代码

    这里,通过假数据,手动创建的一个类,然后创建的一个集合,放入下拉框,选好值以后,点确定 会在另一个页面产生对应的id 创建一个类: using System; using System.Collections.Generic; using System.Linq; using System.Web; namespace WebApplication1 { public class Dept { public int Id { get; set; } public string DeptName

  • 利用jQuery接受和处理xml数据的代码(.net)

    利用jQuery接受和处理xml数据的代码(.net)

    效果如下: 服务器端 复制代码 代码如下: package com.ljq.test; import javax.servlet.http.HttpServlet; import javax.servlet.http.HttpServletRequest; import javax.servlet.http.HttpServletResponse; import javax.servlet.ServletException; import java.io.IOException; import

  • asp下利用xml打包网站文件

    这个方法可以把整个文件夹打包到xml文件中,把这个xml文件文件和解包文件放在一起后,运行解包文件就可以把原来的文件释放出来,这样我们就可以把网站打包上传到虚拟主机,再运行解包文件就可以了.我在本地测试之选择了少部分文件,不知在文件很多的情况执行效率如何.     其实实现的思路也很简单,主要利用的是xml文件可以存放二进制数据的原理.有兴趣的朋友可以下载下面的附件研究下!! 解包文件 复制代码 代码如下: <%@LANGUAGE="VBSCRIPT" CODEPAGE=&quo

  • asp下利用fso实现文件夹或文件移动改名等操作函数

    asp利用fso实现文件的移动function movefiles(sFolder,dFolder)     on error resume next     dim fso     set fso = server.createobject("scripting.filesystemobject")     if fso.folderexists(server.mappath(sFolder)) and fso.folderexists(server.mappath(dFolder)

  • asp中利用xmlhttp抓取网页内容的代码

    需要分件html源代码 此例中的被抓取的html源代码如下 <p align=left>2004年8月24日星期二:白天:晴有时多云南风3-4级:夜间:晴南风3-4级:气温:最高29℃最低19℃ </p> 而程序中是从 以2004年8月24日为关键字搜索,直到</p>结速 而抓取的内容就变成了"2004年8月24日星期二:白天:晴有时多云南风3-4级:夜间:晴南风3-4级:气温:最高29℃最低19℃ " 干干净净的了.记录一下. 复制代码 代码如下:

  • asp与php中定时生成页面的思路与代码

    PHP版本的的定时生成页面的: <?php $file = dirname(__FILE__).'/index.html'; $timex=time()-filemtime($file); //间隔时间,单位秒 if($timex>7200){ //间隔大于2小时,重新生成 echo "<script language=javascript src='crhtml.php'></script>"; } ?> ASP版本的的定时生成页面的: &l

  • 利用AJAX实现鼠标悬浮获取值的代码

    客户端代码mouseover.php 复制代码 代码如下: <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <

  • ASP.NET MVC 从IHttp到页面输出的实例代码

    复制代码 代码如下: MVCHandler : IHttpHandlervoid IHttpHandler.ProcessRequest(HttpContext httpContext){    this.ProcessRequest(httpContext);} protected virtual void ProcessRequest(HttpContext httpContext){    HttpContextBase base2 = new HttpContextWrapper(htt

随机推荐