精彩:用Asp實現QQ在線查詢功能

這段程序的方法是利用XMLHTTP來讀取騰訊網站的相應HTML代碼獲取QQ的頭像，根據這個想法，我們還可以抓取很多其他網站的信息，如天氣預報、新聞等等。
＜script language="JavaScript"＞  
　　＜!--  
% E# j& q( C7 p+ l' z2 B9 t5 Q" M　　function getFaceImg（QQcode）  
( x2 t( W# r0 S, b' X  V* B- g! ~　　{  
　　var Re=new RegExp（"^[1-9]{1}\d+$","g"）;  
　　if （!QQcode　　!Re.test（QQcode）） return;  
! R" Q9 H: L7 U  [9 E　　var URL="http://search.tencent.com/cgi-bin/friend/oicq_find?oicq_no="+QQcode;  
, p( H; o% x) w　　var http=new ActiveXObject（"Microsoft.XMLHTTP"）;  
　　http.open（"GET",URL,false,"",""）;  
) M! |) v1 x+ ^, O　　http.setRequestHeader（"CONTENT-TYPE","text/html; Charset=gb2312"）;  
" D$ ]( r& ?  D: M8 _4 G8 W2 b7 \- u　　http.send（）;  
　　  
　　if （http.status!=200） return;  
　　  
  I  T$ A8 u; `# a　　var webStr=http.responseText;  
- K9 g/ F- A: T# ?( H3 ?: d; a　　Re=new RegExp（""（http://img.tencent.com/face/[^"]+）"","ig"）;  
7 s% k" Y$ S8 Z　　if （Re.test（webStr））  
0 D: ]: V% P* ^- Z' Y/ c" L　　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＞";  

' {# r, U; x# k+ _( l8 n" i+ h$ P　　http=null;  
" k8 a& |- O: V* G: F- L- Y　　}  

, j! O3 f1 a5 x% m　　document.write（"我的QQ狀態："+getFaceImg（"44723461"））;  
　　//--＞  
$ m+ G3 E+ C' D% {5 h1 o' W, r% Z& @　　＜/script＞