Appelez des pages Web sur d'autres sites Web via le composant XMLHTTP en XML, puis interceptez ou remplacez les informations originales par lots pour les convertir en variables, puis stockez-les une par une dans la base de données. 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 des informations d'une certaine station à saisir par lots, ce qui permet d'économiser du temps et des efforts. La différence avec son programme voleur ASP pur est qu’il ne s’appuie plus sur son site web cible.
Code de référence :
Copiez le code comme suit :
<%
'Déclare une fonction pour obtenir des informations cibles, implémentée via des composants XML.
Fonction Geturl(/blog/url)
Définir la récupération = CreateObject (Microsoft.XMLHTTP)
Avec récupération
.Ouvrez GET, url, False
.Envoyer
GetURL = octets2bstr(.responsebody)
'Vérifiez les informations obtenues. Si la longueur des informations est inférieure à 100, l'interception échoue.
si len(.responsebody)<100 alors
réponse.write n'a pas réussi à obtenir le fichier distant <a href=&url& target=_blank>&url&</a>.
réponse.end
finir si
Terminer par
Définir la récupération = Rien
Fonction de fin
' Convertissez le binaire en chaîne, sinon des caractères tronqués apparaîtront !
fonction octets2bstr(vin)
strretour =
pour i = 1 à lenb(vin)
thischarcode = ascb(midb(vin,i,1))
si ce code de caractère < &h80 alors
strreturn = strreturn & chr(thischarcode)
autre
prochaincharcode = ascb(midb(vin,i+1,1))
strreturn = strreturn & chr(clng(thischarcode) * &h100 + cint(nextcharcode))
je = je + 1
finir si
suivant
octets2bstr = strretour
fonction de fin
'Déclarez le format d'interception, en commençant par Start et en terminant par Last
Fonction GetKey(HTML,Démarrer,Dernier)
filearray=split(HTML,Démarrer)
filearray2=split(filearray(1),Dernier)
GetKey=filearray2(0)
Fonction de fin
Dim Softid,Url,Html,Titre
'Obtenez l'ID de la page que vous souhaitez récupérer
SoftId = Demande (Id)
Url=http://www3.skycn.com/soft/&SoftId&.html
Html = Geturl(/blog/Url)
"Prenons comme exemple le nom du logiciel d'interception du ciel
Titre = GetKey(Html,<font color='#004FC6' size='3'>,</font></b></td></tr>)
'Ouvrez la base de données et préparez-vous à la stocker
faible connstr,conn,rs,sql
connstr=DBQ=+server.mappath(db1.mdb)+;DefaultDir=;DRIVER={Pilote Microsoft Access (*.mdb)};
définir conn=server.createobject(ADODB.CONNECTION)
conn.open connstr
définir rs=server.createobject(adodb.recordset)
sql=sélectionnez [nom de la colonne] dans [nom de la table] où [nom de la colonne]='&Titre&'
rs.open sql,conn,3,3
si rs.eof et rs.bof alors
rs(nom de la colonne)=Titre
rs.mise à jour
définir rs = rien
finir si
définir rs = rien
Collecte Response.Write terminée !
%>