求代码:判断百度蜘蛛后,调用关键字改网页标题

<%
Function Check(USER_AGENT)
Allow_Agent=Split("Baiduspider,Scooter,ia_archiver,Googlebot,FAST-WebCrawler,MSNBOT,Slurp",",")
Check_Agent=False
For Agenti=Lbound(Allow_Agent) To Ubound(Allow_Agent)
If Instr(User_Agent,Allow_Agent(Agenti))>0 Then
Check_Agent=True
Exit For
End If
Next
Check=Check_Agent
End Function
User_Agent=Request.ServerVariables("HTTP_USER_AGENT")
If Check(USER_AGENT)=True
%>
判断百度蜘蛛后,调用关键字改网页标题,以及从百度点击链接进入主页的话就跳转到其他域名的代码!!!
谢谢了!!!