웹 페이지 콘텐츠 코드의 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

함수 getHTTPPage(url)

희미한 objXML

세트 objXML=createobject(MSXML2.XMLHTTP)'define

objXML.open GET,url,false'Open

objXML.send()'Send

If objXML.readystate<>4 then '클라이언트가 수락할 수 있도록 문서가 구문 분석되었는지 확인합니다. 반환 메시지

종료 함수

getHTTPPage=bBytesToBstr(objXML.responseBody)'가 정보를 반환하고 함수 정의 인코딩

세트를

경우

objXML=nothing'Close

if err.number<>0 then err.Clear

End 함수

함수 Newstring(wstr,strng)

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

if Newstring<=0 then Newstring=Len(wstr )

끝 기능

기능 bBytesToBstr(body)

희미 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 = 아무것도

end Function

Function 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 = Nothing

end Function