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

這段程序的方法是利用XMLHTTP來讀取騰訊網站的相應HTML代碼獲取QQ的頭像，根據這個想法，我們還可以抓取很多其他網站的信息，如天氣預報、新聞等等。
＜script language="JavaScript"＞  
　　＜!--  
　　function getFaceImg（QQcode）  
# m- U. C- K; A$ Z　　{  
8 U5 r! S8 p, J0 \. a　　var Re=new RegExp（"^[1-9]{1}\d+$","g"）;  
6 [0 |1 X* V4 N! @: C5 }! X　　if （!QQcode　　!Re.test（QQcode）） return;  
% }1 V0 m7 @# ]' s9 U3 ~. m　　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,"",""）;  
0 p2 n8 i9 h6 w" u' G6 [9 V　　http.setRequestHeader（"CONTENT-TYPE","text/html; Charset=gb2312"）;  
: m& `6 @- G* x' B" i7 y& h( x5 U　　http.send（）;  
6 e8 `0 i/ a4 _7 }  l　　  
: l. E: }. X9 d7 e9 {1 H- P, i! Y　　if （http.status!=200） return;  
　　  
6 T8 c0 k" c- r0 M2 q　　var webStr=http.responseText;  
+ Y" T- w4 c0 n: L/ g. K0 _1 i　　Re=new RegExp（""（http://img.tencent.com/face/[^"]+）"","ig"）;  
; S0 U+ s' W( X; l, C3 Z　　if （Re.test（webStr））  
4 Q: q9 W+ e% `. o2 F　　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＞";  

! x% q. C5 g2 d" Y' c- J　　http=null;  
5 h/ l% x! S/ E3 e3 N　　}  
) \) |- D4 Z- W/ N$ X% `
5 M4 m# B# E/ @2 |/ L　　document.write（"我的QQ狀態："+getFaceImg（"44723461"））;  
　　//--＞  
2 M" L+ v! W+ T: Q　　＜/script＞