显示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()
%>