Beispielanalyseprogramm zum Erfassen von Wettervorhersage -Tutorial

Empfohlen: ASP gibt den letzten Ort einer Zeichenfolge zurück
% dwwwstr = divdwww.cn/divdivwww.dwww.cn/div Design Home dwwstr = Instrrev (Dwwwstr,/div) Antwort. Syntax Instrev (String1, String2 [, start [, compare]]) Instrument

Als ich morgens in der Firma arbeitete, sah ich im Jahr 2008 Schnee. .

Also fand ich einen Weg, ein Verfahren für die Wettervorhersage zu schreiben, und ich sah, dass die Wettervorhersage auf QQ ziemlich gut war. . hehe. . Ich werde dich fangen!

Wie im Bild gezeigt:

Code:

<%

'Bei der nächsten Fehlerbehebung als nächstes

'Autor: Wuqing Quelle: Bitte behalten Sie die Quelle beim Nachdruck

Antwort.ContentType = text/html;

Weather () anrufen

Subwetter ()

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

Rufen Sie Isobjinstalled an (microsoft.xmlhttp)

Weatherstr = Gethttppage (URL)

Wenn Weatherstr = dann

Antwort. Schreiben Sie Entschuldigung, die Wettervorhersage konnte nicht geladen werden!

anders

Setzen Sie Reg = New Regexp

reg.multiline = true

reg.global = false

Reg.ignoreCase = true

Reg.Pattern = <td Höhe = 77 class = wt2 lk37> ((. |/n)*?) </td>

Setzen Sie Matches = Reg.execute (Weatherstr)

Für jeden Match1 in Spielen

Weatherstr = Match1.Value

Nächste

Setzen Sie Matches = nichts

Setzen Sie Reg = nichts

Wenn Instrument (Weatherstr, nicht gefunden mit)> 0, dann

Antwort. Schreiben Sie Entschuldigung, die Wettervorhersage konnte nicht geladen werden!

Anders

Weatherstr = Ersetzen (Weatherstr, <td Höhe = 77 Klasse = WHT2 LK37>,)

Weatherstr = Ersetzen (Weatherstr, <div class = txbd>,)

Weatherstr = Ersetzen (Weatherstr, </div>,)

Weatherstr = Ersetzen (Weatherstr, </td>),)

Antwort.Write Shanghai Wettervorhersage: & Weatherstr &

Ende wenn

Ende wenn

Ende sub

'// Verwenden Sie Microsoft.xmlhttp -Komponente, um Daten zu sammeln

Funktion Gethttppage (URL)

'Bei der nächsten Fehlerbehebung als nächstes

Dim Http

Setzen Sie http = server.createObject (microsoft.xmlhttp)

Http.open bekommen, url, falsch

Http.send ()

Wenn http.readystate <> 4 dann

Ausgangsfunktion

Ende wenn

getttppage = bytes2bstr (http.responsebody)

Setzen Sie http = nichts

Wenn err.number <> 0 dann err.clear

Endfunktion

Aktien: Analysieren Sie die Abstimmung im ASP Implementation Dig -Programm
ASP macht eine Abstimmung in einem DIG -Programm (einige werden als Top und Schritt bezeichnet). Voteresult.