判断访问是否来自搜索引擎的函数
编辑:dnawo 日期:2007-04-17
复制内容到剪贴板
程序代码
程序代码<%
'是否真正的搜索引擎
Function IsWebSearch()
IsWebSearch = False
Dim Botlist,i
BotList = "Google,Isaac,SurveyBot,Baiduspider,yahoo,yisou,3721,ia_archiver,P.Arthur,FAST-WebCrawler,Java,Microsoft-ATL-Native,TurnitinBot,WebGather,Sleipnir"
Botlist = Split(Botlist,",")
For i = 0 To Ubound(Botlist)
If InStr(Lcase(Request.ServerVariables("HTTP_USER_AGENT")),Lcase(Botlist(i))) > 0 Then
IsWebSearch = True
Exit For
End If
Next
End Function
%>
'是否真正的搜索引擎
Function IsWebSearch()
IsWebSearch = False
Dim Botlist,i
BotList = "Google,Isaac,SurveyBot,Baiduspider,yahoo,yisou,3721,ia_archiver,P.Arthur,FAST-WebCrawler,Java,Microsoft-ATL-Native,TurnitinBot,WebGather,Sleipnir"
Botlist = Split(Botlist,",")
For i = 0 To Ubound(Botlist)
If InStr(Lcase(Request.ServerVariables("HTTP_USER_AGENT")),Lcase(Botlist(i))) > 0 Then
IsWebSearch = True
Exit For
End If
Next
End Function
%>
注：本函数来源于Dvbbs Version 8.2.0
上一篇: 
下一篇: 
文章来自: 
引用通告: 
Tags: 
最新日志:
评论: 6 | 引用: 0 | 查看次数: 4928
管理员[2007-04-24 10:57 AM | 
| 
| 220.160.26.220 | 
| 
回复]
地板
多谢，这个添加后，在本机调试，出现日志无法访问的问题。
现在使用你的原先方案，改成限制每分钟访问10次，发现对百度好象没有限制了。
现在使用你的原先方案，改成限制每分钟访问10次，发现对百度好象没有限制了。
沙发
这段代码我加到article.asp的前头，日志无法访问，所以不知道该加到哪里。
限制5秒访问2次的方法对百度的访问限制很得厉害，所以放弃了。
对了，我没有QQ，邮件是buding2002#gmail.com
限制5秒访问2次的方法对百度的访问限制很得厉害，所以放弃了。
对了，我没有QQ，邮件是buding2002#gmail.com
发表评论
请登录后再发表评论！
