Principe de collection:
Les principales étapes de la procédure de collecte sont les suivantes:
1. Obtenez le contenu de la page collectée
2. Extraire toutes les données utilisées à partir du code d'acquisition
1. Obtenez le contenu de la page collectée
Je connais actuellement les méthodes couramment utilisées pour obtenir des pages collectées dans ASP:
1. Utilisez le composant ServerXMLHTTP pour obtenir des données
Fonction getbody (weurl)
'----------------------- Zhai Zhenkai (Xiao Qi)
'Créer un objet
Dim objxmlhttp
Définir objxmlhttp = server.createObject ("msxml2.serverxmlhttp")
'Demande le fichier, sous forme asynchrone
Objxmlhttp.open "get", webuurl, false
Objxmlhttp.send
Tandis que objxmlhttp.readystate <> 4
Objxmlhttp.waitforResponse 1000
Se promener
'Obtenez le résultat
GetBody = objxmlhttp.ResponseBody
'Libérez l'objet
Définir objxmlhttp = rien
'----------------------- Zhai Zhenkai (Xiao Qi)
Fonction finale
Méthode d'appel: getBody (l'adresse URLF du fichier)
2. ou composant XMLHTTP pour obtenir des données
Fonction getbody (weurl)
'----------------------- Zhai Zhenkai (Xiao Qi)
'Créer un objet
Set Retrieval = CreateObject ("Microsoft.xmlhttp")
Avec récupération
.Open "Get", weurl, false, "", ""
.Envoyer
Getbody = .Responsebody
Se terminer avec
'Libérez l'objet
Set Retrieval = Rien
'----------------------- Zhai Zhenkai (Xiao Qi)
Fonction finale
Méthode d'appel: getBody (l'adresse URLF du fichier)
Les données obtenues de cette manière doivent également être codées et converties avant de pouvoir être utilisées
Fonction bytestobstr (corps, cset)
'----------------------- Zhai Zhenkai (Xiao Qi)
objstream sombre
Définir objstream = server.createObject ("adodb.stream")
objstream.type = 1
objstream.mode = 3
objstream.open
OBJSTREAM.WRITE CORPS
objstream.position = 0
objstream.type = 2
objstream.charset = cset
ByTestObstr = objstream.readText
objstream.close
définir objstream = rien
'----------------------- Zhai Zhenkai (Xiao Qi)