Explorez les pages Web. Parfois, il est nécessaire d’obtenir des prévisions météorologiques réelles et actualisées. Le composant XMLHTTP est utilisé pour capturer la partie spécifiée de la page Web. En fait, de nombreux programmes voleurs doivent diviser le code source HTML pour être plus utiles.
Le code source HTML capturé dans cet exemple est le suivant
<p align=left>Mardi 24 août 2004 ; jour : ensoleillé et parfois nuageux, vent du Yunnan niveau 3-4 ; nuit : vent du sud ensoleillé, température : maximum 29℃ et minimum 19℃ </p>
Le programme vient de
Utilisez le 24 août 2004 comme mot clé de recherche jusqu'à</p>fin
Le contenu capturé devient le mardi 24 août 2004 ; jour : ensoleillé et parfois nuageux, vent du Yunnan niveau 3-4 ; nuit : vent du sud ensoleillé, température : maximum 29℃, minimum 19℃ ;
C'est propre. Enregistrez-le.
Copiez le code comme suit :
<%
En cas d'erreur, reprendre ensuite
Serveur.ScriptTimeOut=9999999
Fonction getHTTPage(Chemin)
t = ObtenirCorps(Chemin)
getHTTPPage=BytesToBstr(t,GB2312)
Fin de fonction
Fonction GetBody(url)
en cas d'erreur, reprendre ensuite
Définir la récupération = CreateObject (Microsoft.XMLHTTP)
Avec récupération
.Ouvrez Obtenir, URL, Faux, ,
.Envoyer
GetBody = .ResponseBody
Terminer par
Définir la récupération = Rien
Fonction de fin
Fonction BytesToBstr(corps,Cset)
objstream obscur
définir objstream = Server.CreateObject (adodb.stream)
objstream.Type = 1
objstream.Mode =3
objstream.Ouvrir
objstream.Écrire le corps
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Fermer
définir objstream = rien
Fonction de fin
Fonction Nouvellechaîne(wstr,strng)
Nouvellechaîne=Instr(lcase(wstr),lcase(strng))
si Nouvellechaîne<=0 alors Nouvellechaîne=Len(wstr)
Fonction de fin
%>
<html>
<BODY bgColor=#ffffff leftMargin=0 topMargin=0 MARGINHEIGHT=0 MARGINWIDTH=0>
<!-- Démarrer-->
<%
Dim wstr, str, url, début, fin, dtime
dtime=Année(Date)&Année&Mois(Date)&Mois&Jour(Date)&Jour
url=http://www.vevb.com/
wstr=getHTTPage(url)
start=Nouvellechaîne(wstr,dtime)
over=Nouvellechaîne(wstr,</p>)
corps=mid(wstr,start,over-start)
réponse.write <MARQUEE onmouseover=this.stop(); onmouseout=this.start();>&body&</marquee>
%>
<!--Fin-->
</body></html>