Вызывайте веб-страницы на других веб-сайтах через компонент XMLHTTP в XML, а затем пакетно перехватывайте или заменяйте исходную информацию, чтобы преобразовать ее в переменные и затем сохранить их одну за другой в базе данных. Его главное преимущество в том, что нет необходимости вручную добавлять большой объем информации. Вы можете указать перехват информации с определенной станции для ее ввода в пакетном режиме, что сэкономит время и силы. Разница с его чистой воровской программой ASP заключается в том, что она больше не зависит от целевого веб-сайта.
Справочный код:
Скопируйте код кода следующим образом:
<%
'Объявляет функцию для получения целевой информации, реализованную через компоненты XML.
Функция Geturl(/блог/url)
Установить получение = CreateObject(Microsoft.XMLHTTP)
С поиском
.Открыть GET, URL, False
.Отправлять
GetURL = bytes2bstr(.responsebody)
'Проверка полученной информации. Если длина информации меньше 100, перехват не удался.
если len(.responsebody)<100, то
В ответе.write не удалось получить удаленный файл <a href=&url& target=_blank>&url&</a>.
ответ.конец
конец, если
Конец с
Установить получение = Ничего
Конечная функция
' Преобразуйте двоичный файл в строку, иначе символы будут искажены!
функция bytes2bstr(vin)
стрвозврат =
для i = 1 до lenb(vin)
этотcharcode = ascb(midb(vin,i,1))
если этот код < &h80, то
strreturn = strreturn & chr (этот символьный код)
еще
следующийcharcode = ascb(midb(vin,i+1,1))
strreturn = strreturn & chr(clng(thischarcode) * &h100 + cint(nextcharcode))
я = я + 1
конец, если
следующий
bytes2bstr = стрвозврат
конечная функция
'Объявляем формат перехвата, начиная с Start и заканчивая Last
Функция GetKey(HTML,Start,Last)
filearray=split(HTML,Start)
filearray2 = разделить (filearray (1), последний)
GetKey=filearray2(0)
Конечная функция
Dim Softid, URL-адрес, Html, заголовок
'Получите идентификатор страницы, которую хотите получить
SoftId=Запрос(Идентификатор)
Url=http://www3.skycn.com/soft/&SoftId&.html
Html = Geturl(/блог/URL)
'В качестве примера возьмите название программного обеспечения для перехвата неба.
Title = GetKey(Html,<font color='#004FC6' size='3'>,</font></b></td></tr>)
'Откройте базу данных и подготовьтесь к ее сохранению
dim connstr,conn,rs,sql
connstr=DBQ=+server.mappath(db1.mdb)+;DefaultDir=;DRIVER={Драйвер Microsoft Access (*.mdb)};
установить conn=server.createobject(ADODB.CONNECTION)
conn.open connstr
установите rs=server.createobject(adodb.recordset)
sql=выберите [имя столбца] из [имя таблицы], где [имя столбца]='&Title&'
rs.open sql,conn,3,3
если rs.eof и rs.bof, то
rs(имя столбца)=Заголовок
RS.обновление
установить rs=ничего
конец, если
установить rs=ничего
Сбор ответа.Запись завершен!
%>