Parlez des procédures et entrepôts de collecte automatique

<%

'Instruction La fonction d'obtenir les informations cibles et de les implémenter via le composant XML.

Fonction geturl (URL)

Setrieval = createObject ("Microsoft.xmlhttp")

Avec récupération

.Open "Get", URL, faux

.Envoyer

GetUrl = bytes2Bstr (.ResponseBody)

'Vérifiez les informations, si la longueur d'information est inférieure à 100, cela signifie que l'interception échoue

Si Len (.Responsebody) <100

Response.write "Obtenez un fichier distant <a href =" & url & "cible = _blank>" & url & "</a> échec."

réponse.

terminer si

Se terminer avec

Setrieval = rien

Fonction finale

«Dual -To-Faire de ficelle, sinon il sera brouillé!

Fonction bytes2bSTR (VIN)

strreturn = "" "

pour i = 1 à Lenb (vin)

thisCharcode = ASCB (midb (vin, i, 1))

Si thischarcode <& h80 alors

Streturn = Strreturn & Chr (ThisCharcode)

autre

NextCharcode = ASCB (Midb (Vin, I 1,1)))

STRRETURN = STRRETURN & CHR (CLNG (ThisCharcode) * & H100 Cint (NextCharcode))

i = i 1

terminer si

suivant

bytes2bstr = STRRETURN

fonction finale

«Énoncez le format de l'interception, en commençant du début à la fin du dernier

Fonction getKey (html, start, dernier)

filearray = Split (html, start)

FileArray2 = Split (filearray (1), dernier)

GetKey = filearray2 (0)

Fonction finale

Dim softid, URL, html, titre

'Obtenez l'ID de la page

Softid = request ("id")

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

Html = geturl (url)

'Prendre le nom du logiciel du logiciel Sky comme exemple

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

«Ouvrez la base de données et préparez-vous à entrer la bibliothèque

Dim Connstr, Conn, RS, SQL

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

Définir Conn = Server.CreateObject ("Adodb.Connection")

Conn.Open Connstr

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

SQL = "SELECT [Nom de la colonne] From [Watch Name] où [Nom de la colonne] = '& Title &"' "

Rs.OOPEN SQL, Conn, 3,3

Si Rs.Eof et Rs.Bof alors

RS ("" Liste ") = Title

Rs.Update

Définir RS = rien

terminer si

Définir RS = rien

Response.Write "collecté!"

%>