一、Js：

<script type="text/javascript">
//直接通过XMLHttpRequest对象获取远程网页源代码
function getSource(site){
 //根据window.XMLHttpRequest对象是否存在使用不同的创建方式
 if (window.XMLHttpRequest){
  xmlHttp=new XMLHttpRequest();     //FireFox、Opera等浏览器支持的创建方式
 }
 else{
  xmlHttp=new ActiveXObject("Microsoft.XMLHTTP"); //IE浏览器支持的创建方式
 }
 xmlHttp.onreadystatechange=writeBaidu;    //设置回调函数
 xmlHttp.open("POST", "../Get/js_baidu.asp", true);
 xmlHttp.setRequestHeader("Content-type","application/x-www-form-urlencoded");
 xmlHttp.send("site=" + encodeURIComponent(site));  //发送包含地址信息的请求体
}

//将远程网页源代码写入页面文字区域
function writeBaidu(){
 if (xmlHttp.readyState==4){
  var someText=xmlHttp.responseText;
  var pattern=new RegExp(/找到相关结果数((.|\n)*?)个/);
  //var outCome_exec=pattern.exec(someText);
  //document.getElementById("Baidu").value=outCome_exec[1].replace(',','');
  var outCome_matc=someText.match(pattern);
  document.getElementById("Baidu").value=outCome_matc[1].replace(',','');
  
  document.getElementById("Tip_Baidu").innerHTML="<img src='/Images/ok.gif'>";
 }
}

getSource("<%=Link_Url%>")
</script>

 

2、Asp：

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!-- #include file="../Inc/GetHTTPPage.asp" -->
<%
Response.Expires = -1
Response.AddHeader "cache-control","no-cache"
Response.AddHeader "Pragma","no-cache"

site=Request.QueryString("site")
If site<>"" Then
 BaiduUrl="http://www.baidu.com/s?wd=site%3A"&site
 TempStr= GetHTTPPage(BaiduUrl,"utf-8")
 
 Dim BaiduWebSite
 Set reg=new Regexp
 reg.Multiline=True
 reg.Global=Flase
 reg.IgnoreCase=true
 reg.Pattern="找到相关结果((.|\n)*?)个"
 Set matches = reg.execute(TempStr)
 For Each match1 in matches
  BaiduWebSite=match1.Value
 Next
 Set matches = Nothing
 Set reg = Nothing
 
 BaiduWebSite=Replace(BaiduWebSite,"找到相关结果","")
 BaiduWebSite=Replace(BaiduWebSite,"数","")
 BaiduWebSite=Replace(BaiduWebSite,"个","")
 BaiduWebSite=Replace(BaiduWebSite,",","")
 
 If BaiduWebSite="" Then
  BaiduWebSite="0"
 End if
 
 Session("Baidu")=BaiduWebSite
 
 Response.Write("document.getElementById(""Baidu"").value="""&BaiduWebSite&""";document.getElementById(""Tip_Baidu"").innerHTML=""<img src='/Images/ok.gif'>"";")
End If
%>