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

這段程序的方法是利用XMLHTTP來讀取騰訊網站的相應HTML代碼獲取QQ的頭像，根據這個想法，我們還可以抓取很多其他網站的信息，如天氣預報、新聞等等。
9 |( U/ {* Z4 R' h: X$ S＜script language="JavaScript"＞  
　　＜!--  
0 }: F5 X: I1 j) r: i! C9 x　　function getFaceImg（QQcode）  
$ P4 Y5 [0 W2 u  N　　{  
- M) t4 k/ U8 ]　　var Re=new RegExp（"^[1-9]{1}\d+$","g"）;  
7 p$ [4 S3 r  m　　if （!QQcode　　!Re.test（QQcode）） return;  
0 T. U8 c4 }; }6 q$ G0 D　　var URL="http://search.tencent.com/cgi-bin/friend/oicq_find?oicq_no="+QQcode;  
" w+ d" b3 h( F8 ^7 {1 w) A) X　　var http=new ActiveXObject（"Microsoft.XMLHTTP"）;  
　　http.open（"GET",URL,false,"",""）;  
　　http.setRequestHeader（"CONTENT-TYPE","text/html; Charset=gb2312"）;  
　　http.send（）;  
　　  
8 x; O* m' q3 O, l6 K　　if （http.status!=200） return;  
+ K) R# U5 e( g, _+ }( D2 m# R　　  
/ B4 k, z" h' `( }2 x+ s　　var webStr=http.responseText;  
4 {  }% x1 p8 e4 q; b　　Re=new RegExp（""（http://img.tencent.com/face/[^"]+）"","ig"）;  
. w, |+ b9 y+ [/ ^$ e& n3 \/ `　　if （Re.test（webStr））  
8 X& o6 w# z: ^& y# \8 d' K. 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＞";  
- E( |1 B* B/ V
　　http=null;  
6 K% W" i3 k$ o+ B1 @6 Y  X+ Y2 S1 y) o　　}  

6 C: e4 f8 @/ K, F3 X　　document.write（"我的QQ狀態："+getFaceImg（"44723461"））;  
6 W/ V' K0 l, W# X　　//--＞  
4 E# z# O0 m* Q% W9 U- f! _　　＜/script＞