Use XMLHTTP to retrieve data from other pages

Last Update:2018-12-04 Source: Internet

Author: User

Developer on Alibaba Coud: Build your first app with APIs, SDKs, and tutorials on the Alibaba Cloud. Read more ＞

When we compile ASP code, we all know that we can use post or get to get form data. How can we directly obtain data on other pages? This requires the help of the XMLHTTP protocol. XMLHTTP is part of xmldom technology.

The following code is a simple example. We use XMLHTTP technology to retrieve the code on the first page of http://www.codetoad.com/site in XML format and output it on the page.

<%
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>"
Response. Write "<XMP>"
Response. write XML. responsetext
Response. Write "</XMP>"
Response. Write "<br>"
Response. Write "Now here's how the page looks: <br>"
Response. write XML. responsetext

Set xml = nothing
%>

Next is another instance.

<%
Dim objhttp, objxml, objxsl
Set objhttp = server. Createobject ("Microsoft. XMLHTTP ")
Objhttp. Open "get", "http://p.moreover.com/cgi-local/page? C = pop % 20 music % 20 reviews & 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">

<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>

Author's blog:Http://blog.csdn.net/qieyj/

This article is an English version of an article which is originally in the Chinese language on aliyun.com and is provided for information purposes only. This website makes no representation or warranty of any kind, either expressed or implied, as to the accuracy, completeness ownership or reliability of the article or any translations thereof. If you have any concerns or complaints relating to the article, please send an email, providing a detailed description of the concern or complaint, to info-contact@alibabacloud.com. A staff member will contact you within 5 working days. Once verified, infringing content will be removed immediately.

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

Get Started for Free

Sales Support

1 on 1 presale consultation

Chat Contact Sales
After-Sales Support

24/7 Technical Support 6 Free Tickets per Quarter Faster Response

Open a Ticket
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.

Learn More

Use XMLHTTP to retrieve data from other pages

Contact Us

A Free Trial That Lets You Build Big!

Sales Support

After-Sales Support