Der hier erwähnte Dieb bezieht sich auf die Verwendung der leistungsstarken Funktionen, die von der XML-Komponente in XML in ASP bereitgestellt werden, um Daten (Bilder, Webseiten und andere Dateien) auf der Remote-Website auf der lokalen Website zu erfassen und sie nach verschiedenen Verarbeitungsvorgängen auf der Seite anzuzeigen eine Art Programm, das in einer Datenbank gespeichert ist. Sie können diese Art von Diebprogramm verwenden, um einige Aufgaben zu erledigen, die in der Vergangenheit völlig unmöglich erschienen, wie zum Beispiel die Seiten einer bestimmten Website zu ändern und sie in Ihre eigenen Seiten umzuwandeln oder einige Daten (Artikel, Bilder) einer bestimmten Website zu speichern zur Verwendung in der lokalen Datenbank. Die Vorteile von Thief sind: Die Website muss nicht gewartet werden, da die Daten im Thief-Programm von anderen Websites stammen und im Allgemeinen viele Serverressourcen einsparen können Das Thief-Programm verfügt nur über wenige Dateien und alle Webinhalte stammen von anderen Websites. Die Nachteile sind: Instabilität, wenn die Zielwebsite fehlschlägt, geht auch das Programm schief, und wenn die Zielwebsite aktualisiert und gewartet wird, muss auch die Geschwindigkeit des Diebprogramms entsprechend geändert werden, da es sich um einen Remote-Aufruf handelt. Die Geschwindigkeit ist so hoch wie beim Lesen von Daten auf dem lokalen Server. Sie ist definitiv langsamer. Wie wäre es damit? Klingt großartig, oder? Beginnen wir jetzt damit, ein paar Einführungskenntnisse in das Thief-Programm zu erlernen!
Schauen wir uns etwas Einfacheres an: das Wettervorhersageprogramm auf der QQ-Website
Der Code lautet wie folgt:
1<%2OnErrorResumeNext
3Server.Scripttimeout=9999999
4FunctionGethttppage(Path)
5T=Getbody(Pfad)
6Gethttppage=Bytestobstr(T,Gb2312)
7End-Funktion
8
9' Nehmen Sie zunächst einige Initialisierungseinstellungen für das Thief-Programm vor. Die Funktion des obigen Codes besteht darin, alle nicht schwerwiegenden Fehler zu ignorieren und die Laufzeit des Thief-Programms auf einen sehr langen Zeitraum festzulegen (damit kein Laufzeit-Timeout-Fehler auftritt). ) und konvertieren Sie das Original. Die Standard-UTF-8-Codierung wird in die GB2312-Codierung konvertiert. Andernfalls führt die direkte Verwendung der xmlhttp-Komponente zum Aufrufen von Webseiten mit chinesischen Zeichen zu verstümmelten Codes.
10
11FunctionGetbody(Url)
12OnErrorResumeNext
13SetRetrieval=Createobject(Microsoft.Xmlhttp)
14WithRetrieval
15.OpenGet, Url,False,,
16.Senden
17Getbody=.Responsebody
18EndWith
19SetRetrieval=Nichts
20End-Funktion
einundzwanzig
22'Dann rufen Sie die xmlhttp-Komponente auf, um ein Objekt zu erstellen und Initialisierungseinstellungen vorzunehmen.
dreiundzwanzig
24FunctionBytestobstr(Body,Cset)
25DimObjstream
26SetObjstream=Server.Createobject(Adodb.Stream)
27Objstream.Type=1
28Objstream.Mode=3
29Objstream.Open
30Objstream.WriteBody
31Objstream.Position=0
32Objstream.Type=2
33Objstream.Charset=Cset
34Bytestobstr=Objstream.Readtext
35Objstream.Close
36SetObjstream=Nichts
37End-Funktion
38
39FunctionNewstring(Wstr,Strng)
40Newstring=Instr(Lcase(Wstr),Lcase(Strng))
41IfNewstring<=0ThenNewstring=Len(Wstr)
42End-Funktion
43
44' Um die erfassten Daten zu verarbeiten, müssen Sie die adodb.Stream-Komponente aufrufen und Initialisierungseinstellungen vornehmen. %>