不知道大家对MSXML2.XMLHTTP是不是很熟悉,不过它的功能可以说是达到了极点.你可以通过它把别人的网站都"搬回来",呵呵,吹牛啦!!

今天我就用它从腾讯网站获取一个QQ号码的头像,在线情况(人家隐身了我也没办法).当然大家也可以获取QQ的昵称,所在地等.具体实现方法如下:

先建立两个函数,用来处理一个URL

复制代码 代码如下:

<%

functiongetHTTPPage(url)

dimhttp

sethttp=createobject("MSXML2.XMLHTTP")

Http.open"GET",url,false

Http.send()

ifHttp.readystate<>4then

exitfunction

endif

getHTTPPage=bytes2BSTR(Http.responseBody)

sethttp=nothing

iferr.number<>0thenerr.Clear

endfunction

'''''''以下处理字符

Functionbytes2BSTR(vIn)

dimstrReturn

dimi,ThisCharCode,NextCharCode

strReturn=""

Fori=1ToLenB(vIn)

ThisCharCode=AscB(MidB(vIn,i,1))

IfThisCharCode<&H80Then

strReturn=strReturn&Chr(ThisCharCode)

Else

NextCharCode=AscB(MidB(vIn,i+1,1))

strReturn=strReturn&Chr(CLng(ThisCharCode)*&H100+CInt(NextCharCode))

i=i+1

EndIf

Next

bytes2BSTR=strReturn

EndFunction

%>

这两个函数你可以收藏起来,用处大得不得了.

大家可以先看看这个地址http://friend.qq.com/cgi-bin/friend/oicq_find?oicq_no=5292816

(QQ是本人的,我每天都很忙,请大家自觉,呵呵,讨论问题非常欢迎)

以下我们就通过腾讯的好友查找来获取信息,

<%

functionqqhead(qq)

url="http://friend.qq.com/cgi-bin/friend/oicq_find?oicq_no="&qq

content=getHTTPPage(url)

iflen(content)>6360then'如果QQ无效,做一些处理,避免错误发生.

content=replace(mid(content,instr(content,"http://img.tencent.com"),38),"""","")

qqhead="<ahref='http://friend.qq.com/cgi-bin/friend/user_show_info?ln="&qq&"'target='_blank'><imgsrc='"&content&"'title='QQ:"&qq&"'border='0'></a>"

else

qqhead=""

endif

endfunction

'OK了,大功告成了.现在大家只要调用就行了.

response.writeqqhead(5292816)

如果QQ头像是彩色的,说明好友在线,灰的就是不在线.

%>

大家可以到http://www.okwest.net/books看看效果.呵呵.