CSDN博客

img nsnboy

显示qq在线状态的源码

发表于2004/6/25 21:09:00  1859人阅读

调用方法: 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()
%>
阅读全文
0 0

相关文章推荐

img
取 消
img