Get data from other pages using XMLHTTP
When we write ASP code, everyone knows that we can obtain form form data through post or get. So how do we directly obtain data on other pages? This requires the use of the xmlhttp protocol. xmlhttp is part of xmldom technology.
The following code is a very simple example. We use xmlhttp technology to completely obtain the code on the home page of http://www.xxxx.com/ in the form of xml and output it on the page.
<%
DimobjXMLHTTP,xml
Setxml=Server.CreateObject("Microsoft.XMLHTTP")
xml.Open"GET","http://www.codetoad.com/",False
'Pullthedatafromthewebpage
xml.Send
Response.write "Here'sthehtmlwenowhaveinourxmlobject"
Response.write"<BR><BR><BR>"
Response.Write"<xmp>"
Response.Writexml.responseText
Response.Write"</xmp>"
Response.write"<BR><BR><BR>"
Response.write "Nowhere'showthepagelooks:<BR><BR>"
Response.Writexml.responseText
Setxml=Nothing
%>
Here is another example
<%
dimobjHTTP,objXML,objXSL
setobjHTTP=Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.open"GET","http://p.moreover.com/cgi-local/page?c=Pop%20music%20reviews&o=xml",false
objHTTP.send
setobjXML=objHTTP.responseXML
setobjXSL=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
endif
SetobjHTTP=Nothing
SetobjXML=Nothing
SetobjXSL=Nothing
%>
style.xsl:
<xsl:stylesheetxmlns:xsl="http://www.w3.org/TR/WD-xsl">
<xsl:templatematch="/">
<html>
<head>
<TITLE>moreover...</TITLE>
</head>
<bodyBGCOLOR="ffffff">
<DIVALIGN="center">
<TABLEBGCOLOR="ffffff"BORDER="0"CELLPADDING="4"CELLSPACING="0"WIDTH="100%">
<xsl:for-eachselect="moreovernews/article">
<TRVALIGN="middle">
<TDALIGN="left"BGCOLOR="ffffff">
<xsl:attributename="HREF">
<xsl:value-ofselect="url"/>
</xsl:attribute>
<xsl:attributename="TARGET">
_blank
</xsl:attribute>
<xsl:value-ofselect="headline_text"/>