MSXML22.xmlhttp에 매우 익숙한 지 모르겠지만 그 기능은 극도로 말할 수 있습니다. 당신은 그것을 사용하여 다른 사람들의 웹 사이트 인 하하, brag!
오늘은 Tencent 웹 사이트에서 QQ 번호 아바타를 얻는 데 사용합니다. 온라인 상황 (누군가가 보이지 않으면 할 수 없습니다). 물론 QQ 닉네임, 위치 등을 얻을 수도 있습니다. 특정 구현 방법은 다음과 같습니다.
URL을 처리하기 위해 먼저 두 가지 기능을 만듭니다
코드 사본은 다음과 같습니다.
<%
functiongethttppage (url)
dimhttp
setthttp = createobject ( "msxml2.xmlhttp")
http.open "get", url, false
http.send ()
ifhttp.readystate <> 4then
종료 기능
endif
gethttppage = bytes2bstr (http.responsebody)
setthttp = 아무것도 없습니다
iferr.number <> 0thenerr.clear
최종 기능 장애
'' '' '' '' '다음과 같은 처리 문자
functionbytes2bstr (vin)
Dimstrreturn
Dimi, Thischarcode, NextCharcode
strreturn = ""
fori = 1tolenb (vin)
thischarCode = ASCB (MIDB (Vin, I, 1))
ifthischarcode <& h80then
strreturn = strreturn & chr (thischarcode)
또 다른
NextCharCode = ASCB (MIDB (VIN, I+1,1))
strreturn = strreturn & chr (clng (thischarcode)*& h100+cint (nextcharcode))
i = i+1
endif
다음
바이트 2bstr = strreturn
최종 기능 장애
%>
이 두 기능을 수집 할 수 있습니다.
먼저이 주소를 확인할 수 있습니다
(QQ는 내 자신입니다. 저는 매일 매우 바쁩니다.
아래에서는 Tencent의 친구 검색을 통해 정보를 얻을 수 있습니다.
<%
functionqqhead (QQ)
url = "http://friend.qq.com/cgi-bin/friend/oicq_find?oicq_no="& qq
content = gethttppage (url)
iflen (content)> 6360then'if qq는 유효하지 않으며 오류를 피하기 위해 처리를 수행하십시오.
content = replace (mid (content, inst) (콘텐츠, "http://img.tencent.com"), 38), "" "," ")
qqhead = "<ahref = 'http : //friendly.qqq.com/cgi-bin/friend/user_show_info? ln ="& qq & "'target = '_ blank'> <imgsrc = '"& content & "'title = 'qq :"& qq & "'border = '0'> </a>"
또 다른
qqhead = ""
endif
최종 기능 장애
'좋아요, 작업이 완료되었습니다. 이제 모두가 전화를해야합니다.
response.writeqqhead (5292816)
QQ 아바타가 채색되면 친구가 온라인 상태이고 회색은 온라인 상태가 아님을 의미합니다.
%>
http://www.okwest.net/books로 이동하여 효과를 확인할 수 있습니다. 하하.