[Declaración ASP de puntuación alta] Si el visitante es una araña de motor de búsqueda, entonces redirección 301 a b.html ~~~
Función is_bot()
Dim user_agent,Re
user_agent = lcase(Request.servervariables("Http_User_Agent"))
Establecer Re = Nueva expresión regular
Re.IgnoreCase = True
Re.Global = True
Re.Pattern = "(baiduspider|googlebot|youdao|sogou|iaskspider|3721|yahoo| sogou| msnbot|soso|ciba|scooter|ia_archiver|webcrawler|slurp|spider|robots)"
is_bot = Re.Test(user_agent)