Недавно некоторые программы сбора популярны в Интернете. Больше людей продают эти вещи в Интернете. Многие люди, которые не знают много, завидуют этим программам. На самом деле, если вы понимаете некоторые ASP и понимаете принципы программ автоматического сбора, вы будете чувствовать, что это так просто в реализации автоматизации.
Принцип и преимущества: через компонент xmlhttp в XML называются веб -страницы на других веб -сайтах, а затем пакетный перехват или замените исходную информацию, чтобы она была преобразована в переменные, а затем хранится в базе данных один за другим. Его главное преимущество заключается в том, что нет необходимости вручную добавлять большое количество информации. Вы можете указать перехват определенной информации о сайте и партийного ввода для достижения цели сохранения времени и усилий. В отличие от чисто программы ASP THIEF: она больше не опирается на свой целевой веб -сайт.
Простые примеры:
Кода -копия выглядит следующим образом:
<%
«Объявите функцию для получения целевой информации и реализовать ее через компоненты XML.
Geturl (/blog/url)
Setretrieval = createObject ("microsoft.xmlhttp")
Безрельтивел
Откройте "Get", URL, ложь
Отправлять
Geturl = bytes2bstr (. -Responsebody)
'Проверьте полученную информацию. Если длина информации меньше 100, это означает, что перехват не удался
iflen (. -responsebody) <100then
response.write "Не удалось получить удаленный файл <ahref ="/blog/"& url &" target = _blank> "& url &" </a>. "
response.end
эндиф
Энд
Setretrieval = ничего
Конец
«Поверните двоичный к струне, в противном случае появится искаженная!
Bytes2BSTR (VIN)
strreturn = ""
fori = 1tolenb (vin)
ThisChode = ASCB (MIDB (VIN, I, 1))
IfThischarcode <& H80Then
strreturn = strreturn & chr (this charcode)
еще
NextChode = ASCB (MIDB (VIN, I+1,1)))
strreturn = strreturn & chr (clng (thisChode)*& h100+cint (nextcharcode))
i = i+1
эндиф
следующий
Bytes2bstr = strreturn
конец
'Объявите перехваченный формат, начните с начала и окончания наконец
Getkey (html, старт, последний)
fileArray = split (html, start)
FileArray2 = Split (FileArray (1), Last)
GetKey = fileArray2 (0)
Конец
DimSoftid, URL, HTML, заголовок
'Получите идентификатор страницы, который будет получен
Softid = request ("id")
Url = "http://www3.skycn.com/soft/" & softid & ".html"
Html = geturl (/blog/url)
'Возьмите название программного обеспечения перехвата Sky Software в качестве примера
Title = getKey (html, "<fontcolor = '#004fc6'size =' 3 '>", "</font> </b> </td> </tr>")
'Откройте базу данных и подготовитесь к введению базы данных
DimConnstr, Conn, RS, SQL
connstr = "dbq ="+server.mappath ("db1.mdb")+"; defaultdir =; driver = {microsoft accessdriver (*. mdb)};"
setConn = server.createObject ("adodb.connection")
Conn.openconstr
setrs = server.createObject ("adodb.recordset")
SQL = "SELECT [имя столбца] из [имя таблицы], где [имя столбца] = '" & title & "'"
Rs.opensql, Conn, 3,3
ifrs.eofandrs.bofthen
rs ("имя столбца") = заголовок
Rs.Update
setrs = ничего
эндиф
setrs = ничего
Response.write "Коллекция завершена!"
%>