Function CheckSearchRobots(SearchRobotsAgent) CheckSearchRobots = False '自定義搜索爬蟲，因篇幅關(guān)系，這里只是加入國內(nèi)主要搜索引擎爬蟲部分記錄 Dim SearchRobots:SearchRobots="Baidu@Baidu|Google@Google|crawler@alexa|Yahoo@Yahoo|sohu@Sohu|MSN@MSN|QihooBot@Qihoo" dim ArrSearchRobots,ArrSearchRobots2,SearchRobotsTrue,SearchRobotsName,iSearchRobots SearchRobotsTrue = False ArrSearchRobots = split(SearchRobots,chr(124)) For iSearchRobots = 0 To Ubound(ArrSearchRobots) ArrSearchRobots2 = split(ArrSearchRobots(iSearchRobots),"@") If Instr(lcase(SearchRobotsAgent),lcase(ArrSearchRobots2(0))) > 0 then SearchRobotsTrue=true:SearchRobotsName=ArrSearchRobots2(1):exit for End If Next If SearchRobotsTrue and len(SearchRobotsName)>0 then'如果是爬蟲,就更新爬蟲信息 CheckSearchRobots = True End If End Function
將以上代碼放在asp程序中（具體如何放置請參考相關(guān)文章），然后在需要調(diào)用的地方作如下調(diào)用： If CheckSearchRobots(SearchRobotsAgent) = False Then Response.Write "非搜索引擎，可作部分限制！" '這里可以加入判斷指定時間的刷新次數(shù)，比如在正常情況下，訪問速度是N次/分，如果超過這個次數(shù)（超常規(guī)訪問）就可以限制了。
