Упомянутый здесь вор относится к использованию мощных функций, предоставляемых компонентом xmlhttp в xml в asp, для захвата данных (изображений, веб-страниц и других файлов) с удаленного веб-сайта на локальный и отображения их на странице после различной обработки. Или тип программы, хранящейся в базе данных. Вы можете использовать эту программу-вор для выполнения некоторых задач, которые раньше казались совершенно невозможными, например, изменение страниц определенного веб-сайта и превращение их в свои собственные или сохранение некоторых данных (статей, изображений) определенного веб-сайта. для использования в локальной базе данных. Преимущества Thief: нет необходимости поддерживать веб-сайт, поскольку данные в программе Thief поступают с других веб-сайтов и будут обновляться по мере обновления веб-сайта, что позволяет сэкономить много ресурсов сервера; В программе Thief всего несколько файлов, а весь веб-контент взят с других веб-сайтов. Недостатками являются: нестабильность: если целевой веб-сайт пойдет не так, программа также будет работать неправильно, а если целевой веб-сайт обновляется и поддерживается, скорость программы-вора также необходимо будет соответствующим образом изменить, поскольку это удаленный вызов; скорость такая же быстрая, как чтение данных на локальном сервере. Это определенно медленнее. Как насчет этого, звучит потрясающе, правда? Давайте начнем изучать вводные знания о программе Thief прямо сейчас!
Давайте изучим что-нибудь попроще, программу прогноза погоды на сайте QQ.
Код выглядит следующим образом:
1<%2OnErrorResumeNext
3Server.Scripttimeout=9999999
4FunctionGethttppage(Путь)
5T=Получить тело(Путь)
6Gethttppage=Bytestobstr(T,Gb2312)
7. Завершение функции
8
9' Сначала выполните некоторые настройки инициализации для программы-вора. Функция приведенного выше кода — игнорировать все нефатальные ошибки, установить очень большое время ожидания работы программы-вора (чтобы не возникало ошибок тайм-аута выполнения). ) и преобразовать оригинал. Кодировка utf-8 по умолчанию преобразуется в кодировку gb2312, в противном случае прямое использование компонента xmlhttp для вызова веб-страниц с китайскими символами приведет к искажению кодов.
10
11FunctionGetbody(URL)
12OnErrorResumeNext
13SetRetrival=Createobject(Microsoft.Xmlhttp)
14СИзвлечением
15.OpenGet, URL, Ложь,,
16.Отправить
17Getbody=.Responsebody
18EndWith
19SetRetrival=Ничего
20Завершение функции
двадцать один
22'Затем вызовите компонент xmlhttp, чтобы создать объект и выполнить настройки инициализации.
двадцать три
24FunctionBytestobstr(Тело,Cset)
25DimObjstream
26SetObjstream=Server.Createobject(Adodb.Stream)
27Objstream.Type=1
28Objstream.Mode=3
29Objstream.Открыть
30Objstream.WriteBody
31Objstream.Position=0
32Objstream.Type=2
33Objstream.Charset=Cset
34Bytestobstr=Objstream.Readtext
35Objstream.Закрыть
36SetObjstream=Ничего
37Завершение функции
38
39FunctionNewstring(Wstr,Strng)
40Newstring=Instr(Lcase(Wstr),Lcase(Strng))
41IfNewstring<=0ThenNewstring=Len(Wstr)
42Конец функции
43
44' Для обработки захваченных данных необходимо вызвать компонент adodb.Stream и выполнить настройки инициализации. %>