asp百度搜索结果采集程序

可以实现在自己的网站实现百度搜索效果。演示地址：http://www.cnpatent.com/search/so_index.asp?str_key=%B5%E7%D7%D3 百度的页面代码有点改动，可以用下的替换。 http://www.cnpatent.com/换成自己的地址 TitleStarStr="百度一下，" TitleEndStr="秒" TitleStrType=2 CreateTitle=Trim(RemoveHTML(strCut(getHTTPPage,TitleStarStr,TitleEndStr,TitleStrType))) 'ifInstr