Weather ForeCast_aspチュートリアルをキャプチャするための分析プログラム

推奨：ASPは文字列の最後の場所を返します
％dwwwstr = divdwww.cn/divdivwww.dwww.cn/div desiv home dwwwstr = instrrev（dwwwstr、/div）応答。 構文instrrev（string1、string2 [、start [、compart]]）instrre

私が朝に働いていたとき、私は2008年の最初の雪が寒かったのを見ました。 。

そこで、天気予報の手順を書く方法を見つけましたが、QQの天気予報は非常に良かったことがわかりました。 。 hehe。 。私はあなたを捕まえます！

写真に示されているように：

コード：

<％

'次にエラー再開

'著者：Wuqingソース：転載時はソースを保管してください

Response.ContentType = text/html;

天気を呼び出す（）

サブ天気（）

url = http：//weather.news.qq.com/inc/07_ss252.htm '上海の天気

Isobjinstalled（microsoft.xmlhttp）に電話してください

weatherstr = gethttppage（url）

weatherstr = thenの場合

Response.Write申し訳ありませんが、天気予報はロードに失敗しました！

それ以外

reg = new regexpを設定します

reg.multiline = true

reg.global = false

reg.ignorecase = true

reg.pattern = <td height = 77 class = wht2 lk37>（（。|/n）*？）</td>

一致= reg.execute（weatherstr）を設定します

一致の各マッチ1について

weatherstr = match1.value

次

一致=何も設定しません

reg =何も設定しません

If strust（weatherstr、wither of of witn）> 0 then

Response.Write申し訳ありませんが、天気予報はロードに失敗しました！

それ以外

weatherstr =置換（weatherstr、<td height = 77 class = wht2 lk37>、）

weatherstr =置換（weatherstr、<div class = txbd>、）

weatherstr =置換（weatherstr、</div>、）

weatherstr =置換（weatherstr、</td>、）

Response.write上海の天気予報：＆weatherstr＆

ifを終了します

ifを終了します

End Sub

'// Microsoft.xmlhttpコンポーネントを使用してデータを収集します

関数gethttppage（url）

'次にエラー再開

dim http

http = server.createobject（microsoft.xmlhttp）を設定します

http.open get、url、false

http.send（）

http.ReadyState <> 4の場合

出口機能

ifを終了します

gethttppage = bytes2bstr（http.responsebody）

http = Nothingを設定します

err.number <> 0の場合、err.clear

エンド関数

共有：ASP実装DIGプログラムの投票を分析する
ASPはDIGプログラムで投票します（一部はトップとステップオンと呼ばれます）。コードのみが投稿されています。 ProcreSult。