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

這段程序的方法是利用XMLHTTP來讀取騰訊網站的相應HTML代碼獲取QQ的頭像，根據這個想法，我們還可以抓取很多其他網站的信息，如天氣預報、新聞等等。
＜script language="JavaScript"＞  
　　＜!--  
) L. o. |1 ~* a+ n' u　　function getFaceImg（QQcode）  
' L- g0 @  m* u9 K8 P  G, v0 Q: k- e" K　　{  
! c9 d! d; `' n0 `3 u9 O　　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"）;  
, s% u/ Q3 v2 C- n　　http.open（"GET",URL,false,"",""）;  
　　http.setRequestHeader（"CONTENT-TYPE","text/html; Charset=gb2312"）;  
8 U7 n; s! @* g% H. e4 D( J9 ^　　http.send（）;  
+ O& ^2 A: f2 E9 R! a% g6 I　　  
8 A/ D7 B  m% @, E　　if （http.status!=200） return;  
; ?( l$ K8 x3 E! y  s6 F% y　　  
& b( h" W( J, V' V2 d, J2 B　　var webStr=http.responseText;  
　　Re=new RegExp（""（http://img.tencent.com/face/[^"]+）"","ig"）;  
- p" O4 B5 v9 C$ k$ E　　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＞";  
0 p0 |* N' K. \7 U8 u3 B
  q9 N: T$ U0 U" ?6 U; y5 c; y8 K* x　　http=null;  
　　}  

　　document.write（"我的QQ狀態："+getFaceImg（"44723461"））;  
　　//--＞  
7 Y' E% Q- W  \2 Z, B! _, O　　＜/script＞