اكتساب 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)'تحديد

objXML.open GET,url,false'Open

objXML.send()'Send

إذا كان objXML.readystate<>4 ثم 'حدد ما إذا كان قد تم تحليل المستند، بحيث يمكن للعميل قبوله

وظيفة الخروج

لرسالة الإرجاع

End إذا كانت

getHTTPPage=bBytesToBstr(objXML.responseBody)' تقوم بإرجاع المعلومات وتستخدم

مجموعة

objXML=nothing'Close

if err.number<>0 ثم err.Clear

End Function

Function Newstring(wstr,strng)

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

إذا 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 = لا شيء

نهاية وظيفة

وظيفة BytesToBstr(body)

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 = لا شيء

نهاية الوظيفة