asp实现QQ号状态和QQ秀

原理基于Xmlhttp查询http://webpresence.qq.com/getonline?qq=QQ

如果在线将返回1为在线,0为不在线。 好了,

或者:

1) 定义online数组,必须是online命名

<script>var online= new Array();</script>

2) 获取在线状态

<script src="http://webpresence.qq.com/getonline?Type=1&271569542:"></script>

可以获取多个,必须以冒号分隔,以冒号结尾,比如:

<script src="http://webpresence.qq.com/getonline?Type=1&271569542:78293657:123456:"></script>

online[0]=0,表示271569542离线

online[1]=1,表示78293657在线

online[2]=1,表示123456在线

填写号码的先后顺序,分别对应数组online的0、1、2

QQ秀怎么返回那

这个地址http://qqshow-user.tencent.com/

是显示QQ秀的

下面来实现

程序部分

以下是代码片段:
if request("q")<>"" then
dim q,url,result
q=request("q")
url = "http://webpresence.qq.com/getonline?qq="& q

result=getHTTPPage(url)
if    result = 1 then
result="<font color=red>当前在线</font>"
else
result="<font color=#ccccc>不在线</font>"
end if
end if

function getHTTPPage(url)
dim Http
set Http=server.createobject("MSXML2.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=Http.responseText
set http=nothing
if err.number<>0 then err.Clear
end function

html部分

以下是代码片段:
<html xmlns="http://www.w3.org/1999/xhtml" >
<head>
<meta content="text/html; charset=gb2312" http-equiv="content-type" />
<title>xindaima.cn在线查询QQ号,qq秀</title>
</head>
<body>
<form >
<p align="center">
&nbsp;<input type="text" name="q" size="20" maxlength="9" />
<input type="submit" /><br />
<br />

</form>
<%if request("q")<>"" then%>
当前状态:<%=result%>
<%end if%>
<br>
该帐号的QQ秀形象
<p align="center"><img border="0" src="http://qqshow-user.tencent.com/<%=q%>/10/00/"></p>
</body>
</html>

Leave a Reply