Hablar sobre procedimientos de recolección automáticos y almacenes

<%

'Declaración La función de obtener la información de destino e implementarla a través del componente XML.

Función getURL (URL)

SetRieval = createObject ("Microsoft.xmlhttp")

Con recuperación

.Preen "Get", url, falso

.Enviar

GetUrl = bytes2bstr (.ResponseBody)

'Verifique la información, si la longitud de la información es inferior a 100, significa que la intercepción falla

Si len (.ResponseBody) <100 que

Response.write "Obtener archivo remoto <a href =" & url & "target = _blank>" & url & "</a> falla".

respuesta.

final si

Terminar con

Setrieval = nada

Función final

'Dual -para hacer una cuerda, ¡de lo contrario estará confuso!

Función bytes2bstr (vin)

strreturn = "" "

para i = 1 a Lenb (vin)

thisCharCode = ASCB (MidB (Vin, I, 1))

Si thisCharCode <& H80 entonces

Strreturn = strreturn & chr (thisCharcode)

demás

nextcharcode = ascb (midb (vin, i 1,1)))

Strreturn = strreturn & chr (clng (thisCharcode) * & H100 cint (nextcharcode)))

i = i 1

final si

próximo

bytes2bstr = strreturn

función final

'Indique el formato de la intercepción, comenzando desde el principio hasta el final del último

Función getKey (html, inicio, último)

Filearray = Split (html, inicio)

Filearray2 = Split (Filearray (1), último)

GetKey = Filearray2 (0)

Función final

Dim Softid, URL, HTML, Título

'Obtenga la identificación de la página

Softid = request ("ID")

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

Html = getUrl (URL)

'Tomar el nombre del software del Sky Software como ejemplo

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

'Abra la base de datos y prepárese para ingresar a la biblioteca

Dim Connstr, Conn, RS, SQL

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

establecer conn = server.createObject ("ADODB.Connection")

Conn.open Connstr

establecer rs = server.createObject ("ADODB.Oldset")

sql = "seleccione [nombre de columna] de [nombre de reloj] donde [nombre de la columna] = '& title &"' "

Rs.oopen SQL, Conn, 3,3

Si Rs.Eof y Rs.Bof entonces

RS ("" Listado ") = Título

rs.

establecer RS ​​= nada

final si

establecer RS ​​= nada

Respuesta. Escribe "¡Recolectado!"

%>