Wonderful: Using ASP to realize QQ online query function

Online This procedure is to use XMLHTTP to read Tencent's corresponding HTML code to get the head of QQ, according to this idea, we can also grab a lot of other information, such as weather forecasts, news and so on.
<script language= "JavaScript" >
!--
function Getfaceimg (Qqcode)
{
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");
Http.open ("Get", Url,false, "", "");
Http.setrequestheader ("Content-type", "text/html; charset=gb2312 ");
Http.send ();

if (http.status!=200) return;

var Webstr=http.responsetext;
Re=new RegExp ("" (http://img.tencent.com/face/[^ "]+)" "," IG ");
if (Re.test (WEBSTR))
Return "<a Href=" http://search.tencent.com/cgi-bin/friend/user_show_info?ln= "+qqcode+" "Target=_blank title=" QQ: "+ Qqcode+ "" > </a>";

Http=null;
}

document.write ("My QQ Status:" +getfaceimg ("44723461"));
-->
</script>