www.gusucode.com > cso中国seo优化html整站源码程序 > manage/query/google.asp
<% wd=Request("d") GoogleUrl="http://www.google.cn/search?hl=zh-CN&q=site%3A"&wd&"" TempStr= getHTTPPage(GoogleUrl) dim GoogleWebSite set reg=new Regexp reg.Multiline=True reg.Global=Flase reg.IgnoreCase=true reg.Pattern="约有 <b>((.|\n)*?)</b>" Set matches = reg.execute(TempStr) For Each match1 in matches GoogleWebSite=match1.Value Next Set matches = Nothing Set reg = Nothing GoogleWebSite=Replace(GoogleWebSite,"约有 <b>","") GoogleWebSite=Replace(GoogleWebSite,"</b> 项","") GoogleWebSite=Replace(GoogleWebSite,"","") GoogleWebSite=Replace(GoogleWebSite,",","") GoogleWebSite=Replace(GoogleWebSite,"","") %> <html><head> <title><%=wd%>在Google搜索引擎中的收录情况查询|义乌站长之家 173158.net</title> <meta name="robots" content="noindex,nofollow" /> <meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> <meta content="Copyright 2007 173158.net" name="Copyright" /> <meta content="Hans He" name="Author"> <style type="text/css">body{margin:0px;background-color:#DDD;FONT-FAMILY:"Arial","Helvetica","ans-serif";}A:link,A:visited { COLOR: #0066CC; FONT-SIZE: 12px; font-weight:bold;TEXT-DECORATION:underline;}A:active,A:hover{COLOR:#FF3300;FONT-SIZE: 12px; font-weight:bold;TEXT-DECORATION: underline;}</style></head><body> <div align="center"> <% If Request("s")="google" Then Response.Write ("<a href=""http://www.google.cn/search?q=site%3A"&wd&"&hl=zh-CN"" target=""_blank"" title="""&GoogleWebSite&" "&wd&""">"&GoogleWebSite&"</a>") End If %> </div></body></html> <% Function getHTTPPage(Path) t = GetBody(Path) getHTTPPage=BytesToBstr(t,"UTF-8") End function Function GetBody(url) on error resume next Set Retrieval = CreateObject("Microsoft.XMLHTTP") With Retrieval .Open "Get", url, False, "", "" .Send GetBody = .ResponseBody End With Set Retrieval = Nothing End Function Function BytesToBstr(body,Cset) dim objstream set objstream = Server.CreateObject("ado"&"db.str"&"eam") objstream.Type = 1 objstream.Mode =3 objstream.Open objstream.Write body objstream.Position = 0 objstream.Type = 2 objstream.Charset = Cset BytesToBstr = objstream.ReadText objstream.Close set objstream = nothing End Function %>