用asp实现QQ在线查询

编者(icech)按：这段程序的方法是利用XMLHTTP来读取腾讯网站的相应HTML代码获取QQ的头像，根据这个想法，我们还可以抓取很多其他网站的信息，如天气预报、新闻等等。

<script language='javascript'>

<!--

function getFaceImg(QQcode)

{

var Re=new RegExp('^[1-9]{1}d+$','g');

if (!QQcode||!Re.test(QQcode)) return;

var URL='http://search.tencent.com/cgi-bin/friend/oicq_find?oicq_no='+QQcode

var http=new ActiveXObject('Microsoft.XMLHTTP');

http.open('GET',URL,false,'','');

http.setRequestHeader('CONTENT-TYPE','text/html; Charset=gb2312');

http.send();

if (http.status!=200) return;

var webStr=http.responseText;

Re=new RegExp(''(http://img.tencent.com/face/[^']+)'','ig');

if (Re.test(webStr))

return '<a href='http://search.tencent.com/cgi-bin/friend/user_show_info?ln='+QQcode+'' target=_blank+QQcode+''><img src='https://www.haobala.com/bcjs/22410.html'+RegExp.$1+'' width=16 height=16 border=0></a>';

http=null;

}

document.write('我的QQ状态：'+getFaceImg('44723461'));

//-->

</script>