Call robot()Sub robot()Dim robots:robots="Baiduspider@Baidu|Baiduspider+@Baidu|Google@Google|Googlebot@Google|
[email protected]|ia_archiver@Alexa|IAArchiver@Alexa|ASPSeek@ASPSeek|YahooSeeker@Yahoo|sohu-search@Sohu|help.yahoo.com/help/us/ysearch/slurp@Yahoo|sohu-search@SOHU|MSNBOT@MSN"dim I1,I2,l1,l2,l3,i,rsl2=falsel1=request.servervariables("http_user_agent")F1=request.ServerVariables("SCRIPT_NAME")I1=split(robots,chr(124))for i=0 to ubound(I1)I2=split(I1(i),"@")if instr(lcase(l1),lcase(I2(0))...