推奨: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。
2ページの前のページ12次のページ次のページ