Holen Sie sich Daten von anderen Seiten mit XMLHTTP ab
Wenn wir ASP -Code schreiben, weiß jeder, dass wir Formularformaten über Post oder GET erhalten können. Wie erhalten wir also direkt Daten auf anderen Seiten? Dies erfordert die Verwendung des XMLHTTP -Protokolls. XMLHTTP ist Teil der XMLDOM -Technologie.
Der folgende Code ist ein sehr einfaches Beispiel. Wir verwenden die XMLHTTP -Technologie, um den Code auf der Startseite von http://www.xxxx.com/ in Form von XML vollständig zu erhalten und auf der Seite auszugeben.
<%
Dimobjxmlhttp, xml
Setxml = server.createObject ("microsoft.xmlhttp"))
xml.open "get", "http://www.codetoad.com/", false
'PatthedatafromTheWebpage
xml.send
Response.write "Hier ist theHtmlwenowhaveInourxMlobject"
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 = nichts
%>
Hier ist ein weiteres Beispiel
<%
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) dann
Response.write (objxml.transformNode (objxsl))
anders
Antwort.Write "Fehler:" & objxsl.parseerror.reason & "url:" & objxsl.url
Endif
SetObjhttp = nichts
SetObjxml = nichts
SetObjxsl = nichts
%>
style.xsl:
<xsl: styleSheetxmlns: xsl = "http://www.w3.org/tr/wd-xsl">
<xsl: templatematch = "/">
<html>
<kopf>
<titels> Außerdem ... </title>
</head>
<BodyBgColor = "ffffff">
<Divalign = "center">
<TableBgColor = "ffffff" border = "0" cellpadding = "4" cellspacing = "0" width = "100%">
<XSL: for-eeachSelect = "Darüber hinaus UVERNEWS/ARTIKEL">
<Trvalign = "Middle">
<Tdalign = "links" bgcolor = "ffffff">
<XSL: Attributename = "href">
<XSL: Wert von Select = "url"/>
</xsl: Attribut>
<XSL: Attributename = "Ziel">
_leer
</xsl: Attribut>
<XSL: Wert von Select = "Headline_Text"/>