asp实现QQ号状态和QQ秀

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

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

或者:

1. 定义online数组，必须是online命名

2. 获取在线状态

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

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=”当前在线”

else

result=”不在线”

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部分

以下是代码片段：

xindaima.cn在线查询QQ号，qq秀

<%if request(“q”)<>”” then%>

当前状态:<%=result%>

<%end if%>

该帐号的QQ秀形象

/10/00/”>

• qq