Using ASP to realize QQ online inquiry

Online | This procedure is to use XMLHTTP to read the corresponding HTML code Tencent website QQ image, according to this idea, we can also crawl many other sites of 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>