Crawlen Sie Webseiten. Gelegentlich ist es notwendig, eine echte, aktualisierte Wettervorhersage zu erhalten. Die XMLHTTP-Komponente wird verwendet, um den angegebenen Teil der Webseite zu erfassen.
Der HTML-Quellcode muss aufgeteilt werden
Der erfasste HTML-Quellcode in diesem Beispiel lautet wie folgt
<p align=left>Dienstag, 24. August 2004; tagsüber: sonnig und manchmal bewölkt, Yunnan-Windstärke 3-4; Nacht: sonnige Südwindstärke 3-4; minimal 19℃
Das Programm stammt von
Verwenden Sie bis zum Ende den 24. August 2004 als Stichwortsuche
Der erfasste Inhalt wird Dienstag, 24. August 2004; tagsüber: sonnig und manchmal bewölkt, Yunnan-Windstärke 3-4; Nacht: sonnige Südwindstärke 3-4;
Es ist sauber. Nehmen Sie es auf.
<%
Bei Fehler Weiter fortsetzen
Server.ScriptTimeOut=9999999
Funktion getHTTPage(Path)
t = GetBody(Pfad)
getHTTPPage=BytesToBstr(t,GB2312)
Funktion beenden
Funktion GetBody(url)
Bei Fehler als nächstes fortfahren
Set Retrieval = CreateObject(Microsoft.XMLHTTP)
Mit Abruf
.Open Get, URL, False, ,
.Schicken
GetBody = .ResponseBody
Ende mit
Abruf festlegen = Nichts
Funktion beenden
Funktion BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject(adodb.stream)
objstream.Type = 1
objstream.Mode =3
objstream.Öffnen
objstream.Text schreiben
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Schließen
set objstream = nichts
Funktion beenden
Funktion Newstring(wstr,strng)
Newstring=Instr(lcase(wstr),lcase(strng))
wenn Newstring<=0 dann Newstring=Len(wstr)
Funktion beenden
%>
<html>
<BODY bgColor=#ffffff leftMargin=0 topMargin=0 MARGINHEIGHT=0 MARGINWIDTH=0>
<!-- Start-->
<%
Dimmen Sie wstr,str,url,start,over,dtime
dtime=Jahr(Datum)&Jahr&Monat(Datum)&Monat&Tag(Datum)&Tag
url=http://www.vevb.com/
wstr=getHTTPPage(url)
start=Newstring(wstr,dtime)
over=Newstring(wstr,</p>)
body=mid(wstr,start,over-start)
Response.write <MARQUEE onmouseover=this.stop(); onmouseout=this.start();>&body&</marquee>
%>
<!--End-->
</body></html>