Принцип сбора:
Основные этапы процедуры сбора следующие:
1. Получить содержание собранной страницы
2. Извлеките все данные, используемые из кода сбора
1. Получить содержание собранной страницы
В настоящее время я знаю, что обычно используются методы получения собранных страниц в ASP:
1. Используйте компонент ServerXMLHTTP для получения данных
Функция getbody (weburl)
'----------------------- Zhai Zhenkai (Xiao Qi)
'Создать объект
Dim objxmlhttp
Установить objxmlhttp = server.createObject ("msxml2.serverxmlhttp")
'Запрос файл, в асинхронной форме
Objxmlhttp.open "get", webuurl, false
Objxmlhttp.send
В то время как objxmlhttp.readystate <> 4
Objxmlhttp.waitforresponse 1000
Венд
'Получите результат
Getbody = objxmlhttp.responsebody
'Выпустите объект
Установить objxmlhttp = ничего
'----------------------- Zhai Zhenkai (Xiao Qi)
Конечная функция
Метод вызова: getbody (адрес urlf файла)
2. или компонент xmlhttp для получения данных
Функция getbody (weburl)
'----------------------- Zhai Zhenkai (Xiao Qi)
'Создать объект
SET Retrieval = createObject ("microsoft.xmlhttp")
С поиском
.Open "Get", weburl, false "" "," "
.Отправлять
Getbody =. -Responsebody
Закончить с
'Выпустите объект
Установить поиск = ничего
'----------------------- Zhai Zhenkai (Xiao Qi)
Конечная функция
Метод вызова: getbody (адрес urlf файла)
Данные, полученные таким образом, также должны быть закодированы и преобразованы, прежде чем их можно будет использовать
Функция Bytestobstr (тело, CSET)
'----------------------- Zhai Zhenkai (Xiao Qi)
Dim objstream
Установить objstream = server.createObject ("adodb.stream")
objstream.type = 1
objstream.mode = 3
objstream.open
objstream.write Тело
objstream.position = 0
objstream.type = 2
objstream.charset = cset
Bytestobstr = objstream.readtext
objstream.close
установить objstream = ничего
'----------------------- Zhai Zhenkai (Xiao Qi)