ASP判断搜索引擎（bot,Spider,机器人,爬虫）的函数
最近用 PHP 做了一个 WAP 的站点，因为只想做个专注于 无线应用协议 的网站，所以没有做电脑客户端浏览的页面。但是为了让使用IE浏览器浏览网站的用户也可以浏览网站，所以就用了一个WAP模拟器的功能，以便使用IE浏览器的朋友也可以浏览到 WAP 站点中的内容。
我分别用了两个域名来指向两个不同的空间，IE浏览的站点其实是使用了一个模拟器模拟手机上网的方式来浏览WAP站点的，所以在输出时使用的JS。但我想让搜索引擎的机器人在浏览IE可以浏览的网页时也显示WAP站点的内容，因此，这个 is_bot 函数便产生了。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
Function is_bot() Dim user_agent,Re user_agent = lcase(Request.servervariables("Http_User_Agent")) Set Re = New Regexp Re.IgnoreCase = True Re.Global = True Re.Pattern = "(bot|crawl|spider|slurp|yahoo|sohu-search|lycos|robozilla)" is_bot = Re.Test(user_agent) Set Re = Nothing End Function If is_bot = True Then Response.Status="301 Moved Permanently" Response.AddHeader "Location","http://gjmwap.cn/" Response.End() End If |
这样，当搜索引擎在索引供IE用户浏览的网址时，程序则会根据判断来进行301永久重定向。
