Metode penggunaan xmlhttp untuk mendapatkan konten halaman web di bawah asp umumnya lebih umum, dan kemudian menyadap konten halaman web melalui karakter.
Salin kode sebagai berikut:url=http://www.csdn.net/
wstr=getHTTPPage(url)
start=Newstring(wstr,Resource Selection<!-- Download-->)
over=Newstring(wstr,<div class =friendlink>)
body=mid(wstr,200,500)
respon.write body
Fungsi getHTTPPage(url)
redupkan objXML
yang disetel objXML=createobject(MSXML2.XMLHTTP)'define
objXML.open GET,url,false'Open
objXML.send()'Send
If objXML.readystate<>4 lalu 'Tentukan apakah dokumen telah diurai, sehingga klien dapat menerimanya
fungsi keluar
pesan kembali
Berakhir Jika
getHTTPPage=bBytesToBstr(objXML.responseBody)' mengembalikan informasi dan menggunakan
kumpulan
pengkodean definisi fungsiobjXML=tidak ada'Tutup
jika err.number<>0 maka err.Hapus
Fungsi Akhir
Fungsi Newstring(wstr,strng)
Newstring=Instr(lcase(wstr),lcase(strng))
jika Newstring<=0 maka Newstring=Len(wstr )
Fungsi Akhir
Fungsi bBytesToBstr(body)
redupkan objstream
set objstream = CreateObject(adodb.stream)
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = gb2312
'Konversi pengkodean UTF-8 default asli ke pengkodean GB2312, jika tidak langsung gunakan XMLHTTP untuk memanggil halaman web dengan karakter Cina. akan menjadi omong kosong
bBytesToBstr = objstream.ReadText
objstream.Close
set objstream = tidak ada
akhir Fungsi
Fungsi BytesToBstr(body)
redupkan objstream
set objstream = CreateObject(adodb.stream)
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = utf-8
'Ubah pengkodean UTF-8 default asli ke pengkodean GB2312, jika tidak, langsung menggunakan XMLHTTP untuk memanggil halaman web dengan karakter Cina akan menghasilkan kode kacau
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = Nothing
end Fungsi