用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 target=_blank+QQcode+''><img src='http://www.wxshucaidpc.com/bcjs/22410.html'+RegExp.$1+'' width=16 height=16 border=0></a>';

http=null;

}

document.write('我的QQ狀態：'+getFaceImg('44723461'));

//-->

</script>