Если вы не знаете, как писать коллекцию ASP, вы можете не понимать код, а это не то, о чем я говорю в этом посте. Надеюсь, он будет полезен всем. Функция ProxyPage(url)
Установить Получение = CreateObject(MSXML2.ServerXMLHTTP.5.0)
С поиском
.SetProxy 2, 255.0.0.0:80 'IP-адрес прокси: порт прокси
.Открыть Get, URL, False, ,
.setRequestHeader Referer, http://www.baidu.com/ 'Поддельный реферер
.Отправлять
ProxyPage = BytesToBstr(.ResponseBody)
Конец с
Установить получение = Ничего
Конечная функция
Прилагается процесс BytesToBstr. При сборе вы можете определить, является ли веб-страница utf-8 или gb2312 — это utf-8.
Функция BytesToBstr(тело)
тусклый объектный поток
set objstream = Server.CreateObject(ad&&odb.st&&ream)
objstream.Type = 1
objstream.Mode =3
objstream.Открыть
objstream.Напишите тело
objstream.Position = 0
objstream.Type = 2
если utf=True тогда
objstream.Charset = utf-8
еще
objstream.Charset = gb2312
конец, если
BytesToBstr = objstream.ReadText
objstream.Close
установить objstream = ничего
Конечная функция
Объяснение кода:
Если ваша система Win 2003, вы можете использовать только следующий код
СоздатьОбъект(MSXML2.ServerXMLHTTP.4.0)
Если это хр
СоздатьОбъект(MSXML2.ServerXMLHTTP.5.0)
Использование поддельного реферера носит общий характер, но оно по-прежнему полезно для некоторых веб-сайтов, поэтому я добавил код, и вы можете его закомментировать.
Уведомление:
Если вы не знаете, как писать коллекцию ASP, вы можете не понимать код, а это не то, о чем я говорю в этом посте. Надеюсь, он будет полезен всем.