Exemple de programme d'analyse pour capturer le tutoriel sur les prévisions météorologiques_asp

Recommandé: ASP renvoie le dernier emplacement d'une chaîne
% dwwwstr = divdwww.cn/divdivwww.dwww.cn/div Design home dwwwstr = instrrev (dwwwstr, / div) réponse.write dwwwstr% instrrEv Description Renvoie la position de la fin d'une chaîne qui apparaît dans une autre chaîne. Syntaxe instrrev (string1, string2 [, start [, compare]]) instrrE

Quand je travaillais dans l'entreprise le matin, j'ai vu la neige tomber à l'extérieur. .

J'ai donc trouvé un moyen d'écrire une procédure de prévision météorologique, et j'ai vu que les prévisions météorologiques sur QQ étaient assez bonnes. . hehe. . Je vais te rattraper!

Comme indiqué dans l'image:

Code:

<%

'On Error Repume Suivant

'Auteur: Wuqing Source: Veuillez garder la source lors de la réimpression

Response.ContentType = Text / Html;

Appeler Weather ()

Sous-temps ()

url = http: //weather.news.qq.com/inc/07_ss252.htm '

Appelez Isobjinstalled (Microsoft.xmlhttp)

weatherstr = gethttppage (URL)

Si weatherstr = alors

Response.Write Désolé, les prévisions météorologiques n'ont pas réussi à se charger!

autre

Définir Reg = nouveau regexp

reg.multiline = true

reg.global = false

reg.ignorecase = true

reg.pattern = <td height = 77 class = wht2 lk37> ((. | / n) *?) </td>

Set Matchs = reg.Execute (Weatherstr)

Pour chaque match1 en matchs

weatherstr = match1.value

Suivant

Set Matchs = Rien

Définir Reg = rien

Si instr (weatherstr, non trouvé avec)> 0 alors

Response.Write Désolé, les prévisions météorologiques n'ont pas réussi à se charger!

Autre

weatherstr = remplacer (weatherstr, <td height = 77 class = wht2 lk37>,)

weatherstr = remplacer (Weatherstr, <div class = txbd>,)

weatherstr = remplacer (Weatherstr, </div>,)

weatherstr = remplacer (weatherstr, </td>,)

Response.Write Shanghai Météo Prévisions: & Weatherstr &

terminer si

terminer si

Sub-Sub

'// Utilisez le composant Microsoft.xmlhttp pour collecter des données

Fonction gethttppage (URL)

'On Error Repume Suivant

DIM HTTP

Définir http = server.createObject (Microsoft.xmlhttp)

Http.open get, url, false

Http.send ()

Si http.readystate <> 4 alors

fonction de sortie

terminer si

GethTTPPAGE = BYTES2BSTR (Http.ResponseBody)

définir http = rien

Si err.number <> 0 alors err.clear

Fonction finale

Partager: Analyser le vote dans le programme de dig implémentation ASP
ASP fait un vote dans un programme DIG (certains sont appelés top et pas à pas). VOLERESULT.