Récemment, certains programmes de collecte sont populaires sur Internet. Plus de gens vendent ces choses en ligne. Beaucoup de gens qui ne connaissent pas grand-chose envieux de ces programmes. En fait, si vous comprenez un ASP et comprenez les principes des programmes de collecte automatique, vous sentirez qu'il est si simple de mettre en œuvre l'automatisation.
Principe et avantages: via le composant XMLHTTP dans XML, les pages Web sur d'autres sites Web sont appelées, puis intercepter ou remplacer les informations d'origine afin qu'elles soient converties en variables puis stockées dans la base de données une par une. Son principal avantage est qu'il n'est pas nécessaire d'ajouter manuellement une grande quantité d'informations. Vous pouvez spécifier l'interception d'une certaine information sur le site et des contributions par lots pour atteindre le temps et les efforts. Contrairement à son programme de voleurs purement ASP: il ne s'appuie plus sur son site Web cible.
<%
«Déclarez la fonction pour obtenir les informations cibles et les implémenter via des composants XML.
Geturl (/ blog / url)
SetRetrieval = CreateObject ("Microsoft.xmlhttp")
Avec un peu de temps
Ouvrez "obtenir", URL, faux
Envoyer
GetUrl = bytes2Bstr (.ResponseBody)
«Vérifiez les informations obtenues. Si la durée de l'information est inférieure à 100, cela signifie que l'interception a échoué
iflen (.Responsebody) <100
Response.Write "n'a pas réussi à obtenir un fichier distant <ahref =" / blog / "& url &" cible = _blank> "& url &" </a>. "
réponse.
endire
Fin
SetRetrieval = rien
Fin
«Transformez le binaire en ficelle, sinon, il apparaîtra!
Bytes2BSTR (VIN)
strreturn = ""
fori = 1Tolenb (vin)
thisCharcode = ASCB (midb (vin, i, 1))
ifthischarcode <& h80Then
Streturn = Strreturn & Chr (ThisCharcode)
autre
NextCharcode = ASCB (Midb (Vin, I + 1,1))
Streturn = Streturn & Chr (Clng (ThisCharcode) * & H100 + Cint (NextCharcode))
i = i + 1
endire
suivant
bytes2bstr = STRRETURN
fin
'Déclarez le format intercepté, commencez enfin à partir du début et de la fin
Getkey (html, start, dernier)
filearray = Split (html, start)
FileArray2 = Split (filearray (1), dernier)
GetKey = filearray2 (0)
Fin
Dimsoftid, url, html, titre
'Obtenez l'identifiant de la page à récupérer
Softid = request ("id")
Url = "http://www3.skycn.com/soft/" & softid & ".html"
Html = geturl (/ blog / url)
'Prenez le nom du logiciel du logiciel interceptant Sky comme exemple
Title = getKey (html, "<fontcolor = '# 004fc6'size =' 3 '>", "</font> </b> </td> </tr>")
«Ouvrez la base de données et préparez-vous à saisir la base de données
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 [Nom de la colonne] From [Nom de la table] où [Nom de la colonne] = '" & Title & "'"
Rs.OpenSQL, Conn, 3,3
ifrs.eofandrs.bofthen
rs ("nom de colonne") = titre
Rs.Update
setrs = rien
endire
setrs = rien
Response.Write "La collection est complète!"
%>
