代码:
-
ฟังก์ชั่น GetBody (weburl)
ตั้งค่าการเรียกข้อมูล = Server.CreateObject("MSXML2.XMLHTTP")
ด้วยการเรียกค้น
. เปิด "รับ", weburl, False, "", ""
.setRequestHeader "ผู้อ้างอิง", " http://www.devdao.com/"''想改什么就改什么
.ส่ง
GetBody = .การตอบสนองร่างกาย
จบด้วย
GetBody = BytesToBstr(GetBody,"GB2312")
ตั้งค่าการดึงข้อมูล = ไม่มีเลย
ฟังก์ชันสิ้นสุด
ฟังก์ชัน BytesToBstr(body,Cset)
objstream สลัว
ตั้ง objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.เปิด
objstream เขียนเนื้อหา
objstream ตำแหน่ง = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.ปิด
ตั้งค่า objstream = ไม่มีเลย
สิ้นสุด
การตอบสนองฟังก์ชั่นเขียน (GetBody (" http://www.devdao.com/referer.asp "))
-