5UCMS安装目录下修改inc/function.asp

查找：' 蜘蛛机器人

function spiderbot()   
    dim agent: agent = lcase(request.servervariables("http_user_agent"))   
    dim Bot: Bot = ""  
    if instr(agent, "googlebot") > 0 then Bot = "Google"  
    if instr(agent, "mediapartners-google") > 0 then Bot = "Google Adsense"  
    if instr(agent, "baiduspider") > 0 then Bot = "Baidu"  
    if instr(agent, "sogou spider") > 0 then Bot = "Sogou"  
    if instr(agent, "yahoo") > 0 then Bot = "Yahoo!"  
    if instr(agent, "msn") > 0 then Bot = "MSN"  
    if instr(agent, "ia_archiver") > 0 then Bot = "Alexa"  
    if instr(agent, "iaarchiver") > 0 then Bot = "Alexa"  
    if instr(agent, "sohu") > 0 then Bot = "Sohu"  
    if instr(agent, "sqworm") > 0 then Bot = "AOL"  
    if instr(agent, "yodaobot") > 0 then Bot = "Yodao"  
    if instr(agent, "iaskspider") > 0 then Bot = "Iask"  
    if len(Bot) > 0 then   
        dim rs: set rs = db("select [Botname],[LastDate] From [{pre}Bots] Where [Botname]='" & Bot & "'", 3)   
        if rs.eof then rs.addnew: rs(0) = Bot   
        rs(1) = now(): rs.update: rs.close: set rs = nothing   
    end if   
end function  

替换成：

function spiderbot()   
 dim agent: agent = lcase(request.servervariables("http_user_agent"))   
 dim Bot: Bot = ""  
 '百度   
 if instr(agent, "baiduspider") > 0 then Bot = "Baiduspider"  
 if instr(agent, "baiducustomer") > 0 then Bot = "BaiduCustomer"  
 if instr(agent, "baidu-thumbnail") > 0 then Bot = "Baidu-Thumbnail"  
 if instr(agent, "baiduspider-mobile-gate") > 0 then Bot = "Baiduspider-Mobile-Gate"  
 if instr(agent, "baidu-transcoder/1.0.6.0") > 0 then Bot = "Baidu-Transcoder/1.0.6.0"  
 '谷歌google   
 if instr(agent, "googlebot/2.1") > 0 then Bot = "Googlebot/2.1"  
 if instr(agent, "googlebot-image/1.0") > 0 then Bot = "Googlebot-Image/1.0"  
 if instr(agent, "feedfetcher-google") > 0 then Bot = "Feedfetcher-Google"  
 if instr(agent, "mediapartners-google") > 0 then Bot = "Google Adsense"  
 if instr(agent, "adsbot-google") > 0 then Bot = "Google AdWords"  
 if instr(agent, "googlebot-mobile/2.1") > 0 then Bot = "Googlebot-Mobile/2.1"  
 if instr(agent, "googlefriendconnect/1.0") > 0 then Bot = "GoogleFriendConnect/1.0"  
 '雅虎yahoo   
 if instr(agent, "yahoo! slurp;") > 0 then Bot = "Yahoo! Slurp"  
 if instr(agent, "yahoo! slurp/3.0") > 0 then Bot = "Yahoo! Slurp/3.0"  
 if instr(agent, "yahoo! slurp china") > 0 then Bot = "Yahoo! Slurp China"  
 if instr(agent, "yahoofeedseeker/2.0") > 0 then Bot = "YahooFeedSeeker/2.0"  
 if instr(agent, "yahoo-blogs") > 0 then Bot = "Yahoo Blogs"  
 if instr(agent, "yahoo-mmcrawler") > 0 then Bot = "Yahoo Image"  
 if instr(agent, "yahoo contentmatch crawler") > 0 then Bot = "Yahoo AD"  
 '微软bing   
 if instr(agent, "msnbot/1.1") > 0 then Bot = "msnbot/1.1"  
 if instr(agent, "msnbot/2.0b") > 0 then Bot = "msnbot/2.0b"  
 if instr(agent, "msrabot/2.0/1.0") > 0 then Bot = "msrabot/2.0/1.0"  
 if instr(agent, "msnbot-media/1.0