博客介绍了调用腾讯接口查询QQ在线状态的方法，通过qqol.asp文件接收号码参数，利用Server.CreateObject创建XMLHTTP对象向腾讯服务器发送请求，根据返回的状态文本判断QQ是在线、离线，还是出现腾讯内部错误或连接失败。
调用方法: qqol.asp?num=号码
qqol.asp:
<%
num=request.QueryString("num")
dim quest
Set quest = Server.CreateObject("Msxml2.XMLHTTP")
quest.open "GET", " http://icon.tencent.com/"&num&"/s/00", False
quest.send
user_qq = quest.statusText
Set quest = Nothing
select case user_qq
case "Online Image"
qq="在线"
case "Offline Image"
qq="离线"
case "Bad Request"
qq="腾讯内部错误"
case "Unknown"
qq="连接腾讯服务器失败"
end select
response.Write(qq)
response.end()
%>
qqol.asp:
<%
num=request.QueryString("num")
dim quest
Set quest = Server.CreateObject("Msxml2.XMLHTTP")
quest.open "GET", " http://icon.tencent.com/"&num&"/s/00", False
quest.send
user_qq = quest.statusText
Set quest = Nothing
select case user_qq
case "Online Image"
qq="在线"
case "Offline Image"
qq="离线"
case "Bad Request"
qq="腾讯内部错误"
case "Unknown"
qq="连接腾讯服务器失败"
end select
response.Write(qq)
response.end()
%>
扫一扫
1853
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
