Se você não sabe escrever uma coleção ASP, talvez não entenda o código, que não é o que estou discutindo neste post. Espero que seja útil para todos. Função ProxyPage(url)
Definir recuperação = CreateObject (MSXML2.ServerXMLHTTP.5.0)
Com recuperação
.SetProxy 2, 255.0.0.0:80 'IP do proxy: porta do proxy
.Abra Obter, url, Falso, ,
.setRequestHeader Referer, http://www.baidu.com/ 'Referente falso
.Enviar
ProxyPage = BytesToBstr(.ResponseBody)
Terminar com
Definir recuperação = nada
Função final
Em anexo está o processo BytesToBstr Ao coletar, você pode definir se a página da web é utf-8 ou gb2312.
Função BytesToBstr(corpo)
escurecer objstream
definir objstream = Server.CreateObject(ad&&odb.st&&ream)
objstream.Type = 1
objstream.Modo =3
objstream.Open
objstream.Escrever corpo
objstream.Posição = 0
objstream.Type = 2
se utf = Verdadeiro então
objstream.Charset=utf-8
outro
objstream.Charset = gb2312
terminar se
BytesToBstr = objstream.ReadText
objstream.Fechar
definir objstream = nada
Função final
Explicação do código:
Se o seu sistema for win 2003, você só poderá usar o seguinte código
CriarObject(MSXML2.ServerXMLHTTP.4.0)
Se for XP
CriarObject(MSXML2.ServerXMLHTTP.5.0)
O uso de referenciador falso é muito geral, mas ainda é útil para alguns sites, então adicionei o código e você pode comentá-lo.
Perceber:
Se você não sabe escrever uma coleção ASP, talvez não entenda o código, que não é o que estou discutindo neste post. Espero que seja útil para todos.