我们在编写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
Response.Write xml.responseText
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...
本文作者:佚名 来源:http://www.bjcan.com/hengxing/
CIO之家 www.ciozj.com 微信公众号:imciow