Web ページをクロールします。場合によっては、実際に最新の天気予報を実現することが必要になることがあります。 XMLHTTP コンポーネントは、Web ページの指定された部分をキャプチャするために使用されます。実際、多くの窃盗プログラムは、より使いやすくするために HTML ソース コードを分割する必要があります。
この例でキャプチャされた HTML ソース コードは次のとおりです。
<p align=left>2004 年 8 月 24 日火曜日、日中: 晴れ時々曇り、雲南の風レベル 3 ～ 4、夜: 晴れ、南の風レベル 3 ～ 4、気温: 最高 29℃、最低 19℃ </p>
番組はこちらから
2004 年 8 月 24 日をキーワード検索として使用してください。</p>end
撮影内容は２００４年８月２４日火曜日、昼：晴れ時々曇り、雲南風レベル３～４、夜：晴れ、南風レベル３～４、気温：最高２９℃、最低１９℃になります。
きれいですよ。記録してください。
次のようにコードをコピーします。
<%
エラー時は次へ再開
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=getHTTPage(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>