ASP程序中显示QQ是否在线的代码

ASP程序中显示QQ是否在线的代码
作者：风云 （2004年01月14日 11点42分02秒）
来源：http://8f6.com
<script runat=server language=javascript>
qq=Request.querystring("qq")+"";
if(qq=="undefined"){Response.redirect("http://www.lybbs.net/lybbs/avatars/144.gif");}else{
function http(url){
zfy=new ActiveXObject("Microsoft.XMLHTTP");
with(zfy){open("GET",url,false,"","");
send();
source=ResponseText;
return source;}
zfy=null;}
x=http("http://search.tencent.com/cgi-bin/friend/user_show_info?ln="+qq);
x=x.replace(//n/g,"");
x=x.replace(/(.*)face(.*)gif/g,"$2");
x=x.replace(/gif(.*)/g,"");
x="http://img.tencent.com/face"+x+"gif";
Response.redirect(x);}
</script>
保存为ASP文件即可。

补充说明：
==================================================================
x=x.replace(//n/g,"");　　//因为不支持换行，所以把所有换行符都刪掉。
x=x.replace(/(.*)face(.*)gif/g,"$2");　　//由于该页面，所有代码就出现过一次face，所以我们可以把face以前的代码全部删掉。
x=x.replace(/gif(.*)/g,"");　　//然后删掉gif后面的所有代码，得出了face和gif中间的“/l/49-1.”这样的一段字符。
==================================================================