maksudnya:
<%
Fungsi GetBody(weburl)
Setel Pengambilan = Server.CreateObject("MSXML2.XMLHTTP")
Dengan Pengambilan
.Buka "Dapatkan", weburl, Salah, "", ""
.setRequestHeader "referer"," http://www.devdao.com/"'想改什么就改什么
.Mengirim
GetBody = .ResponseBody
Akhiri Dengan
GetBody = BytesToBstr(GetBody,"GB2312")
Atur Pengambilan = Tidak Ada
Fungsi Akhir
Fungsi BytesToBstr(body,Cset)
objek 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.Write
(GetBody(" http://www.devdao.com/referer.asp "))
%>