Fale sobre procedimentos de coleta automática e armazéns

<%

Declaração A função de obter as informações de destino e implementá -las através do componente XML.

Função geturl (url)

Setrieval = createObject ("Microsoft.xmlHttp")

Com recuperação

.Pope "Get", URL, FALSE

.Enviar

Geturl = bytes2bstr (.Responsebody)

'Verifique as informações, se o comprimento da informação for menor que 100, significa que a interceptação falha

Se Len (.Responsionbody) <100 que

Response.Write "Obtenha arquivo remoto <a href =" & url & "Target = _blank>" & url & "</a> Falha".

resposta.END

final se

Termine com

Setrieval = nada

Função final

'String dual -to -ing, caso contrário, ela será iluminada!

Função bytes2bstr (vin)

strreturn = "" "

para i = 1 a lenb (vin)

thisCharcode = ASCB (MIDB (VIN, i, 1))

Se thischarcode <& h80 então

Strreturn = strreturn & ch (thischarcode)

outro

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

Strreturn = strreturn & ch (clng (thischarcode) * & h100 cint (nextcharcode))

i = i 1

final se

próximo

bytes2bstr = strreturn

Função final

'Declare o formato da interceptação, a partir do início ao final do último

Função getKey (html, start, último)

FileArray = Split (HTML, Start)

FileArray2 = Split (FileArray (1), último)

GetKey = FileArray2 (0)

Função final

Dim Softid, URL, HTML, título

'Obtenha o ID da página

SoftId = solicitação ("id")

Url = "http://www3.skycn.com/Soft/" & Softid & ".html"

Html = geturl (url)

'Tomando o nome do software do software do céu como exemplo

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

'Abra o banco de dados e prepare -se para entrar na biblioteca

Dim Connstr, Conn, RS, SQL

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

Definir Conn = Server.CreateObject ("Adodb.Connection")

Conn.Open Connstr

set rs = server.createObject ("adodb.oldset")

sql = "Selecione [Nome da coluna] de [Nome do relógio] Onde [Nome da coluna] = '& Título &"' "

Rs.ooopen SQL, Conn, 3,3

Se Rs.eof e Rs.Bof então

Rs ("" listagem ") = título

rs.update

Definir rs = nada

final se

Definir rs = nada

Response.Write "Collected!"

%>