Web ページをクロールします。場合によっては、実際に最新の天気予報を実現することが必要になることがあります。 XMLHTTP コンポーネントは、Web ページの指定された部分をキャプチャするために使用されます。
HTMLソースコードを分割する必要がある
この例でキャプチャされた HTML ソース コードは次のとおりです。
<p align=left>2004 年 8 月 24 日火曜日、日中: 晴れ時々曇り、雲南風レベル 3 ～ 4、夜: 晴れ南風レベル 3 ～ 4、気温: 最高 29℃、最低 19℃ </p>
番組はこちらから
</p>終了までキーワード検索として 2004 年 8 月 24 日を使用してください
撮影内容は２００４年８月２４日火曜日、昼：晴れ時々曇り、雲南風レベル３～４、夜：晴れ、南風レベル３～４、気温：最高２９℃、最低１９℃になります。
きれいですよ。記録してください。
<%
エラー時は次へ再開
Server.ScriptTimeOut=9999999
関数 getHTTPage(パス)
t = GetBody(パス)
getHTTPPage=BytesToBstr(t,GB2312)
終了機能
関数 GetBody(url)
エラー時は次から再開
取得 = CreateObject(Microsoft.XMLHTTP) を設定します
検索あり
.Open Get、URL、False、、
。送信
GetBody = .ResponseBody
で終わる
取得 = なしを設定します
終了機能
関数 BytesToBstr(body,Cset)
薄暗いオブジェクトストリーム
set objstream = Server.CreateObject(adodb.stream)
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.本体の書き込み
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
objstream = 何も設定しない
終了機能
関数 Newstring(wstr,strng)
Newstring=Instr(lcase(wstr),lcase(strng))
if Newstring<=0 then Newstring=Len(wstr)
終了機能
%>
<html>
<BODY bgColor=#ffffff leftMargin=0 topMargin=0 MARGINHEIGHT=0 MARGINWIDTH=0>
<!-- 開始 -->
<%
ディム wstr,str,url,start,over,dtime
dtime=年(日付)&年&月(日付)&月&日(日付)&日
URL=http://www.vevb.com/
wstr=getHTTPPage(url)
start=新しい文字列(wstr,dtime)
over=Newstring(wstr,</p>)
body=mid(wstr,start,over-start)
response.write <MARQUEE onmouseover=this.stop(); onmouseout=this.start();>&body&</marquee>
%>
<!--終了-->
</body></html>