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

這段程序的方法是利用XMLHTTP來讀取騰訊網站的相應HTML代碼獲取QQ的頭像，根據這個想法，我們還可以抓取很多其他網站的信息，如天氣預報、新聞等等。
0 ~9 L7 v9 K  d# _' K" R＜script language="JavaScript"＞  
8 Z  ]8 E% i3 S" C0 I  Q: O　　＜!--  
0 k1 o5 p% }" H9 c4 T　　function getFaceImg（QQcode）  
: e5 x. H- Q. E  v+ y5 e　　{  
　　var Re=new RegExp（"^[1-9]{1}\d+$","g"）;  
( y0 X4 U! j) s3 [0 o　　if （!QQcode　　!Re.test（QQcode）） return;  
* y) Q  K. O# \& _- \9 z9 j　　var URL="http://search.tencent.com/cgi-bin/friend/oicq_find?oicq_no="+QQcode;  
　　var http=new ActiveXObject（"Microsoft.XMLHTTP"）;  
$ D' U1 t7 ]: c　　http.open（"GET",URL,false,"",""）;  
　　http.setRequestHeader（"CONTENT-TYPE","text/html; Charset=gb2312"）;  
　　http.send（）;  
% _! Z0 ?- W0 H& V) C, ?1 Q　　  
　　if （http.status!=200） return;  
1 G& O4 Y0 p- f( G　　  
　　var webStr=http.responseText;  
# L! Z" w$ U% t, o2 R4 h　　Re=new RegExp（""（http://img.tencent.com/face/[^"]+）"","ig"）;  
8 @  C! |) j/ H/ u　　if （Re.test（webStr））  
" ~! U# s: H  ?, t. H　　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＞";  
( M! \* t9 n. `& B0 n- P( n& k' q
　　http=null;  
　　}  
- {* O5 d* G' w; e8 ?  v3 }
8 F) d% G5 Z5 T+ ?/ j1 N; u) I- k' _　　document.write（"我的QQ狀態："+getFaceImg（"44723461"））;  
　　//--＞  
$ g6 ^: n1 ?0 |3 ?' B. u　　＜/script＞