用asp完成QQ在线查询

用asp完成QQ在线查询

    用下面的代码即可完成与QQ网站一样的QQ网友在线查询的模式. 
　　＜script language="JavaScript"＞ 
　　　　＜!-- 
　　　　 function getFaceImg(QQcode) 
　　　　 { 
　　　　 var Re=new RegExp("^[1-9]{1}\\d+$","g"); 
　　　　 if (!QQcode　　!Re.test(QQcode)) return; 
　　　　 var URL="?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("\"([^\"]+)\"","ig"); 
　　 if (Re.test(webStr)) 
　　 return "＜a href=\"?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＞