用asp实现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 title=/"qq:"+qqcode+"/"><img src=/""+regexp.$1+"/" width=16 height=16 border=0></a>";

http=null;

}

document.write("我的qq状态："+getfaceimg("44723461"));

//-->

</script>

演示：http://www.2881.com/qq/