Wenn Sie nicht wissen, wie man eine ASP-Sammlung schreibt, verstehen Sie möglicherweise nicht den Code, den ich in diesem Beitrag nicht bespreche. Ich hoffe, er ist für alle nützlich. Funktion ProxyPage(URL)
Set Retrieval = CreateObject(MSXML2.ServerXMLHTTP.5.0)
Mit Abruf
.SetProxy 2, 255.0.0.0:80 'Proxy-IP: Proxy-Port
.Open Get, URL, False, ,
.setRequestHeader Referer,http://www.baidu.com/ 'Gefälschter Referer
.Schicken
ProxyPage = BytesToBstr(.ResponseBody)
Ende mit
Abruf festlegen = Nichts
Funktion beenden
Angehängt ist der BytesToBstr-Prozess. Beim Sammeln können Sie festlegen, ob die Webseite utf-8 oder gb2312 ist.
Funktion BytesToBstr(body)
dim objstream
set objstream = Server.CreateObject(ad&&odb.st&&ream)
objstream.Type = 1
objstream.Mode =3
objstream.Öffnen
objstream.Text schreiben
objstream.Position = 0
objstream.Type = 2
wenn utf=True dann
objstream.Charset = utf-8
anders
objstream.Charset = gb2312
Ende wenn
BytesToBstr = objstream.ReadText
objstream.Schließen
set objstream = nichts
Funktion beenden
Code-Erklärung:
Wenn Ihr System Win 2003 ist, können Sie nur den folgenden Code verwenden
CreateObject(MSXML2.ServerXMLHTTP.4.0)
Wenn es XP ist
CreateObject(MSXML2.ServerXMLHTTP.5.0)
Die Verwendung von Fake Referrern ist sehr allgemein gehalten, aber für einige Websites ist sie dennoch nützlich, daher habe ich den Code hinzugefügt und Sie können ihn auskommentieren.
Beachten:
Wenn Sie nicht wissen, wie man eine ASP-Sammlung schreibt, verstehen Sie möglicherweise nicht den Code, den ich in diesem Beitrag nicht bespreche. Ich hoffe, er ist für alle nützlich.