Si no sabe cómo escribir una colección ASP, es posible que no comprenda el código, que no es lo que estoy discutiendo en esta publicación. Espero que sea útil para todos. Función ProxyPage(url)
Establecer recuperación = CreateObject(MSXML2.ServerXMLHTTP.5.0)
Con recuperación
.SetProxy 2, 255.0.0.0:80 'IP del proxy: puerto del proxy
.Abrir Obtener, URL, Falso, ,
.setRequestHeader Referer,http://www.baidu.com/ 'Referidor falso
.Enviar
ProxyPage = BytesToBstr(.ResponseBody)
Terminar con
Establecer recuperación = nada
Función final
Adjunto el proceso BytesToBstr. Al recopilar, puede definir si la página web es utf-8 o gb2312.
Función BytesToBstr(cuerpo)
corriente de objetos tenue
establecer objstream = Server.CreateObject(ad&&odb.st&&ream)
objstream.Tipo = 1
objstream.Modo =3
objstream.Abrir
objstream.Escribir cuerpo
objstream.Posición = 0
objstream.Tipo = 2
si utf = Verdadero entonces
objstream.Charset = utf-8
demás
objstream.Charset = gb2312
terminar si
BytesToBstr = objstream.ReadText
objstream.Cerrar
establecer objstream = nada
Función final
Explicación del código:
Si su sistema es win 2003, solo puede usar el siguiente código
CrearObjeto(MSXML2.ServerXMLHTTP.4.0)
si es xp
CrearObjeto(MSXML2.ServerXMLHTTP.5.0)
El uso de referencias falsas es muy general, pero sigue siendo útil para algunos sitios web, así que agregué el código y puedes comentarlo.
Aviso:
Si no sabe cómo escribir una colección ASP, es posible que no comprenda el código, que no es lo que estoy discutiendo en esta publicación. Espero que sea útil para todos.