XMLHttp ASP การรับรหัสเนื้อหาของหน้าเว็บจากระยะไกล

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)

response.write body

Function getHTTPPage(url)

dim objXML

set objXML=createobject(MSXML2.XMLHTTP)'define

objXML.open GET,url,false'Open

objXML.send()'Send

If objXML.readystate<>4 จากนั้น 'ตรวจสอบว่าเอกสารได้รับการแยกวิเคราะห์หรือไม่ เพื่อให้ไคลเอ็นต์สามารถยอมรับได้

ฟังก์ชันออกจาก

ข้อความส่งคืน

End If

getHTTPPage=bBytesToBstr(objXML.responseBody)' ส่งคืนข้อมูลและใช้

ชุด

objXML=nothing'Close

ถ้า err.number<>0 แล้ว err.Clear

End Function

Function Newstring(wstr,strng)

Newstring=Instr(lcase(wstr),lcase(strng))

if Newstring<=0 แล้ว Newstring=Len(wstr )

ฟังก์ชั่นสิ้นสุด

ฟังก์ชั่น bBytesToBstr(body)

dim 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

'แปลงการเข้ารหัส UTF-8 เริ่มต้นดั้งเดิมเป็นการเข้ารหัส GB2312 มิฉะนั้นให้ใช้ XMLHTTP โดยตรงเพื่อเรียกหน้าเว็บด้วยตัวอักษรจีน จะเป็นคำที่ไม่มีความหมาย

bBytesToBstr = objstream.ReadText

objstream.Close

set objstream = ไม่มีอะไร

สิ้นสุด Function

Function BytesToBstr (เนื้อหา)

สลัวชุด objstream

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

'แปลงการเข้ารหัส UTF-8 เริ่มต้นดั้งเดิมเป็นการเข้ารหัส GB2312 ไม่เช่นนั้นการใช้ XMLHTTP โดยตรงเพื่อเรียกหน้าเว็บที่มีตัวอักษรจีนจะส่งผลให้รหัสที่อ่านไม่ออก

BytesToBstr = objstream.ReadText

objstream.Close

set objstream = none

end Function