Es gibt mittlerweile viele beliebte Dieb-Programme im Internet, darunter News-Dieb, Musik-Dieb und Download-Dieb. Ich hoffe, dass es für alle Webmaster hilfreich ist.
(1) Prinzip
Das Diebprogramm ruft tatsächlich Webseiten auf anderen Websites über die XMLHTTP-Komponente in XML auf. Beispielsweise rufen viele der Nachrichtendieb-Programme die Nachrichten-Webseiten von Sina auf, ersetzen dort den HTML-Code und filtern auch Werbung. Die Vorteile der Verwendung des Thief-Programms sind: Die Website muss nicht gewartet werden, da die Daten im Thief-Programm von anderen Websites stammen und im Allgemeinen 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.
(2) Beispiele
Das Folgende ist eine kurze Erläuterung der Anwendung von XMLHTTP in ASP
＜%
„Allgemeine Funktionen
“ 1. Geben Sie die URL-Adresse der Zielwebseite ein und der Rückgabewert getHTTPPage ist der HTML-Code der Zielwebseite.
Funktion getHTTPage(url)
dimHttp
set Http=server.createobject("MSXML2.XMLHTTP")
Http.open „GET“,url,false
Http.send()
wenn Http.readystate＜>4 dann
Exit-Funktion
Ende wenn
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
setze http=nichts
Wenn err.number<>0, dann err.Clear
Endfunktion
'2. Verwenden Sie xmlhttp, um Webseiten mit chinesischen Zeichen aufzurufen. Sie können es über die Komponente adodb.stream konvertieren.
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
End Function
'Versuchen Sie, den HTML-Inhalt von http://www.3doing.com/earticle/ aufzurufen
Dunkle URL, HTML
Url=" http://www.3doing.com/earticle/ "
Html = getHTTPPage(URL)
Response.write Html
%>