木子屋
 

标题: 判断访问是否来自搜索引擎的函数

作者: dnawo

日期: 2007-04-17 04:09 PM

分类: Web编程

内容: 复制内容到剪贴板 程序代码<%
'是否真正的搜索引擎
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

+ 查看当前日志评论 (6)

 

登录

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.602 ms

标题: 判断访问是否来自搜索引擎的函数

你没有权限发表评论

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.602 ms

标题: 判断访问是否来自搜索引擎的函数

评论内容:

== 管理员 2007-04-24 10:57 AM ----

== lookintos 2007-04-24 10:37 AM ----

用火车头采集自己的站,发现按时间限制访问的方法无效.所以都放弃了.

== lookinto 2007-04-20 08:55 AM ----

多谢，这个添加后，在本机调试，出现日志无法访问的问题。
现在使用你的原先方案，改成限制每分钟访问10次，发现对百度好象没有限制了。

== 管理员 2007-04-18 04:35 PM ----

可以看这个：http://www.mzwu.com/mzwu.txt

== lookinto 2007-04-18 03:31 PM ----

这段代码我加到article.asp的前头，日志无法访问，所以不知道该加到哪里。
限制5秒访问2次的方法对百度的访问限制很得厉害，所以放弃了。
对了，我没有QQ，邮件是buding2002#gmail.com

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.633 ms