无聊中，转一段ASP获取某QQ是否在线的代码

2009-08-26 12:06:22 196 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

手把手教你用OPA运放和MOS管搭建恒流源电路（附完整电路图）本文详细介绍了如何使用OPA运放和MOS管搭建高精度恒流源电路，涵盖核心元器件选型、电路设计、工作原理及实际搭建步骤。通过负反馈控制机制和MOS管工作区设置技巧，实现稳定的电流输出，适用于LED驱动、电池充电等场景。附完整电路图和调试技巧，助您快速掌握恒流源设计。阅读详情

从腾讯网站获取一个QQ号码的头像,在线情况(人家隐身了我也没办法).当然大家也可以获取QQ的昵称,所在地等.具体实现方法如下:
先建立两个函数,用来处理一个URL



<% 

function getHTTPPage(url) 

dim http 

set http=createobject("MSXML2.XMLHTTP") 

Http.open "GET",url,false 

Http.send() 

if Http.readystate<>4 then 

exit function 

end if 

getHTTPPage=bytes2BSTR(Http.responseBody) 

set http=nothing 

if err.number<>0 then err.Clear 

end function 

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

Function bytes2BSTR(vIn) 

dim strReturn 

dim i,ThisCharCode,NextCharCode 

strReturn = "" 

For i = 1 To LenB(vIn) 

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

If ThisCharCode < &H80 Then 

strReturn = strReturn & Chr(ThisCharCode) 

Else 

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

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

i = i + 1 

End If 

Next 

bytes2BSTR = strReturn 

End Function 

%>

这两个函数你可以收藏起来,用处大得不得了.
大家可以先看看这个地址http://friend.qq.com/CGI-bin/friend/oicq_find?oicq_no=(qq号码)
以下我们就通过腾讯的好友查找来获取信息,



<% 

function qqhead(qq) 

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

content=getHTTPPage(url) 

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

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

qqhead="<a href='http://friend.qq.com/CGI-bin/friend/user_show_info?ln="&qq&"' target='_blank'><img src='../../"&content&"' title='QQ:"&qq&"' border='0'></a>" 

else 

qqhead="" 

end if 

end function 

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

response.write qqhead(qq号码) 

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

%>