在线测试站长OICQ是否在线的代码

新建一个ASP文件(如qq.asp)
内容如下(红色部分)
<%
“===============================================下面为测试站长OICQ是否在线
Dim users,qq_font
users="54807293" “使用者OICQ号码
select case user_qq(users)
case "Online Image"
qq_font="站长在线" “在线时候的信息
case "Offline Image"
qq_font="站长离线或隐身" “离线或者是隐身时候的信息
case "Bad Request"
qq_font="腾讯内部错误"
case "Unknown"
qq_font="连接腾讯服务器失败"
end select
function user_qq(n)
dim quest
Set quest = Server.CreateObject("Msxml2.XMLHTTP")
quest.open "GET", "http://icon.tencent.com/";&n&"/s/00", False
quest.send
user_qq = quest.statusText
Set quest = Nothing
end function
response.Write("document.write(“"&qq_font&"“)")
%>


调用方法：
<script language="JavaScript" src="qq.asp"></script>