Разговор об автоматических процедурах сбора и складах

<%

Оператор Функция получения целевой информации и реализации ее через компонент XML.

Функция geturl (url)

SetRieval = createObject ("microsoft.xmlhttp")

С поиском

.Open "Get", url, ложный

.Отправлять

Geturl = bytes2bstr (. -Responsebody)

'Проверьте информацию, если длина информации составляет менее 100, это означает, что перехват не удается

Если Len (. -responsebody) <100

Response.write "Получить удаленный файл <a href =" & url & "target = _blank>" & url & "</a> неудача".

response.end

конец, если

Закончить с

Setrieval = ничего

Конечная функция

'Двойная струна, иначе она будет искажена!

Функция Bytes2BSTR (VIN)

strreturn = "" "

для i = 1 к Lenb (VIN)

ThisChode = ASCB (MIDB (VIN, I, 1))

Если этот код <& H80, тогда

Strreturn = strreturn & chr (this charcode)

еще

NextChode = ASCB (MIDB (VIN, I 1,1)))))))

Strreturn = strreturn & chr (clng (thisChode) * & h100 cint (nextcharcode)))

i = 1 1

конец, если

следующий

Bytes2bstr = strreturn

конечная функция

'Укажите формат перехвата, начиная с начала до конца последнего

Функция getKey (html, start, last)

fileArray = split (html, start)

FileArray2 = Split (FileArray (1), Last)

GetKey = fileArray2 (0)

Конечная функция

Dim Softifid, URL, HTML, заголовок

'Получите идентификатор страницы

Softid = request ("id")

Url = "http://www3.skycn.com/soft/" & softid & ".html"

Html = geturl (url)

«Пример программного обеспечения Sky Software

Title = getKey (html, "<font color = '#004fc6' size = '3'>", "</font> </td> </tr>)

'Откройте базу данных и подготовьтесь к входу в библиотеку

Dim Connstr, Conn, RS, SQL

connstr = "dbq =" server.mappath ("db1.mdb") "" ";

Установить conn = server.createObject ("adodb.connection")

Conn.Open Connstr

Установить rs = server.createObject ("adodb.oldset")

SQL = "SELECT [имя столбца] от [Watch Name], где [имя столбца] = '& title &"' "

Rs.oopen SQL, Conn, 3,3

Если rs.eof и rs.bof, тогда

Rs ("" "listing") = заголовок

Rs.Update

Установить RS = ничего

конец, если

Установить RS = ничего

Ответ.

%>