Si vous ne savez pas comment écrire une collection ASP, vous ne comprenez peut-être pas le code, ce qui n'est pas ce dont je parle dans cet article. J'espère qu'il sera utile à tout le monde. Fonction ProxyPage(url)
Définir la récupération = CreateObject (MSXML2.ServerXMLHTTP.5.0)
Avec récupération
.SetProxy 2, 255.0.0.0:80 'IP proxy : port proxy
.Ouvrez Obtenir, URL, Faux, ,
.setRequestHeader Referer,http://www.baidu.com/ 'Faux référent
.Envoyer
ProxyPage = BytesToBstr (.ResponseBody)
Terminer par
Définir la récupération = Rien
Fonction de fin
Ci-joint le processus BytesToBstr Lors de la collecte, vous pouvez définir si la page Web est utf-8 ou gb2312 est utf-8.
Fonction BytesToBstr(corps)
objstream obscur
set objstream = Server.CreateObject(ad&&odb.st&&ream)
objstream.Type = 1
objstream.Mode =3
objstream.Ouvrir
objstream.Écrire le corps
objstream.Position = 0
objstream.Type = 2
si utf=Vrai alors
objstream.Charset = utf-8
autre
objstream.Charset = gb2312
finir si
BytesToBstr = objstream.ReadText
objstream.Fermer
définir objstream = rien
Fonction de fin
Explication du code :
Si votre système est Win 2003, vous ne pouvez utiliser que le code suivant
Créer un objet (MSXML2.ServerXMLHTTP.4.0)
Si c'est XP
Créer un objet (MSXML2.ServerXMLHTTP.5.0)
L'utilisation de faux référents est très générale, mais elle reste utile pour certains sites Web, j'ai donc ajouté le code et je peux le commenter.
Avis:
Si vous ne savez pas comment écrire une collection ASP, vous ne comprenez peut-être pas le code, ce qui n'est pas ce dont je parle dans cet article. J'espère qu'il sera utile à tout le monde.