Call method: qqol.asp? Num = number
Qqol.asp:
<%
Num = Request.QueryString ("NUM")
DIM Quest
Set Quest = Server.createObject ("msxml2.xmlhttp")
Quest.open "get", "
http://icon.tencent.com/"unduMsi "/00 ", FALSE
Quest.send
User_qq = quest.statustext
Set Quest = Nothing
SELECT CASE USER_QQ
Case "Online Image"
QQ = "Online"
Case "offline image"
QQ = "Offline"
Case "Bad Request"
QQ = "Tencent internal error"
Case "unknown"
QQ = "Connect to Tencent Server Failure"
End SELECT
Response.write (QQ)
Response.end ()
%>
