求代码,亲朋好友们来救救我啊!!!

<%
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 
%>

求一个可以实现判断百度蜘蛛后调用关键字改网页标题,以及从百度点击链接进入主页的话就跳转到其他域名的代码!!!
谢谢了!!!

顶起~~

期待！！