Merayapi halaman web. Kadang-kadang, ramalan cuaca terkini perlu diperoleh. Komponen XMLHTTP digunakan untuk menangkap bagian tertentu dari halaman web. Faktanya, banyak program pencuri perlu membagi kode sumber html agar lebih berguna.
Kode sumber html yang diambil dalam contoh ini adalah sebagai berikut
<p align=left>Selasa, 24 Agustus 2004; siang hari: cerah dan terkadang berawan, tingkat angin Yunnan 3-4; malam: angin selatan cerah tingkat 3-4; suhu maksimum 29℃ dan minimum 19℃ </p>
Programnya dari
Gunakan tanggal 24 Agustus 2004 sebagai kata kunci pencarian sampai</p>akhir
Konten yang diambil menjadi Selasa, 24 Agustus 2004; siang hari: cerah dan terkadang berawan, tingkat angin Yunnan 3-4; malam: angin selatan cerah tingkat 3-4;
Itu bersih. Rekam itu.
Copy kode kodenya sebagai berikut:
<%
Pada Kesalahan Lanjutkan Berikutnya
Server.ScriptTimeOut=9999999
Fungsi getHTTPage(Jalur)
t = GetBody(Jalur)
getHTTPHalaman=BytesToBstr(t,GB2312)
Fungsi akhir
Fungsi GetBody(url)
pada kesalahan lanjutkan berikutnya
Setel Pengambilan = Buat Objek (Microsoft.XMLHTTP)
Dengan Pengambilan
.Buka Dapatkan, url, Salah, ,
.Mengirim
GetBody = .ResponseBody
Akhiri Dengan
Atur Pengambilan = Tidak Ada
Fungsi Akhir
Fungsi BytesToBstr(tubuh,Cset)
objekstream redup
setel objstream = Server.CreateObject(adodb.stream)
objstream.Jenis = 1
objstream.Mode =3
objstream.Buka
objstream.Tulis isi
objstream.Posisi = 0
objstream.Jenis = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Tutup
setel objstream = tidak ada
Fungsi Akhir
Fungsi String Baru(wstr,strng)
String baru=Instr(lcase(wstr),lcase(strng))
jika Newstring<=0 maka Newstring=Len(wstr)
Fungsi Akhir
%>
<html>
<BODY bgColor=#ffffff leftMargin=0 topMargin=0 MARGINHEIGHT=0 MARGINWIDTH=0>
<!-- Mulai-->
<%
Redupkan wstr,str,url,mulai,akhiri,waktu
dtime=Tahun(Tanggal)&Tahun&Bulan(Tanggal)&Bulan&Hari(Tanggal)&Hari
url=http://www.vevb.com/
wstr=dapatkanHalaman HTTP(url)
mulai=String baru(wstr,waktu d)
over=String baru(wstr,</p>)
body=mid(wstr,start,over-start)
respon.tulis <MARQUEE onmouseover=this.stop(); onmouseout=this.start();>&body&</marquee>
%>
<!--Selesai-->
</tubuh></html>