asp的代码,决定是否成为搜索引擎蜘蛛

复制代码代码如下所示:
<
{注册码破解补丁}GetBot()函数
查询蜘蛛
昏暗的s_agent
{注册码破解补丁}GetBot =
s_agent = request.servervariables(http_user_agent )的关键判断语句
如果仪器(1,s_agent,Googlebot
{注册码破解补丁}GetBot =谷歌
最后如果
如果仪器(1,s_agent,msnbot
{注册码破解补丁}GetBot =MSN
最后如果
如果仪器(1,s_agent,喝
{注册码破解补丁}GetBot =雅虎
最后如果
如果仪器(1,s_agent,Baiduspider
{注册码破解补丁}GetBot =百度
最后如果
如果仪器(1,s_agent,搜狐搜索
{注册码破解补丁}GetBot =搜狐
最后如果
如果仪器(1,s_agent,什么
{注册码破解补丁}GetBot = 什么
最后如果
如果仪器(1,s_agent robozilla ,
{注册码破解补丁}GetBot =robozilla
最后如果
端功能
如果{注册码破解补丁}GetBot =百度然后
百度的自定义内容
{注册码破解补丁}GetBot =谷歌然后
谷歌的自定义内容
最后如果
%>

下面是比较完整的代码,需要的朋友也可以参考一下。它还包括一些客户端信息。
复制代码代码如下所示:
类systeminfo_cls
公共的浏览器版本,平台,指的是搜索,alexatoolbar
私有子class_initialize()
昏暗的经纪人,Tmpstr
IsSearch = false
如果Not IsEmpty(Session(systeminfo_cls ))然后
Javascript =分裂(Session(systeminfo_cls ),| | | )
Javascript的浏览器=(0)
(1)Javascript版本=
平台= Javascript(2)
alexatoolbar = Javascript(4)
如果Tmpstr(3)=1
IsSearch =真
最后如果
退出子
最后如果
浏览器
版本
平台
代理= request.servervariables(http_user_agent )
如果仪器(代理,Alexa工具条)> 0
alexatoolbar =是
其他的
alexatoolbar =没有
最后如果
如果左(代理,7)然后以浏览器作为标识
代理=拆分(代理,);)
如果仪器(代理(1)、MSIE)> 0
浏览器Internet Explorer
版本=装饰(左(取代(剂(1)、MSIE
ElseIf InStr(代理(4),网景)> 0
浏览器
Javascript =分裂(代理(4), / )
版本= Javascript(UBound(Javascript))
ElseIf InStr(代理(4),即)> 0
浏览器
Javascript =分裂(代理(4),:)
版本= Javascript(UBound(Javascript))
如果InStr(版本,))> 0
Javascript =分裂(版本,))
(0)Javascript版本=
最后如果
最后如果
如果仪器(代理(2),5.2元)> 0
平台 Windows 2003
ElseIf InStr(代理(2),Windows CE )> 0
平台
ElseIf InStr(代理(2),5.1元)> 0
平台
ElseIf InStr(代理(2),4元)> 0
平台
ElseIf InStr(代理(2),5元)> 0
平台 Windows 2000
ElseIf InStr(代理(2),NT)> 0
平台
ElseIf InStr(代理(2),9x )> 0
平台Windows ME
ElseIf InStr(代理(2),98 )> 0
平台 Windows 98
ElseIf InStr(代理(2),95 )> 0
平台 Windows 95
ElseIf InStr(代理(2)、Win32)> 0
平台
ElseIf InStr(代理(2),Linux)> 0
平台
ElseIf InStr(代理(2),路径)> 0
平台=路径
ElseIf InStr(代理(2),苹果)> 0
平台
ElseIf UBound(代理)> 2
如果仪器(代理(3),5.1元)> 0
平台
最后如果
如果仪器(代理(3),Linux)> 0
平台
最后如果
最后如果
如果仪器(代理(2),Windows)> 0、平台=未知然后
平台
最后如果
ElseIf Left(代理,5)=歌剧然后'这个身份作为一个浏览器
代理=拆分(代理,)
浏览器
Javascript =分裂(代理(1),)
(0)Javascript版本=
如果仪器(代理(1),5.2元)> 0
平台 Windows 2003
ElseIf InStr(代理(1),Windows CE )> 0
平台
ElseIf InStr(代理(1),5.1元)> 0
平台
ElseIf InStr(代理(1),4元)> 0
平台
ElseIf InStr(代理(1),5元)> 0
平台 Windows 2000
ElseIf InStr(代理(1),NT)> 0
平台
ElseIf InStr(代理(1),9x )> 0
平台Windows ME
ElseIf InStr(代理(1),98 )> 0
平台 Windows 98
ElseIf InStr(代理(1),95 )> 0
平台 Windows 95
ElseIf InStr(代理(1)、Win32)> 0
平台
ElseIf InStr(代理(1),Linux)> 0
平台
ElseIf InStr(代理(1),路径)> 0
平台=路径
ElseIf InStr(代理(1),苹果)> 0
平台
ElseIf UBound(代理)> 2
如果仪器(代理(3),5.1元)> 0
平台
最后如果
如果仪器(代理(3),Linux)> 0
平台
最后如果
最后如果
其他的
标识搜索引擎
昏暗的botlist,我
botlist =谷歌,艾萨克,Webdup,surveybot,Baiduspider,ia_archiver,P. Arthur,快WebCrawler,java,微软ATL本土,turnitinbot,粘贴,
botlist =分裂(botlist,
我= 0,UBound(botlist)
如果仪器(代理,botlist(I))> 0
平台= botlist(我)搜索
IsSearch =真
退出
最后如果
下一个
最后如果
如果指的是搜索然后
=浏览器
版本
会议(systeminfo_cls )=浏览器| | |版本| | |平台| | | 1 | | |alexatoolbar
其他的
会议(systeminfo_cls )=浏览器| | |版本| | |平台| | | 0 | | |alexatoolbar
最后如果
端子
类的结束