繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 通过MSXML2自动获取QQ个人头像及在线情况(给初学者)
- ASP
- Adodb.Command 平时很少注意到的一个参数
- Asp.Net控件加载错误的解决方法
- 远程连接access数据库的方法
- 创建具有JScript的HTML的XMLHTTP
- 在Asp中如何快速优化分页的技巧
- 用VB生成DLL封装ASP代码，连接数据库
- RS.OPEN SQL,CONN,A,B 全接触
- 利用adodb.stream直接下载任何后缀的文件(防盗链)
- 用ASP编程控制在IIS建立Web站点的程序代码
- 使用VBScript操作Html复选框（CheckBox）控件
- 把文章内容中涉及到的图片自动保存到本地服务器
- 两个不同数据库表的分页显示解决方案
- 使用组件封装数据库操作(一)
- 使用组件封装数据库操作(二)
- 如何在pb中创建COM组件，并在asp中调用并返回结果集？
- 用ASP和Microsoft.XMLDOM分析远程XML文件
- 浅谈无刷新取得远程数据技术
- 将ASP纪录集输出成n列的的表格形式显示的方法
- 在ASP中通过oo4o连接Oracle数据库的例子
- Server Application Error详细解决办法
ASP 中的 通过MSXML2自动获取QQ个人头像及在线情况(给初学者)
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 180 ::
收藏到网摘: n/a
不知道大家对MSXML2.XMLHTTP是不是很熟悉,不过它的功能可以说是达到了极点.你可以通过它把别人的网站都"搬回来",呵呵,吹牛啦!!
今天我就用它从腾讯网站获取一个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=5292816
(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(5292816)
如果QQ头像是彩色的,说明好友在线,灰的就是不在线.
%>
大家可以到http://www.okwest.net/books看看效果.呵呵.
评论 (0) All
